(in-package :araneida) ;;; Paul Graham, On Lisp, p191 (defmacro aif (test-form then-form &optional else-form) `(let ((it ,test-form)) (if it ,then-form ,else-form))) ;;; by analogy (defmacro awhen (test-form &rest then-forms) `(let ((it ,test-form)) (when it ,@then-forms)))