diff options
| -rw-r--r-- | l/extreload.asd | 3 | ||||
| -rw-r--r-- | l/src/main.lisp | 9 |
2 files changed, 10 insertions, 2 deletions
diff --git a/l/extreload.asd b/l/extreload.asd index ac86c66..b5e62b4 100644 --- a/l/extreload.asd +++ b/l/extreload.asd @@ -1,6 +1,7 @@ (asdf:defsystem extreload :version "0.0.1" - :depends-on (:websocket-driver-client) + :depends-on (:jsown + :websocket-driver-client) :components ((:module "src" :serial t :components ((:file "package") diff --git a/l/src/main.lisp b/l/src/main.lisp index 78c5970..d78f027 100644 --- a/l/src/main.lisp +++ b/l/src/main.lisp @@ -9,6 +9,13 @@ (lambda (message) (format t "~&Got: ~A~%" message))) - (wsd:send *client* "msg") + (wsd:send *client* (get-targets-msg 1)) + + (sleep 1) (wsd:close-connection *client*)) + +(defun get-targets-msg (call-id) + (jsown:to-json + `(:obj ("id" . ,call-id) + ("method" . "Target.getTargets")))) |