Just Launched: You can now import projects and releases from Google Code onto SourceForge
We are excited to release new functionality to enable a 1-click import from Google Code onto the Allura platform on SourceForge. You can import tickets, wikis, source, releases, and more with a few simple steps. Read More
Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv5322/tests
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).
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