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@A~2,,,'0@A~2,,,'0@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)) ,@body))
+(defmacro eval-now! (&body body) + `(eval-when (:compile-toplevel :load-toplevel :execute) + ,@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$