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))