X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=a9527504e56e928c074bdd417b53399fd7477026;hb=6caf3ed5713773cb423f46bf40a29f2438c97c78;hp=acaf32b1a885029cc112f2ff6fccb40d329114d7;hpb=c92ed9e146effcd017fea24e4d1fc5e26af73ae0;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index acaf32b..a952750 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -1088,15 +1088,6 @@ SB-EXT:PACKAGE-LOCKED-ERROR-SYMBOL."))
 (define-condition encapsulated-condition (condition)
   ((condition :initarg :condition :reader encapsulated-condition)))
 
-(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