[cells-cvs] CVS cells/utils-kt

[ktilton]

Update of /project/cells/cvsroot/cells/utils-kt
In directory clnet:/tmp/cvs-serv6247/utils-kt

Modified Files:
	debug.lisp utils-kt.lpr 
Log Message:


--- /project/cells/cvsroot/cells/utils-kt/debug.lisp	2006/05/20 06:32:20	1.8
+++ /project/cells/cvsroot/cells/utils-kt/debug.lisp	2006/07/25 10:51:48	1.9
@@ -96,6 +96,8 @@
   (format t "decrementing trc depth ~d" *trcdepth*)
   (decf *trcdepth*))
   
+(export! wtrc)
+
 (defmacro wtrc ((&optional (min 1) (max 50) &rest banner) &body body )
   `(let ((*trcdepth* (if *trcdepth*
                          (1+ *trcdepth*)
--- /project/cells/cvsroot/cells/utils-kt/utils-kt.lpr	2006/07/24 05:03:08	1.14
+++ /project/cells/cvsroot/cells/utils-kt/utils-kt.lpr	2006/07/25 10:51:48	1.15
@@ -1,4 +1,4 @@
-;; -*- lisp-version: "8.0 [Windows] (Jul 12, 2006 12:22)"; cg: "1.81"; -*-
+;; -*- lisp-version: "8.0 [Windows] (Jul 24, 2006 15:27)"; cg: "1.81"; -*-
 
 (in-package :cg-user)