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.

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

See anaphoric-variants for an alternative.


convenience library