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