mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

Support for external pages

Browse source
This commit is contained in:
David Botton 2022-01-17 17:03:54 -05:00
parent daefdc1d7f
commit ebf0364775
2 changed files with 263 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-connection.lisp
View file

@ -405,7 +405,7 @@ instead of the compiled version."
"Execute SCRIPT on CONNECTION-ID, return value. If times out answer
DEFAULT-ANSWER."
(let ((uid (generate-id)))
(prep-query uid default-answer)
(prep-query uid (when default-answer (format nil "~A" default-answer)))
(execute connection-id
(format nil "ws.send (\"~A:\"+eval(\"~A\"));"
uid