Update of /project/cells/cvsroot/cells/utils-kt In directory common-lisp.net:/tmp/cvs-serv29834/utils-kt Modified Files: debug.lisp flow-control.lisp Log Message: Speed up c-link-ex a little Date: Wed May 18 23:47:33 2005 Author: ktilton Index: cells/utils-kt/debug.lisp diff -u cells/utils-kt/debug.lisp:1.1 cells/utils-kt/debug.lisp:1.2 --- cells/utils-kt/debug.lisp:1.1 Fri May 6 23:05:56 2005 +++ cells/utils-kt/debug.lisp Wed May 18 23:47:32 2005 @@ -157,6 +157,8 @@ (setf *count* nil)) (defmacro count-it (&rest keys) + (declare (ignorable keys)) + #+not `(progn) `(when *counting* (call-count-it ,@keys))) Index: cells/utils-kt/flow-control.lisp diff -u cells/utils-kt/flow-control.lisp:1.1 cells/utils-kt/flow-control.lisp:1.2 --- cells/utils-kt/flow-control.lisp:1.1 Fri May 6 23:05:56 2005 +++ cells/utils-kt/flow-control.lisp Wed May 18 23:47:32 2005 @@ -67,7 +67,7 @@ ,@body)) (defun intern$ (&rest strings) - (intern (apply #'concatenate 'string (mapcar #'string-upcase strings)))) + (intern (apply #'concatenate 'string strings))) #-allegro (defmacro until (test &body body)