X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=257360b3781538a6393033dc2793868640101935;hb=dbfe7e6c8b06e1b0b1ba35d9894fae13e6305602;hp=2633215a4efbb7d0cf07b6e14a98baf913e2f987;hpb=83e5661ae59addac315e6754013b3887b477570f;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 2633215..257360b 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
@@ -672,6 +672,15 @@
 ;;;; setup of CONDITION machinery, only because that makes it easier to
 ;;;; get cold init to work.
 
+(define-condition values-type-error (type-error)
+  ()
+  (:report
+   (lambda (condition stream)
+     (format stream
+	     "~@<The values set ~2I~:_[~{~S~^ ~}] ~I~_is not of type ~2I~_~S.~:>"
+	     (type-error-datum condition)
+	     (type-error-expected-type condition)))))
+
 ;;; KLUDGE: a condition for floating point errors when we can't or
 ;;; won't figure out what type they are. (In FreeBSD and OpenBSD we
 ;;; don't know how, at least as of sbcl-0.6.7; in Linux we probably