Re: [slime-devel] macroexpand-all for ccl

Stas Boukarev stassats@gmail.com writes:

Here it is:

diff -u -r1.157 swank-openmcl.lisp --- swank-openmcl.lisp 16 Jan 2009 15:49:40 -0000 1.157 +++ swank-openmcl.lisp 26 Jan 2009 20:31:48 -0000 @@ -925,6 +925,9 @@ (< (symbol-value s) 255)) (setf (gethash (symbol-value s) *value2tag*) s)))

+(defimplementation macroexpand-all (form)

• (ccl:macroexpand-all form))

;;;; Inspection

(defimplementation describe-primitive-type (thing)

This will cause a reader-error at read-time on older versions of CCL. Look at SBCL-WITH-SYMBOL in swank-sbcl.lisp for how this is usually dealt with in a backwards-compatible manner.

-T.