(in-package my-fact)

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