Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv5322/tests

Modified Files:
	seq.impure.lisp 
Log Message:
0.8.2.13:
	Fix an error in the recent array-type refactoring; type checks 
	on vectors were incorrectly reported (as "unbound variable 
	SAETP" rather than a type error).


Index: seq.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/seq.impure.lisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- seq.impure.lisp	2 Jul 2003 08:36:57 -0000	1.19
+++ seq.impure.lisp	2 Aug 2003 15:58:07 -0000	1.20
@@ -339,6 +339,12 @@
   (declare (optimize (safety 3)))
   (assert (raises-error? (elt (list 1 2 3) 3) type-error)))
 
+;;; confusion in the refactoring led to this signalling an unbound
+;;; variable, not a type error.
+(defun svrefalike (x)
+  (svref x 0))
+(assert (raises-error? (svrefalike #*0) type-error))
+
 ;;; checks for uniform bounding index handling under SAFETY 3 code.
 ;;;
 ;;; KLUDGE: not all in one big form because that causes SBCL to spend

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv5322

Modified Files:
	version.lisp-expr 
Log Message:
0.8.2.13:
	Fix an error in the recent array-type refactoring; type checks 
	on vectors were incorrectly reported (as "unbound variable 
	SAETP" rather than a type error).


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.1141
retrieving revision 1.1142
diff -u -d -r1.1141 -r1.1142
--- version.lisp-expr	1 Aug 2003 17:16:56 -0000	1.1141
+++ version.lisp-expr	2 Aug 2003 15:58:06 -0000	1.1142
@@ -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.2.12"
+"0.8.2.13"

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv5322/src/code

Modified Files:
	interr.lisp 
Log Message:
0.8.2.13:
	Fix an error in the recent array-type refactoring; type checks 
	on vectors were incorrectly reported (as "unbound variable 
	SAETP" rather than a type error).


Index: interr.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/interr.lisp,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- interr.lisp	16 Jul 2003 08:26:00 -0000	1.26
+++ interr.lisp	2 Aug 2003 15:58:07 -0000	1.27
@@ -283,7 +283,7 @@
 		              (object)
 		      (error 'type-error
 		             :datum object
-		             :expected-type `(simple-array
+		             :expected-type '(simple-array
 					      ,(sb!vm:saetp-specifier saetp)
 					      (*)))))
 		  sb!vm:*specialized-array-element-type-properties*))))