sbcl clim-lisp-patch:defconstant overly conservative

[Christophe Rhodes]

Report from Nikodemus Siivola

 affects mcclim
 status confirmed
 importance low
 tag performance sbcl patch
 summary "sbcl clim-lisp-patch:defconstant overly conservative"
 done

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