29 Jun
2009
29 Jun
'09
2:08 a.m.
I was recently somewhat burned (performance-wise) by clim-lisp:defconstant being really a defvar.
Would something like the following be an acceptable substitute? It remains portable, but allows implementations to do a much better job for important cases like numeric constants:
(defmacro clim-lisp-patch:defconstant (symbol value &optional docu) (if (typep value '(or number character)) `(cl:defconstant ,symbol ,value ,@(and docu (list docu))) `(defvar ,symbol ,value ,@(and docu (list docu)))))
Cheers,
-- Nikodemus