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) + ,@body)) + (defmacro eval-now! (&body body) `(eval-when (:compile-toplevel :load-toplevel :execute) ,@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 )) -