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

more work on 26

Browse source
This commit is contained in:
David Botton 2021-03-17 21:26:54 -04:00
parent d9ebeb4aa2
commit 59e53980af
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tutorial/26-tutorial.lisp
View file

@ -61,8 +61,8 @@
(setf (display second-rung) :none) (setf (display second-rung) :none)
(setf (hash (location body)) "rung3") (setf (hash (location body)) "rung3")
(setf (inner-html (attach-as-child body "rung3-answer")) (setf (inner-html (attach-as-child body "rung3-answer"))
(format nil "<br><br>Thank you ~A<br>Your information NOT (format nil "<br><br>Thank you ~A<br>Your information will
will be sent shortly.(DEMO)" NOT be sent shortly.(DEMO)"
(cadr (assoc :name data))))))) (cadr (assoc :name data)))))))
;; rung-3 ;; rung-3
(let* ((third-rung (create-web-compositor body :html-id "rung3")) (let* ((third-rung (create-web-compositor body :html-id "rung3"))