X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=39b93b075cc0ae3cdf8e58317605f1df95557779;hb=e67cc0f952040723f7d0f37ddb88fe895f4b1464;hp=4b62d88230fc73d984be5bf8591dfdc6a9e0e940;hpb=9b55754d5328a5f44ee224d32865fc8dadee123b;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 4b62d88..39b93b0 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -1119,6 +1119,13 @@ SB-EXT:PACKAGE-LOCKED-ERROR-SYMBOL."))
 
 (define-condition timeout (serious-condition) ())
 
+(define-condition declaration-type-conflict-error (reference-condition
+						   simple-error)
+  ()
+  (:default-initargs
+      :format-control "symbol ~S cannot be both the name of a type and the name of a declaration"
+    :references (list '(:ansi-cl :section (3 8 21)))))
+
 ;;; Single stepping conditions
 
 (define-condition step-condition ()