[Sbcl-commits] CVS: sbcl/src/code loop.lisp,1.47,1.48

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv8936/src/code

Modified Files:
	loop.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.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/loop.lisp,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- loop.lisp	17 Mar 2010 11:53:30 -0000	1.47
+++ loop.lisp	5 Oct 2010 08:26:15 -0000	1.48
@@ -1037,9 +1037,8 @@
   (cond ((null name)
          (setq name (gensym "LOOP-IGNORE-"))
          (push (list name initialization) *loop-vars*)
-         (if (null initialization)
-             (push `(ignore ,name) *loop-declarations*)
-             (loop-declare-var name dtype)))
+         (push `(ignore ,name) *loop-declarations*)
+         (loop-declare-var name dtype))
         ((atom name)
          (when (or (assoc name *loop-vars*)
                    (loop-var-p name))