1.0.42.24: print symbols with fully qualified names in critical places

[sbcl.git] / src / code / cross-condition.lisp

diff --git a/src/code/cross-condition.lisp b/src/code/cross-condition.lisp
index cd8580c..c487980 100644 (file)
--- a/src/code/cross-condition.lisp
+++ b/src/code/cross-condition.lisp
@@ -39,6 +39,9 @@
 (define-condition type-warning (reference-condition simple-warning)
   ()
   (:default-initargs :references (list '(:sbcl :node "Handling of Types"))))
+(define-condition type-style-warning (reference-condition simple-style-warning)
+  ()
+  (:default-initargs :references (list '(:sbcl :node "Handling of Types"))))
 
 (define-condition bug (simple-error)
   ()