[cl-utilities-cvs] CVS update: cl-utilities/once-only.lisp

[Peter Scott]

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