Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv372/tests
Modified Files:
seq.pure.lisp
Log Message:
0.8.15.1:
Fix POSITION on displaced vectors (PFD tests).
... whoops!
... (you know, it's good not to have to think of a tagline for
commits once in a while :-)
Index: seq.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/seq.pure.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- seq.pure.lisp 28 Sep 2004 08:42:58 -0000 1.9
+++ seq.pure.lisp 30 Sep 2004 13:48:50 -0000 1.10
@@ -168,3 +168,10 @@
(s2 (fill s1 #\z)))
(assert s2)
(assert (string= s2 "zzzzz")))
+
+;;; POSITION on dispaced arrays with non-zero offset has been broken
+;;; for quite a while...
+(let ((fn (compile nil '(lambda (x) (position x)))))
+ (let* ((x #(1 2 3))
+ (y (make-array 2 :displaced-to x :displaced-index-offset 1)))
+ (assert (= (position 2 y) 0))))
|