blob: 8c622fc50fc33c185a3c15bf1c15895fcde4d551 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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*))
|
