mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

remove warnings

Browse source
This commit is contained in:
David Botton 2021-03-18 21:34:19 -04:00
parent 2011f99829
commit c2b73c93aa
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tutorial/26-tutorial.lisp
View file

@ -19,13 +19,15 @@
(setf (title (html-document body)) "Tutorial 26") (setf (title (html-document body)) "Tutorial 26")
;; Install a menu ;; Install a menu
(let* ((menu (create-web-menu-bar body)) (let* ((menu (create-web-menu-bar body))
(tmp (create-web-menu-icon menu :on-click (lambda (obj) (icon (create-web-menu-icon menu :on-click (lambda (obj)
(declare (ignore obj))
(setf (hash (location body)) "rung2")))) (setf (hash (location body)) "rung2"))))
(tmp (create-web-menu-item menu :content "About" (about (create-web-menu-item menu :content "About"
:class "w3-bar-item w3-button w3-right" :class "w3-bar-item w3-button w3-right"
:on-click (lambda (obj) :on-click (lambda (obj)
(declare (ignore obj))
(setf (hash (location body)) "rung2"))))) (setf (hash (location body)) "rung2")))))
(declare (ignore tmp))) (declare (ignore icon) (ignore about)))
;; rung-1 ;; rung-1
(let* ((first-rung (create-web-compositor body :html-id "rung1")) (let* ((first-rung (create-web-compositor body :html-id "rung1"))
(image (create-img first-rung :url-src "/img/windmills.jpg" (image (create-img first-rung :url-src "/img/windmills.jpg"