diff options
Diffstat (limited to 'l/src/devtools-protocol.lisp')
| -rw-r--r-- | l/src/devtools-protocol.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/l/src/devtools-protocol.lisp b/l/src/devtools-protocol.lisp index 8b41330..2d67033 100644 --- a/l/src/devtools-protocol.lisp +++ b/l/src/devtools-protocol.lisp @@ -34,6 +34,10 @@ "Returns true if `message` is a response to `Runtime.evaluate`." (jsown:keyp (json-obj-get message "result") "sessionId")) +(defun runtime-evaluate-exception-p (message) + "Returns true if `message` describes a runtime exception" + (jsown:keyp (json-obj-get message "result") "exceptionDetails")) + (defun parse-get-targets-response (response) "Parses a list of target info objects from the response to `Target.getTargets`." (let* ((result (json-obj-get response "result")) |