# Pastebin hqQleRsR
(define-condition i-am-falling (error)
  ((message
    :initarg :message
    :accessor message))
  (:report (lambda (condition-object stream)
             (format stream "HELP! I am falling ~a.~&"
                     (message condition-object)))))
(handler-case
     (error 'i-am-falling :message "and I can't get up")
  (i-am-falling (condition-object)
    (print-object condition-object t)))