mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -08:00
Code Issues Projects Releases Wiki Activity

Docs and clean up.

Browse source
This commit is contained in:
David Botton 2020-12-14 13:28:09 -05:00
parent fc7c764d2d
commit 252f2bd922
4 changed files with 74 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

2
clog-connection.lisp
View file

@ -54,7 +54,7 @@
(defun query (connection-id script)
"Execute SCRIPT on CONNECTION-ID, return value."
(let ((uid (clog::generate-connection-id)))
(clog::store-query uid nil)
(clog::prep-query uid nil)
(execute connection-id
(format nil "ws.send (\"~A:\"+eval(\"~A\"));" uid script))
(clog::wait-for-answer uid)))