Re: Question on pcase

[Oleh Krehel]

Michael Heerdegen <address@hidden> writes:

> Try with
>  
>   (setq print-gensym t)
>   (setq print-circle t)

Oops, missed that one. Now it works, but the macro expansion is a bit clumsy:

(if (consp test)
    (let* ((#2=#:x (car test))
           (#1=#:x (cdr test)))
      (let ((baz #1#)
            (foo #2#))
        (cons baz foo))) nil)

It would be great if all bound named variables were in their own block,
always in the same place. Then it would be very easy to extract them.