X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcross-condition.lisp;h=a5f8b2bdc1597df3a09cbefc1d637075a8426bcc;hb=2e52fa05;hp=c48798041067c7097d3c5d7011e2039ad80fa254;hpb=c40c56eedec692acb930ec0e358a933ab33a3560;p=sbcl.git
diff --git a/src/code/cross-condition.lisp b/src/code/cross-condition.lisp
index c487980..a5f8b2b 100644
--- a/src/code/cross-condition.lisp
+++ b/src/code/cross-condition.lisp
@@ -60,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)