[anaphora-devel] anaphoric prog1

[Gary King]

Anaphora! I like it.

Have you considered aprog1??

> (defmacro aprog1 (first &body rest)
>   "Anaphoric prog1. This binds IT to the first form so that it can
> be used in the rest of the forms. The whole thing returns IT."
>   `(let ((it ,first))
>      , at rest
>      it))
>
> #+Example
> (aprog1
>   (read in nil nil)
>   (when (atom it)
>     (warn "Parse error: ~A" f)))

I find this pretty handy.


-- 
Gary Warren King
metabang.com
http://www.metabang.com/