From 20cbc406fd3e162ff3ff44ddd779a406fceea0f7 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 27 Feb 2021 16:48:40 +0100
Subject: ws-on-message: Move predicate checking tab reload exception to
 function

Give this check a name.
---
 l/src/devtools-protocol.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'l/src/devtools-protocol.lisp')

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"))
-- 
cgit v1.2.3