[slime-devel] macroexpand-all for ccl

26 Jan 2009

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.


    