[cells-cvs] CVS cells/utils-kt

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)))) ,@body)) (defmacro eval-now! (&body body)