X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-condition.lisp;h=c48798041067c7097d3c5d7011e2039ad80fa254;hb=d269194b61cad24590c75fe2df7d9237a668668c;hp=5c2f82145badbc2ee7b4bb35356081c4f851ce16;hpb=0220b66ca721bc9515ebf2dedab69407850ff518;p=sbcl.git

diff --git a/src/code/cross-condition.lisp b/src/code/cross-condition.lisp
index 5c2f821..c487980 100644
--- a/src/code/cross-condition.lisp
+++ b/src/code/cross-condition.lisp
@@ -39,23 +39,26 @@
 (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)
   ()
   (:report
    (lambda (condition stream)
      (format stream
-	     "~@<  ~? ~:@_~?~:>"
-	     (simple-condition-format-control condition)
-	     (simple-condition-format-arguments condition)
-	     "~@<If you see this and are an SBCL ~
+             "~@<  ~? ~:@_~?~:>"
+             (simple-condition-format-control condition)
+             (simple-condition-format-arguments condition)
+             "~@<If you see this and are an SBCL ~
 developer, then it is probable that you have made a change to the ~
 system that has broken the ability for SBCL to compile, usually by ~
 removing an assumed invariant of the system, but sometimes by making ~
 an averrance that is violated (check your code!). If you are a user, ~
 please submit a bug report to the developers' mailing list, details of ~
 which can be found at <http://sbcl.sourceforge.net/>.~:@>"
-	     ()))))
+             ()))))
 
 ;;; These are should never be instantiated before the real definitions
 ;;; come in.