Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv1864
Modified Files: with-unique-names.lisp Log Message: Improved documentation and type checking. Cleaned up code a little.
Date: Mon May 16 21:12:00 2005 Author: pscott
Index: cl-utilities/with-unique-names.lisp diff -u cl-utilities/with-unique-names.lisp:1.2 cl-utilities/with-unique-names.lisp:1.3 --- cl-utilities/with-unique-names.lisp:1.2 Fri May 13 23:18:23 2005 +++ cl-utilities/with-unique-names.lisp Mon May 16 21:12:00 2005 @@ -10,7 +10,11 @@ (if (consp binding) binding (list binding binding)) - `(,var (gensym ,(format nil "~A" prefix))))) + (if (symbolp var) + `(,var (gensym ,(format nil "~A" prefix))) + (error 'type-error + :datum var + :expected-type 'symbol)))) bindings) ,@body))
@@ -28,7 +32,11 @@
(defmacro with-gensyms ((&rest bindings) &body body) "Synonym for WITH-UNIQUE-NAMES, but BINDINGS should only consist of -atoms; lists are not supported." +atoms; lists are not supported. If you try to give list bindings, a +LIST-BINDING-NOT-SUPPORTED warning will be signalled, but it will work +the same way as WITH-UNIQUE-NAMES. Don't do it, though." + ;; Signal a warning for each list binding, if there are any (dolist (binding (remove-if-not #'listp bindings)) (warn 'list-binding-not-supported :binding binding)) + ;; Otherwise, this is a synonym for WITH-UNIQUE-NAMES `(with-unique-names ,bindings ,@body))