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))