style warning corrections

This commit is contained in:
David Botton 2021-02-02 01:29:28 -05:00
parent f4b0abe422
commit c2789b85e2
11 changed files with 84 additions and 98 deletions

View file

@ -29,8 +29,7 @@
(defgeneric create-toggler (clog-obj &key content class auto-place)
(:documentation "Create a toggler with CONTENT as the top of tree."))
(defmethod create-toggler ((obj clog-obj) &key (content "")
(class nil)
(defmethod create-toggler ((obj clog-obj) &key (class nil)
(html-id nil)
(auto-place t))
(let ((new-obj (create-unordered-list obj :class class