Update of /project/elephant/cvsroot/elephant/src/utils In directory clnet:/tmp/cvs-serv9022/src/utils

Modified Files: convenience.lisp package.lisp Log Message: Remove or document NOTE comments in Elephant & BDB code

--- /project/elephant/cvsroot/elephant/src/utils/convenience.lisp 2007/02/17 20:37:23 1.2 +++ /project/elephant/cvsroot/elephant/src/utils/convenience.lisp 2007/02/24 14:52:00 1.3 @@ -7,6 +7,12 @@

(in-package :elephant-utils)

+(defmacro with-gensyms (syms &body body) + `(let ,(mapcar #'(lambda (s) + `(,s (gensym))) + syms) + ,@body)) + (defmacro do-subsets ((subset subset-size list) &body body) "Look over subsets of the list" `(loop for ,subset in (subsets ,subset-size ,list) do --- /project/elephant/cvsroot/elephant/src/utils/package.lisp 2007/02/14 04:36:13 1.3 +++ /project/elephant/cvsroot/elephant/src/utils/package.lisp 2007/02/24 14:52:00 1.4 @@ -31,4 +31,5 @@ #:kill-background-program #:do-subsets #:subsets - #:remove-keywords)) + #:remove-keywords + #:with-gensyms))