[cells-cvs] CVS cells/utils-kt

[ktilton]

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

Modified Files:
	datetime.lisp detritus.lisp strings.lisp 
Log Message:


--- /project/cells/cvsroot/cells/utils-kt/datetime.lisp	2006/05/20 06:32:20	1.2
+++ /project/cells/cvsroot/cells/utils-kt/datetime.lisp	2006/07/06 22:10:03	1.3
@@ -19,8 +19,9 @@
 
 (in-package :utils-kt)
 
-(eval-when (compile load eval)
-  (export '(os-tickcount time-of-day now hour-min-of-day time-in-zone dd-mmm-yy mmm-dd-yyyy)))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (export '(os-tickcount time-of-day now hour-min-of-day
+            time-in-zone dd-mmm-yy mmm-dd-yyyy)))
 
 (defun os-tickcount ()
   (cl:get-internal-real-time))
@@ -74,8 +75,9 @@
     (format nil "~A ~A, ~A" (month-abbreviation month)
             date year)))
 
-(eval-when (compile load eval)
-  (export '(month-abbreviation weekday-abbreviation week-time mdyy-yymd u-time u-date)))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (export '(month-abbreviation weekday-abbreviation week-time
+            mdyy-yymd u-time u-date)))
 
 (defun month-abbreviation (month)
   (elt '("Jan" "Feb" "Mar" "Apr" "May" "June"
@@ -131,7 +133,7 @@
       year
       )))
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (export '(u-day multiple-value-bind m/d/y mm/dd yyyy-mm-dd)))
 
 (defun u-day (&optional (i-time (get-universal-time)))
@@ -180,7 +182,7 @@
     (format nil "~4,,,'0 at A~2,,,'0 at A~2,,,'0 at A"
       year month date)))
 
-(eval-when (compile load eval)
+(eval-now!
   (export '(ymdhmsh)))
 
 (defun ymdhmsh (&optional (i-time (get-universal-time)))
--- /project/cells/cvsroot/cells/utils-kt/detritus.lisp	2006/05/20 06:32:20	1.6
+++ /project/cells/cvsroot/cells/utils-kt/detritus.lisp	2006/07/06 22:10:03	1.7
@@ -19,10 +19,21 @@
 
 (in-package :utils-kt)
 
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (export '(eval-now!)))
+
 (defmacro wdbg (&body body)
   `(let ((*dbg* t))
      , at body))
 
+(defmacro eval-now! (&body body)
+  `(eval-when (:compile-toplevel :load-toplevel :execute)
+     , at body))
+
+(defmacro export! (&rest symbols)
+  `(eval-when (:compile-toplevel :load-toplevel :execute)
+     (export ',symbols)))
+
 ;;;(defmethod class-slot-named ((classname symbol) slotname)
 ;;;  (class-slot-named (find-class classname) slotname))
 ;;;
--- /project/cells/cvsroot/cells/utils-kt/strings.lisp	2006/05/20 06:32:20	1.4
+++ /project/cells/cvsroot/cells/utils-kt/strings.lisp	2006/07/06 22:10:03	1.5
@@ -19,7 +19,7 @@
 
 (in-package :utils-kt)
 
-(eval-when (compile load eval)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (export '(case$ strloc$  make$  space$  char$  conc-list$  conc$
              left$  mid$  seg$  right$  insert$  remove$
              trim$  trunc$  abbrev$  empty$ find$  num$