[cells-cvs] CVS update: cell-cultures/utils-kt/debug.lisp cell-cultures/utils-kt/defpackage.lisp

[Kenny Tilton]

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

Modified Files:
	debug.lisp defpackage.lisp 
Log Message:

Date: Sun Jul  4 11:59:46 2004
Author: ktilton

Index: cell-cultures/utils-kt/debug.lisp
diff -u cell-cultures/utils-kt/debug.lisp:1.2 cell-cultures/utils-kt/debug.lisp:1.3
--- cell-cultures/utils-kt/debug.lisp:1.2	Tue Jun 29 01:58:49 2004
+++ cell-cultures/utils-kt/debug.lisp	Sun Jul  4 11:59:45 2004
@@ -55,7 +55,7 @@
                   (assert (stringp ,(car os)))
                   (call-trc t , at os)) ;;,(car os) ,tgt ,@(cdr os)))
               (progn
-                (break :trcfailed)
+                ;;(break "trcfailed")
                 (count-it :trcfailed)))
             (count-it :tgtnileval)))))))
 


Index: cell-cultures/utils-kt/defpackage.lisp
diff -u cell-cultures/utils-kt/defpackage.lisp:1.3 cell-cultures/utils-kt/defpackage.lisp:1.4
--- cell-cultures/utils-kt/defpackage.lisp:1.3	Wed Jun 30 14:02:12 2004
+++ cell-cultures/utils-kt/defpackage.lisp	Sun Jul  4 11:59:46 2004
@@ -23,9 +23,13 @@
 (in-package :cl-user)
 
 (defpackage :utils-kt
-    (:use #:common-lisp)
+  (:nicknames #:ukt)
+    (:use #:common-lisp
+      #-(or cormanlisp cmu sbcl) #:clos
+      #+sbcl #:sb-mop
+      #+mcl #:ccl)
   (:export
-   #:eko #:eko-if #:count-it #:trc #:maptimes #:bwhen #:bif #:xor
+   #:eko #:count-it #:count-of #:trc #:maptimes #:bwhen #:bif #:xor
    "WITH-DYNAMIC-FN" #:last1 #:packed-flat! #:with-metrics 
    "TRUE" "SHORTC" #:intern$ #:defconstant-once "*COUNT*" "*STOP*"
    "*DBG*" "*TRCDEPTH*"