Changeset trunk,28 for trunk/util.lisp


Ignore:
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.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/util.lisp

    r24 r28  
    2222
    2323
    24 
    25 (defmacro with-gensyms (syms &body body)
    26   `(let (,@(mapcar (lambda (sym) `(,sym (gensym ,(symbol-name sym)))) syms))
    27     ,@body))
    2824
    2925(defun substring (string &key (start 0) end length)
Note: See TracChangeset for help on using the changeset viewer.