Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/tests
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv25308/tests
126.96.36.199: bug using OF-TYPE VECTOR in LOOP
Case of :ELEMENT-TYPE * vs T confusion.
Fixes launchpad bug #540186.
RCS file: /cvsroot/sbcl/sbcl/tests/loop.pure.lisp,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- loop.pure.lisp 27 Mar 2009 00:39:39 -0000 1.24
+++ loop.pure.lisp 17 Mar 2010 11:53:30 -0000 1.25
@@ -247,3 +247,12 @@
(loop with x of-type (simple-vector 1) = (make-array '(1))
+(with-test (:name :bug-540186)
+ (let ((fun (compile nil `(lambda (x)
+ (loop for i from 0 below (length x)
+ for vec of-type vector = (aref x i)
+ collect vec)))))
+ (assert (equal '("foo" "bar")
+ (funcall fun
+ (vector "foo" "bar"))))))
Sign up for the SourceForge newsletter: