[cells-cvs] CVS cells/utils-kt

[phildebrandt]

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