From: Christophe Rhodes Date: Wed, 18 Jun 2003 16:18:34 +0000 (+0000) Subject: 0.8.0.79: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0ae2550b2edc90fcce6318080bc33586db675f50;p=sbcl.git 0.8.0.79: Cosmetic fix for almost invisible bug ... %CHECK-VECTOR-SEQUENCE-BOUNDS is always transformed, so use that in its "interpreter" definition; also, that way we don't refer to an undefined variable any more. --- diff --git a/src/code/string.lisp b/src/code/string.lisp index cc32c65..d38fdb0 100644 --- a/src/code/string.lisp +++ b/src/code/string.lisp @@ -37,13 +37,7 @@ ;;; strings in the unasterisked versions and using this in the ;;; transforms conditional on SAFETY>SPEED,SPACE). (defun %check-vector-sequence-bounds (vector start end) - (declare (type vector vector) - (type index start) - (type (or index null) end)) - (let ((length (length vector))) - (if (<= 0 start (or end length) length) - (or end length) - (signal-bounding-indices-bad-error string start end)))) + (%check-vector-sequence-bounds vector start end)) (eval-when (:compile-toplevel) ;;; WITH-ONE-STRING is used to set up some string hacking things. The diff --git a/version.lisp-expr b/version.lisp-expr index 02363f9..e9d670e 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.0.78" +"0.8.0.79"