((message :initform nil :initarg :message :accessor message))
(:documentation "Base class for all test failures."))
(defmethod print-object ((obj assertion-failed) stream)
(print-unreadable-object (obj stream :type t :identity nil)
(apply #'format stream (simple-condition-format-control obj)
((message :initform nil :initarg :message :accessor message))
(:documentation "Base class for all test failures."))
(defmethod print-object ((obj assertion-failed) stream)
(print-unreadable-object (obj stream :type t :identity nil)
(apply #'format stream (simple-condition-format-control obj)