more work on 26

This commit is contained in:
David Botton 2021-03-17 21:26:54 -04:00
parent d9ebeb4aa2
commit 59e53980af

View file

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