[cells-cvs] CVS cells/utils-kt

[ktilton]

Update of /project/cells/cvsroot/cells/utils-kt
In directory clnet:/tmp/cvs-serv1212/utils-kt

Modified Files:
	core.lisp 
Log Message:
Oops. Major repairs to handling of the owning property of cell slots.

--- /project/cells/cvsroot/cells/utils-kt/core.lisp	2008/04/22 11:03:45	1.8
+++ /project/cells/cvsroot/cells/utils-kt/core.lisp	2008/04/23 03:20:10	1.9
@@ -18,7 +18,8 @@
 (in-package :utils-kt)
 
 (defmacro with-gensyms ((&rest symbols) &body body)
-  `(let ,(mapcar #'(lambda (sym) `(,sym (gensym ,(string sym)))) symbols)
+  `(let ,(loop for sym in symbols
+             collecting `(,sym (gensym ,(string sym))))
      , at body))
 
 (defmacro eval-now! (&body body)