[mcclim-devel] small clim-lisp:defconstant improvement

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