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

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

View file

@ -25,7 +25,8 @@
(incf x)
(dotimes (n x)
(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 ()
"Start turtorial."