[cl-typesetting-devel] Re: cl-pdf vs the fasl cache

[Marc Battyani]

Alexey Dejneka wrote:
"Marc Battyani" <marc.battyani at fractalconcept.com> writes:
>> Faré wrote:
>[...]
>>>(defmacro defconstant* (name value &optional doc)
>>>  `(eval-when (:compile-toplevel :load-toplevel :execute)
>>>     (unless (boundp ',name)
>>>       (defconstant ,name ,value ,@(when doc (list doc))))))
>
>This version preserves top-levelness of DEFCONSTANT:
>
>(defmacro defconstant* (name value &optional doc)
>  `(defconstant ,name
>                (if (boundp ',name) (symbol-value ',name) ,value)
>                ,@(when doc (list doc))))

OK I will use this version.

Thanks,

Marc