;;; The current code doesn't seem to quite match that.
(def!method print-object ((x condition) stream)
(if *print-escape*
;;; The current code doesn't seem to quite match that.
(def!method print-object ((x condition) stream)
(if *print-escape*
(print-unreadable-object (x stream :type t :identity t)
(format stream "~S" (simple-condition-format-control x)))
(print-unreadable-object (x stream :type t :identity t)))
(print-unreadable-object (x stream :type t :identity t)
(format stream "~S" (simple-condition-format-control x)))
(print-unreadable-object (x stream :type t :identity t)))
(define-condition type-warning (reference-condition simple-warning)
()
(:default-initargs :references (list '(:sbcl :node "Handling of Types"))))
(define-condition type-warning (reference-condition simple-warning)
()
(:default-initargs :references (list '(:sbcl :node "Handling of Types"))))