[slime-devel] macroexpand-all for ccl

[Tobias C. Rittweiler]

Stas Boukarev <stassats at 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.