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)