;;AUTOLOAD: when
;;AUTODOC: when "execute statements on condition"
;;(when <condition> statements...)
;;
;;is equivalent to (if <condition> (progn statements...))

(defmacrod when (condition &rest statements)
  `(if ,condition (progn ,@statements))
)
