Anaphora
Anaphora is the anaphoric macro collection from Hell; it includes many new fiends in addition to old friends like AIF and AWHEN.

Anaphora is in the Public Domain, and asdf-installable, of course.

Anaphora homepage; some documentation.

ANAPHORA> (do-symbols (i (find-package :anaphora)) (when (eql (symbol-package i) (find-package :anaphora)) (cond ((fboundp i) (format t "~A~%" (cons i (sb-introspect:function-arglist i))) (awhen (documentation i 'function) (format t " ~A~%" it))) (t (format t "~A~%" i))))) OP ELSE RESULT REC (SYMBOLIC OP TEST &BODY BODY) TEST BODY (ANAPHORIC OP TEST &BODY BODY) THEN FORM I CASES CLAUSES (ATYPECASE FORM &BODY CASES) (AECASE FORM &BODY CASES) (SWHEN TEST &BODY BODY) (ACCASE FORM &BODY CASES) (AETYPECASE FORM &BODY CASES) (AWHEN TEST &BODY BODY) (ASIF TEST THEN &OPTIONAL ELSE) (ACASE FORM &BODY CASES) (SCCASE FORM &BODY CASES) (SCOND &BODY CLAUSES) (SIF TEST THEN &OPTIONAL ELSE) (SECASE FORM &BODY CASES) (ACTYPECASE FORM &BODY CASES) (ACOND &BODY CLAUSES) (AIF TEST THEN &OPTIONAL ELSE) (STYPECASE FORM &BODY CASES) (SCTYPECASE FORM &BODY CASES) (SETYPECASE FORM &BODY CASES) (SUNLESS TEST &BODY BODY) (SCASE FORM &BODY CASES) IT

ASDF-install package (obsolete) http://common-lisp.net/project/anaphora/files/anaphora-latest.tar.gz

See anaphoric-variants for an alternative.


convenience library