Re: problems with flet on last emacs

[Tassilo Horn]

Andreas Schwab <address@hidden> writes:

> I'm getting this:
>
> (let* ((#1=#:x (cl-function (lambda nil (cl-block foo 1))))
>        (#3=#:x (cl--symbol-function #2='foo)))
>   (unwind-protect
>       (progn
>       (if (eq #1# . #4=('cl--unbound))
>           (fmakunbound #2#)
>         (fset #2# #1#))
>       (foo))
>     (if (eq #3# . #4#)
>       (fmakunbound #2#)
>       (fset #2# #3#))))
>
>> Two times `x', and those should probably gensyms, anyway...
>
> Which they are.

Yes, now I've found `print-gensym' and `print-circle' myself. ;-)

Bye,
Tassilo