X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-condition.lisp;h=a5f8b2bdc1597df3a09cbefc1d637075a8426bcc;hb=cd1b14acf6f548b28b8a14e554d779f0473122ec;hp=cd8580c7dd9deba8fcc1fad062f96f72650f171d;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git
diff --git a/src/code/cross-condition.lisp b/src/code/cross-condition.lisp
index cd8580c..a5f8b2b 100644
--- 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)
()
@@ -57,6 +60,24 @@ please submit a bug report to the developers' mailing list, details of ~
which can be found at .~:@>"
()))))
+;;; OAOOM...
+(define-condition compiler-macro-keyword-problem ()
+ ((argument :initarg :argument :reader compiler-macro-keyword-argument))
+ (:report (lambda (condition stream)
+ (format stream "~@"
+ (compiler-macro-keyword-argument condition)))))
+
+;;; OAOOM...
+(define-condition duplicate-definition (reference-condition warning)
+ ((name :initarg :name :reader duplicate-definition-name))
+ (:report (lambda (c s)
+ (format s "~@"
+ (duplicate-definition-name c))))
+ (:default-initargs :references (list '(:ansi-cl :section (3 2 2 3)))))
+
;;; These are should never be instantiated before the real definitions
;;; come in.
(deftype package-lock-violation () nil)