small revision

This commit is contained in:
polos 2020-07-24 15:18:41 +02:00
parent a29abb19b9
commit bbe4741c90

View file

@ -104,7 +104,7 @@
(dolist (item items)
(let ((diff-name (make-string (- max-name (length (first item)))))
(diff-class (make-string (- max-class (length (third item))))))
(format out "(defvar *~A*~A ~S)~A ; ~A~A ~S~%"
(format out "(defparameter *~A*~A ~S)~A ; ~A~A ~S~%"
(first item)
diff-name
(second item)