[slime-devel] macroexpand-all for ccl

[Stas Boukarev]

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)

-- 
With Best Regards, Stas.