condition test

(define-condition test-condition (error)
  ((test-slot :reader test-slot :initarg :test-slot)))

(defun test-function ()
  (restart-case
      (error 'test-condition :test-slot 1)
    (testable-restart ()
      :report "Visible restart."
      :test (lambda (c) (eql (test-slot c) 1))
      nil)))