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 (file)
--- 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 (file)
--- 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"