From: Nikodemus S. <de...@us...> - 2010-10-05 08:26:25
|
Update of /cvsroot/sbcl/sbcl/tests In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv8936/tests Modified Files: loop.pure.lisp Log Message: 1.0.43.25: (LOOP WITH NIL = ...) caused unused variable style-warnings Patch by Roman Marynchak. Fixes lp#613871. Always declare #:LOOP-IGNORE variables ignored -- even if they have initializations. Index: loop.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/loop.pure.lisp,v retrieving revision 1.25 retrieving revision 1.26 diff -u -d -r1.25 -r1.26 --- loop.pure.lisp 17 Mar 2010 11:53:30 -0000 1.25 +++ loop.pure.lisp 5 Oct 2010 08:26:15 -0000 1.26 @@ -256,3 +256,15 @@ (assert (equal '("foo" "bar") (funcall fun (vector "foo" "bar")))))) + +(with-test (:name :bug-lp613871) + (multiple-value-bind (function warnings-p failure-p) + (compile nil '(lambda () (loop with nil = 1 repeat 2 collect t))) + (assert (null warnings-p)) + (assert (null failure-p)) + (assert (equal '(t t) (funcall function)))) + (multiple-value-bind (function warnings-p failure-p) + (compile nil '(lambda () (loop with nil repeat 2 collect t))) + (assert (null warnings-p)) + (assert (null failure-p)) + (assert (equal '(t t) (funcall function))))) |