[cells-cvs] CVS cells/utils-kt

[ktilton]

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

Modified Files:
	core.lisp defpackage.lisp 
Log Message:


--- /project/cells/cvsroot/cells/utils-kt/core.lisp	2008/02/11 14:47:31	1.7
+++ /project/cells/cvsroot/cells/utils-kt/core.lisp	2008/04/22 11:03:45	1.8
@@ -17,6 +17,10 @@
 
 (in-package :utils-kt)
 
+(defmacro with-gensyms ((&rest symbols) &body body)
+  `(let ,(mapcar #'(lambda (sym) `(,sym (gensym ,(string sym)))) symbols)
+     , at body))
+
 (defmacro eval-now! (&body body)
   `(eval-when (:compile-toplevel :load-toplevel :execute)
      , at body))
--- /project/cells/cvsroot/cells/utils-kt/defpackage.lisp	2007/12/03 12:21:34	1.9
+++ /project/cells/cvsroot/cells/utils-kt/defpackage.lisp	2008/04/22 11:03:45	1.10
@@ -38,6 +38,7 @@
     #:intern$
     #:define-constant #:*count* #:*stop*
     #:*dbg*
+   #:with-gensyms
     #:make-fifo-queue #:fifo-queue #:fifo-add #:fifo-delete
     #:fifo-empty #:fifo-pop #:fifo-clear
     #:fifo-map #:fifo-peek #:fifo-data #:with-fifo-map #:fifo-length
@@ -45,4 +46,3 @@
     #-(or lispworks mcl) #:true
     #+(and mcl (not openmcl-partial-mop)) #:class-slots
     ))
-