Index: trunk/util.lisp
===================================================================
--- trunk/util.lisp	(revision trunk,24)
+++ trunk/util.lisp	(revision trunk,28)
@@ -22,8 +22,4 @@
 
 
-
-(defmacro with-gensyms (syms &body body)
-  `(let (,@(mapcar (lambda (sym) `(,sym (gensym ,(symbol-name sym)))) syms))
-    ,@body))
 
 (defun substring (string &key (start 0) end length)