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

add declare ignores

Browse source
This commit is contained in:
David Botton 2022-07-18 22:58:52 -04:00
parent 25a9462f1f
commit 1cf6758abb
7 changed files with 22 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

10
demos/02-demo.lisp
View file

@ -26,16 +26,16 @@
(name-entry (create-form-element start-form :input :label
(create-label start-form :content "Chat Handle:")))
(ok-button (create-button start-form :content "OK"))
(p (create-p start-form))
(p1 (create-p start-form))
(chat-box (create-form form-box))
(br (create-br chat-box))
(br1 (create-br chat-box))
(messages (create-div chat-box))
(br (create-br chat-box))
(br2 (create-br chat-box))
(out-entry (create-form-element chat-box :input))
(out-ok (create-button chat-box :content "OK"))
(p (create-p chat-box))
(p2 (create-p chat-box))
(user-name))
(declare (ignore caption)(ignore br)(ignore p))
(declare (ignore p1 p2 caption br1 br2))
(setf (hiddenp chat-box) t)
(setf (background-color backdrop) :blue)
(setf (height backdrop) "100vh")