Clozure / ccl

Clozure Common Lisp
http://ccl.clozure.com
Apache License 2.0
840 stars 105 forks source link

`ccl:macroexpand-all` stops at `locally` #494

Closed bohonghuang closed 1 month ago

bohonghuang commented 1 month ago

Hello! When using ccl:macroexpand-all, I found that (ccl:macroexpand-all '(progn (loop))) yields:

(PROGN (BLOCK NIL
       (TAGBODY
        #:G28502 (PROGN)
                (GO #:G28502))))

But for (ccl:macroexpand-all '(locally (loop))), I can only get:

(LOCALLY (LOOP))

For those macros whose expansions contain locally, ccl:macroexpand-all will also stop at locally without expanding any other macros inside them.

(lisp-implementation-version) => "Version 1.12.1  LinuxX8664"

Thank you in advance for your attention to this issue.