[Sbcl-commits] CVS: sbcl/src/pcl cache.lisp,1.21,1.22

[William H. N. <wn...@us...>]

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory usw-pr-cvs1:/tmp/cvs-serv22387/src/pcl

Modified Files:
	cache.lisp 
Log Message:
0.7.4.22:
	OpenMCL correctly flagged assem.lisp misbehavior by not
		allowing SUBSEQ with END > LENGTH (even when LENGTH =
		FILL-POINTER = less than the physical size of an
		adjustable vector), so tweak VECTOR-SUBSEQ* so that
		SBCL checks this too.
	converting global appalling assem.lisp behavior into
		comparatively local appalling behavior (and
		incidentally fixing the SUBSEQ abuse)...
	...Make rollbacks of CURRENT-INDEX and CURRENT-POSN local
		and temporary instead of global and permanent.
	...(also lots of minor fussing with assem.lisp: trivial
		reformatting, renaming, correcting spelling errors...)
	fixed undefined variable in CHECK-WRAPPER-VALIDITY as per
		APD bug report 176 (but left the rest of the
		reported bug unfixed)


Index: cache.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/cache.lisp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- cache.lisp	18 May 2002 22:13:07 -0000	1.21
+++ cache.lisp	9 Jun 2002 02:30:02 -0000	1.22
@@ -446,7 +446,7 @@
   (let* ((owrapper (wrapper-of instance)))
     (if (not (invalid-wrapper-p owrapper))
 	owrapper
-	(let* ((state (wrapper-state wrapper))
+	(let* ((state (wrapper-state owrapper))
 	       (nwrapper
 		(ecase (car state)
 		  (:flush