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 ,@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*"