[cells-cvs] CVS update: cells/utils-kt/debug.lisp cells/utils-kt/flow-control.lisp

[Kenny Tilton]

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 , at 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 @@
      , at body))
 
 (defun intern$ (&rest strings)
-  (intern  (apply #'concatenate 'string (mapcar #'string-upcase strings))))
+  (intern  (apply #'concatenate 'string strings)))
 
 #-allegro
 (defmacro until (test &body body)