Update of /project/cl-utilities/cvsroot/cl-utilities In directory common-lisp.net:/tmp/cvs-serv5783 Modified Files: once-only.lisp Log Message: Switched to %foo naming convention for auxilliary functions. Date: Thu May 26 21:47:53 2005 Author: pscott Index: cl-utilities/once-only.lisp diff -u cl-utilities/once-only.lisp:1.2 cl-utilities/once-only.lisp:1.3 --- cl-utilities/once-only.lisp:1.2 Thu May 26 21:09:05 2005 +++ cl-utilities/once-only.lisp Thu May 26 21:47:53 2005 @@ -7,7 +7,7 @@ (in-package :cl-utilities) -(defun check-once-only-names (names) +(defun %check-once-only-names (names) "Check that all of the NAMES are symbols. If not, raise an error." ;; This only raises an error for the first non-symbol argument ;; found. While this won't report multiple errors, it is probably @@ -18,7 +18,7 @@ (defmacro once-only (names &body body) ;; Check the NAMES list for validity. - (check-once-only-names names) + (%check-once-only-names names) ;; Do not touch this code unless you really know what you're doing. (let ((gensyms (loop for name in names collect (gensym (string name))))) `(let (,@(loop for g in gensyms