(defmacro when (condition &body body)
  (let ((forced-condition (gensym "FORCED-CONDITION")))
    `(let ((,forced-condition ,condition))
       (funcall
        (catch ,forced-condition
          (catch 'nil
            (throw ,forced-condition
                   (lambda () ,@body)))
          (lambda () nil))))))