Prevent GC using (run body)

This commit is contained in:
David Botton 2021-01-12 15:05:00 -05:00
parent 68882c1692
commit d11148bcc9
12 changed files with 48 additions and 9 deletions

View file

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