[movitz-cvs] CVS update: movitz/losp/muerte/loop.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv1518

Modified Files:
	loop.lisp 
Log Message:
Don't declare the pointer variable for for-as-on-list clauses to be of
type list, because that's not true if the list is improper.

Date: Mon Sep  6 14:33:43 2004
Author: ffjeld

Index: movitz/losp/muerte/loop.lisp
diff -u movitz/losp/muerte/loop.lisp:1.5 movitz/losp/muerte/loop.lisp:1.6
--- movitz/losp/muerte/loop.lisp:1.5	Wed Feb 11 15:52:51 2004
+++ movitz/losp/muerte/loop.lisp	Mon Sep  6 14:33:43 2004
@@ -1546,7 +1546,7 @@
   (multiple-value-bind (list constantp list-value) (loop-constant-fold-if-possible val)
     (let ((listvar var))
       (cond ((and var (symbolp var)) (loop-make-iteration-variable var list data-type))
-	    (t (loop-make-variable (setq listvar (loop-gentemp)) list 'list)
+	    (t (loop-make-variable (setq listvar (loop-gentemp)) list t)
 	       (loop-make-iteration-variable var nil data-type)))
       (multiple-value-bind (list-step step-function) (loop-list-step listvar)
 	(declare #+(and (not LOOP-Prefer-POP) (not CLOE)) (ignore step-function))