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 ,@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)