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

render warning

Browse source
This commit is contained in:
David Botton 2022-08-25 21:38:23 -04:00
parent 75f5ea3594
commit a74c0e9db3
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder.lisp
View file

@ -792,7 +792,7 @@ not a temporary attached one when using select-control."
\(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"
:hidden hidden :class class :html-id html-id :auto-place auto-place\) \'~A\)\)\)
~{~A~}~{~A~}~{~A~} panel\)\)~%"
(string-downcase package)
(string-downcase package)
cname ;;defclass
cmembers
cname ;;defun
@ -825,6 +825,7 @@ not a temporary attached one when using select-control."
(with-input-from-string (n result)
(let ((*standard-output* s)
(*print-case* :downcase))
(format t ";;;; CLOG Builder generated code - modify original clog file")
(loop
(let ((l (read n nil)))
(unless l (return))