[cells-cvs] CVS cells/utils-kt
ktilton
ktilton at common-lisp.net
Thu Jul 6 22:10:03 UTC 2006
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$
More information about the Cells-cvs
mailing list