Changeset trunk,28 for trunk

Timestamp:

08/28/2007 09:02:30 PM (19 years ago)

Author:

dsowen

revision id:

svn-v3-trunk0:2948df59-2b31-0410-8e06-c40c0b09d5b6:trunk:30

Message:

Moved WITH-GENSYMS to dso-util.

Location:

trunk

Files:

• dso-parse.asd (modified) (1 diff)
• package.lisp (modified) (1 diff)
• util.lisp (modified) (1 diff)

trunk/dso-parse.asd

@@ -20 +20 @@
 
 (asdf:defsystem #:dso-parse
-  :depends-on (#:cl-ppcre)
+  :depends-on (#:cl-ppcre #:dso-util)
   :components ((:file "package")
                (:file "util")

trunk/package.lisp

@@ -24 +24 @@
 (see the IF-MATCHES-* macros, but especially IF-MATCHES), and for
 defining parsers (DEFPARSER) and grammars (DEFGRAMMAR).")
-  (:use #:cl #:cl-ppcre)
+  (:use #:cl #:cl-ppcre #:dso-util)
   (:export #:if-matches-parser
            #:if-matches-char

trunk/util.lisp

@@ -22 +22 @@
 
 
-
-(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)