1. thomas_bartscher
  2. cl-fgraph

Source

cl-fgraph / source / utility / anaphora.lisp

(in-package #:fgraph)

(defmacro aif (test then else)
  `(let ((it ,test))
     (if it
	 ,then
	 ,else)))

(defmacro awhen (test &body forms)
  `(let ((it ,test))
     (when it
       ,@forms)))