Remove run body in almost every case

This commit is contained in:
David Botton 2022-03-01 00:48:04 -05:00
parent c59ae62c32
commit e5e3e07645
36 changed files with 199 additions and 121 deletions

View file

@ -54,8 +54,7 @@ on the drop-root."))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 2"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 3"))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 4")))
(declare (ignore item)))
(run body))
(declare (ignore item))))
(defun start-tutorial ()
"Start tutorial."