[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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