Opened 5 years ago

#1315 new defect

macroexpand-all unexpected expansion

Reported by: rme Owned by:
Priority: normal Milestone:
Component: other Version: trunk
Keywords: Cc:

Description

User-provided test case:

(ccl:macroexpand-all
 '(symbol-macrolet ((x x-substituted) (y y-substituted) (fn fn-substituted))
   (flet ((fn (x) (cos x)))
     (fn y))))

Actual output:

(PROGN (FLET ((FN (X) (COS X-SUBSTITUTED))) (FN Y-SUBSTITUTED)))

Expected output:

(PROGN (FLET ((FN (X) (COS X))) (FN Y-SUBSTITUTED)))

That is, the user expected that the x in the body of the local function fn would have remained as-is and not been changed to x-substituted.

Change History (0)

Note: See TracTickets for help on using tickets.