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

Launch incoming messages as new threads to allow queries to work in an event.

Browse source
This commit is contained in:
David Botton 2021-01-06 01:53:55 -05:00
parent 69d0589089
commit a378dff2f7
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
clog-connection.lisp
View file

@ -167,7 +167,9 @@ the default answer. (Private)"
(when *verbose-output* (when *verbose-output*
(format t "Channel ~A Hook ~A Data ~A~%" (format t "Channel ~A Hook ~A Data ~A~%"
id (first em) (second em))) id (first em) (second em)))
(funcall (gethash (first em) (get-connection-data id)) (second em)))) (bordeaux-threads:make-thread
(lambda ()
(funcall (gethash (first em) (get-connection-data id)) (second em))))))
(t (t
(when *verbose-output* (when *verbose-output*
(format t "~A ~A = ~A~%" id (first ml) (second ml))) (format t "~A ~A = ~A~%" id (first ml) (second ml)))

3
tutorial/02-tutorial.lisp
View file

@ -25,7 +25,8 @@
(incf x) (incf x)
(dotimes (n x) (dotimes (n x)
(create-child body (create-child body
(format nil "<p>Clicked ~A times.</p>" x)))))))) (format nil "<p>Clicked ~A times.</p>" x))
(scroll-to (window body) 0 (height body))))))))
(defun start-tutorial () (defun start-tutorial ()
"Start turtorial." "Start turtorial."