diff options
| -rw-r--r-- | l/src/main.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/l/src/main.lisp b/l/src/main.lisp index 411f3eb..ab765fb 100644 --- a/l/src/main.lisp +++ b/l/src/main.lisp @@ -90,11 +90,15 @@ ; (= current-call-id ; (id *devtools-root-call-id*))) ; - (sleep 1) + ; (sleep 1) (reload-tab (json-obj-get (json-obj-get response "result") "sessionId")))) + ;; Failed to reload tab. + (when (jsown:keyp (json-obj-get response "result") "exceptionDetails") + (reload-tab (json-obj-get response "sessionId"))) + (format t "Response: ~a~%" response) (format t "~a~%" *wg*) |