Commit f088b6ec authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected def-phys-const macro. (pass doc-string to defparameter only when non nil).

parent 9053d085
......@@ -155,7 +155,7 @@
(pushnew name *constantes*)
`(progn
(pushnew ',name *constantes*)
(defparameter ,name ,value ,doc-string)
(defparameter ,name ,value ,@(when doc-string (list doc-string)))
(setf (get ',name 'physical-constant) t
(get ',name 'unit) ',unit)
',name))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment