Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv24435

Modified Files: loop.lisp Log Message: We need loop-copylist* at runtime.

--- /project/movitz/cvsroot/movitz/losp/muerte/loop.lisp 2004/09/06 12:33:43 1.6 +++ /project/movitz/cvsroot/movitz/losp/muerte/loop.lisp 2006/04/07 21:53:02 1.7 @@ -70,6 +70,12 @@ ;;;This is the "current" loop context in use when we are expanding a ;;;loop. It gets bound on each invocation of LOOP.

+#+movitz +(defmacro loop-copylist* (l) + #+Genera `(lisp:copy-list ,l nil t) ; arglist = (list &optional area force-dotted) + ;;@@@@Explorer?? + #-Genera `(copy-list ,l)) + (eval-when (:compile-toplevel) (defvar *loop-real-data-type* 'real) (defvar *loop-universe*)