Re: problems with flet on last emacs

[Andreas Schwab]

Tassilo Horn <address@hidden> writes:

> The macroexpansion is a bit strange:
>
> (let* ((x (cl-function (lambda nil (cl-block foo 1))))
>        (x (symbol-function (quote foo))))
>   (unwind-protect (progn
>                     (fset (quote foo) x)
>                     (foo))
>     (fset (quote foo) x)))
>

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.

Andreas.

-- 
Andreas Schwab, address@hidden
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."