[Openmcl-devel] [Patch] macroexpand-all and labels/flet

[Stas Boukarev]

CCL expands wrongly

(ccl:macroexpand-all
 '(macrolet ((foo () ''macro))
   (flet ((foo () (foo)))
     (foo))))

and

(ccl:macroexpand-all
 '(macrolet ((foo () ''macro))
   (labels ((foo () (foo)))
     (foo))))

The attached patch should fix this.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: macroexpand.diff
Type: text/x-diff
Size: 1557 bytes
Desc: not available
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20090804/77c46c10/attachment.bin>
-------------- next part --------------
     
-- 
With best regards, Stas.