X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=0b2b49bcd3a9f8dce7efe0f70d6311f0c3b80e2b;hb=b4831dc945c0754b3ba77881e67c8ea4d0a3d905;hp=d76500f083396e62061167c6bf58d094e505f60f;hpb=05525d3a5906d7a89fcb689c26177732493c40ce;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index d76500f..0b2b49b 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -526,7 +526,7 @@
 ;;; methods)
 (defun describe-condition (condition stream)
   (format stream
-	  "~@<~S ~_is a ~S. ~_Its slot values are ~_~S.~:>"
+	  "~&~@<~S ~_is a ~S. ~_Its slot values are ~_~S.~:>~%"
 	  condition
 	  (type-of condition)
 	  (concatenate 'list
@@ -790,7 +790,17 @@
 
 (define-condition sb!ext::timeout (serious-condition) ())
 
-
+(define-condition defconstant-uneql (error)
+  ((name :initarg :name :reader defconstant-uneql-name)
+   (old-value :initarg :old-value :reader defconstant-uneql-old-value)
+   (new-value :initarg :new-value :reader defconstant-uneql-new-value))
+  (:report
+   (lambda (condition stream)
+     (format stream
+	     "~@<The constant ~S is being redefined (from ~S to ~S)~@:>"
+	     (defconstant-uneql-name condition)
+	     (defconstant-uneql-old-value condition)
+	     (defconstant-uneql-new-value condition)))))
 
 ;;;; special SBCL extension conditions