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

sbcl detected issues

Browse source
This commit is contained in:
David Botton 2021-03-04 13:51:20 -05:00
parent e5a270ffe1
commit 93389b5558
9 changed files with 44 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/21-tutorial.lisp
View file

@ -36,6 +36,7 @@ on the drop-root."))
(setf (drop-root new-obj) (create-unordered-list header))
(set-on-click header
(lambda (obj)
(declare (ignore obj))
(if (hiddenp (drop-root new-obj))
(setf (hiddenp (drop-root new-obj)) nil)
(setf (hiddenp (drop-root new-obj)) t))))
@ -52,7 +53,8 @@ on the drop-root."))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 1"))
(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"))))
(item (create-list-item (clog-drop-list:drop-root drop-list) :content "Item 4")))
(declare (ignore item)))
(run body))
(defun start-tutorial ()