aboutsummaryrefslogtreecommitdiffstats
path: root/l/src/devtools-protocol.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'l/src/devtools-protocol.lisp')
-rw-r--r--l/src/devtools-protocol.lisp3
1 files changed, 3 insertions, 0 deletions
diff --git a/l/src/devtools-protocol.lisp b/l/src/devtools-protocol.lisp
index 41a408e..3923eaf 100644
--- a/l/src/devtools-protocol.lisp
+++ b/l/src/devtools-protocol.lisp
@@ -24,6 +24,9 @@
("method" . "Runtime.evaluate")
("params" . (:obj ("expression" . ,expression))))))
+(defun runtime-evaluate-msg-p (message)
+ (jsown:keyp (json-obj-get message "result") "sessionId"))
+
(defun parse-get-targets-response (response)
(let* ((result (json-obj-get response "result"))
(targetInfos (json-obj-get result "targetInfos")))