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

add .bat files for windows

Browse source
This commit is contained in:
David Botton 2024-02-16 00:21:11 -05:00
parent 788d609d60
commit dc291cb2a6
5 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder.lisp
View file

@ -115,7 +115,7 @@
(let ((h (gethash panel-id (control-lists app))))
(if h
h
(make-hash-table* :test #'equalp))))
(make-hash-table* :test #'equalp)))) ;; return empty hash to avoid map fails
(defun add-to-control-list (app panel-id control)
"Add a CONTROL on to control-list on PANEL-ID"
@ -241,7 +241,6 @@
(get-control-list app panel-id))
snap)))
(defun save-panel (fname content panel-id hide-loc)
"Save panel to FNAME"
(write-file (panel-snap-shot content panel-id hide-loc) fname))
@ -872,7 +871,7 @@ not a temporarily 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")
(format t ";;;; CLOG Builder generated code - modify original .clog file and rerender")
(loop
(let ((l (read n nil)))
(unless l (return))