Update of /project/cells/cvsroot/cells/utils-kt In directory clnet:/tmp/cvs-serv31515/utils-kt Modified Files: debug.lisp Log Message: Fixed loading in cells.asd --- /project/cells/cvsroot/cells/utils-kt/debug.lisp 2008/01/29 04:29:55 1.17 +++ /project/cells/cvsroot/cells/utils-kt/debug.lisp 2008/02/16 09:34:29 1.18 @@ -87,8 +87,7 @@ ;-------------------- timex --------------------------------- -(eval-when (compile eval load) - (export '(timex))) +(export! timex) (defmacro timex ((onp &rest trcargs) &body body) `(if ,onp @@ -119,10 +118,10 @@ ,form-measured) ,@postlude)) -(export! clock clock-0 clock-off) - (defvar *clock*) +(export! clock clock-0 clock-off) + (defun clock-off (key) (when (boundp '*clock*) (print (list :clock-off key))