Re: problems with flet on last emacs

[Tassilo Horn]

"Pascal J. Bourguignon" <address@hidden> writes:

>> Two times `x', and those should probably gensyms, anyway...
>
> They probably are.
>
> Try:
>
> (eq 'x (first (first (second (macroexpand '(flet ((foo () 1))
>                                               (foo)))))))
> and try:
>
> (let ((expansion  (macroexpand '(flet ((foo () 1)) (foo)))))
>   (eq (first (first  (second expansion)))
>       (first (second (second expansion)))))

Ok, both are nil, so x and x are different symbols.  cl uses macroexp's
macro expansion macros at various places, and `macroexp-let2' uses
(make-symbol "x") to create new symbols.  That's not making it easier to
understand...

Bye,
Tassilo