add .bat files for windows

make-builder.bat

@@ -0,0 +1 @@
+sbcl --eval "(ql:quickload :clog/tools)" --eval "(sb-ext:save-lisp-and-die #P\"builder.exe\" :toplevel (lambda () (clog-tools:clog-builder :port 0 :app t :start-browser t)(loop (sleep 10))) :executable t :compression t)"

make-docs

@@ -1 +1 @@
-sbcl --dynamic-space-size 10240 --eval "(ql:quickload :clog/docs)" --eval "(clog:make-html)"
+sbcl --dynamic-space-size 10240 --eval "(ql:quickload :clog/docs)" --eval "(clog:make-html)" --eval "(quit)"

make-docs.bat

@@ -0,0 +1 @@
+sbcl --dynamic-space-size 10240 --eval "(ql:quickload :clog/docs)" --eval "(clog:make-html)" --eval "(quit)"

run-builder.bat

@@ -0,0 +1 @@
+sbcl --eval "(ql:quickload :clog/tools)" --eval "(clog-tools:clog-builder :port 0 :app t :start-browser t)"

tools/clog-builder.lisp

@@ -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))