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

[Alexey Dejneka]

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

-- 
Regards,
Alexey Dejneka

"Alas, the spheres of truth are less transparent than those of
illusion." -- L.E.J. Brouwer