[elephant-cvs] CVS elephant/src/utils

[ieslick]

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)
+     , at 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))