mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-24 02:50:41 -08:00
Code Issues Projects Releases Wiki Activity

SBCL caught errors

Browse source
This commit is contained in:
David Botton 2021-03-07 19:59:36 -05:00
parent 65d103f906
commit d3ac4741c9
6 changed files with 36 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

23
source/clog-element-common.lisp
View file

@ -854,11 +854,10 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(auto-place t))
(create-child obj (format nil "<dl~A~A/>"
(if hidden
(format nil " style='visibility:hidden;'")
" style='visibility:hidden;'"
"")
(if class
(format nil " class='~A'"
(escape-string class))
(format nil " class='~A'" (escape-string class))
""))
:clog-type 'clog-definition-list
:html-id html-id
@ -886,16 +885,18 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(content "")
(class nil)
(html-id nil) (auto-place t))
(create-child obj (format nil "<dt~A>~A</dt>"
(create-child obj (format nil "<dt~A~A>~A</dt>"
(if hidden
(format nil " style='visibility:hidden;'")
" style='visibility:hidden;'"
"")
(escape-string content)
(if class
(format nil " class='~A'"
(escape-string class))
""))
:clog-type 'clog-term :html-id html-id :auto-place auto-place))
"")
(escape-string content))
:clog-type 'clog-term
:html-id html-id
:auto-place auto-place))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - clog-description
@ -1193,14 +1194,14 @@ and if :AUTO-PLACE (default t) place-inside-bottom-of CLOG-OBJ"))
(defmethod create-table-footer ((obj clog-obj)
&key (hidden nil)
(class nil) (html-id nil) (auto-place t))
(create-child obj (format nil "<tfoot~A/>"
(create-child obj (format nil "<tfoot~A~A/>"
(if hidden
(format nil " style='visibility:hidden;'")
" style='visibility:hidden;'"
"")
(if class
(format nil " class='~A'"
(escape-string class))
""))
""))
:clog-type 'clog-table-footer
:html-id html-id
:auto-place auto-place))