From: Christophe R. <cr...@us...> - 2004-09-30 13:49:00
|
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)))) |