This commit is contained in:
polos 2020-07-25 15:34:07 +02:00
parent 39dba74d9c
commit 20516a7da7

View file

@ -110,7 +110,7 @@
(third item)
diff-class
(fourth item))))
(terpri)
(terpri out)
t)))
(defun run ()
@ -123,7 +123,8 @@
(when (probe-file new)
(delete-file new))
(rename-file ui (file-namestring new))
(format t "~%UI file generated: ~S~%~%" new)))
(format t "~%UI file generated: ~S~%~%" new)
(load new))) ; make changes available immediately
(format t "~%File not generated, please correct names and try again.~%~%")))))
(run)