diff options
Diffstat (limited to 'l')
| -rw-r--r-- | l/extreload.asd | 6 | ||||
| -rw-r--r-- | l/src/main.lisp | 14 |
2 files changed, 20 insertions, 0 deletions
diff --git a/l/extreload.asd b/l/extreload.asd new file mode 100644 index 0000000..d377f2b --- /dev/null +++ b/l/extreload.asd @@ -0,0 +1,6 @@ +(asdf:defsystem "extreload" + :version "0.0.1" + :depends-on (:websocket-driver-client) + :components ((:module "src" + :serial t + :components ((:file "main"))))) diff --git a/l/src/main.lisp b/l/src/main.lisp new file mode 100644 index 0000000..8c622fc --- /dev/null +++ b/l/src/main.lisp @@ -0,0 +1,14 @@ +(in-package :extreload) + +(defvar *client* (wsd:make-client "ws://127.0.0.1:53954/devtools/browser/0a276302-a6e8-4f7e-9fbf-6ea97b55aa99")) + +(defun main () + (wsd:start-connection *client*) + + (wsd:on :message *client* + (lambda (message) + (format t "~&Got: ~A~%" message))) + + (wsd:send *client* "msg") + + (wsd:close-connection *client*)) |