0.7.4.29:

[sbcl.git] / src / code / condition.lisp

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index cc7420a..c089af9 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -1,8 +1,6 @@
 ;;;; stuff originally from CMU CL's error.lisp which can or should
 ;;;; come late (mostly related to the CONDITION class itself)
 ;;;;
-;;;; FIXME: should perhaps be called condition.lisp, or moved into
-;;;; classes.lisp
 
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
@@ -703,6 +701,16 @@
             "The index ~S is too large."
             (type-error-datum condition)))))
 
+;;; Out-of-range &KEY END arguments are similar to, but off by one
+;;; from out-of-range indices into the sequence.
+(define-condition index-too-large-error (type-error)
+  ()
+  (:report
+   (lambda (condition stream)
+     (format stream
+            "The end-of-sequence specifier ~S is too large."
+            (type-error-datum condition)))))
+
 (define-condition io-timeout (stream-error)
   ((direction :reader io-timeout-direction :initarg :direction))
   (:report
@@ -767,8 +775,8 @@
               alien code or from unsafe Lisp code; or there might be a bug ~
               in the OS or hardware that SBCL is running on.) If it seems to ~
               be a bug in SBCL itself, the maintainers would like to know ~
-              how to exercise the bug so it can be fixed. Bug reports are ~
-              welcome on the SBCL mailing lists, which you can find at ~
+              about it. Bug reports are welcome on the SBCL ~
+              mailing lists, which you can find at ~
               <http://sbcl.sourceforge.net/>.~:@>"
             '((fmakunbound 'compile))))))
 (defun bug (format-control &rest format-arguments)