[cells-cvs] CVS update: cells/utils-kt/debug.lisp cells/utils-kt/detritus.lisp cells/utils-kt/strings.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cells/utils-kt
In directory common-lisp.net:/tmp/cvs-serv9970/utils-kt

Modified Files:
	debug.lisp detritus.lisp strings.lisp 
Log Message:
Use #+(or) to reliably comment out forms
Date: Mon Sep 26 17:36:05 2005
Author: ktilton

Index: cells/utils-kt/debug.lisp
diff -u cells/utils-kt/debug.lisp:1.4 cells/utils-kt/debug.lisp:1.5
--- cells/utils-kt/debug.lisp:1.4	Mon Sep 26 17:05:43 2005
+++ cells/utils-kt/debug.lisp	Mon Sep 26 17:36:05 2005
@@ -159,7 +159,7 @@
 
 (defmacro count-it (&rest keys)
   (declare (ignorable keys))
-  #+not `(progn)
+  #+(or) `(progn)
   `(when *counting*
      (call-count-it , at keys)))
 


Index: cells/utils-kt/detritus.lisp
diff -u cells/utils-kt/detritus.lisp:1.1 cells/utils-kt/detritus.lisp:1.2
--- cells/utils-kt/detritus.lisp:1.1	Fri May  6 23:05:56 2005
+++ cells/utils-kt/detritus.lisp	Mon Sep 26 17:36:05 2005
@@ -71,7 +71,7 @@
   (loop until (fifo-empty q)
       do (funcall fn (fifo-pop q))))
 
-#+test
+#+(or)
 (let ((*print-circle* t))
   (let ((q (make-fifo-queue)))
     (loop for n below 3


Index: cells/utils-kt/strings.lisp
diff -u cells/utils-kt/strings.lisp:1.1 cells/utils-kt/strings.lisp:1.2
--- cells/utils-kt/strings.lisp:1.1	Fri May  6 23:05:56 2005
+++ cells/utils-kt/strings.lisp	Mon Sep 26 17:36:05 2005
@@ -143,7 +143,7 @@
    (or (null s)
        (if (stringp s)
           (string-equal "" (trim$ s))
-          #+not (trc nil "empty$> sees non-string" (type-of s)))
+          #+(or) (trc nil "empty$> sees non-string" (type-of s)))
        ))
 
 (defmacro find$ (it where &rest args)