[stamp-cvs] CVS stamp - stamp-cvs@common-lisp.net - mailman3.common-lisp.net

5 Dec 2007

Update of /project/stamp/cvsroot/stamp
In directory clnet:/tmp/cvs-serv27629
Modified Files:
    skeleton 
Log Message:
More cleanups.

--- /project/stamp/cvsroot/stamp/skeleton	2007/12/05 06:29:52	1.2
+++ /project/stamp/cvsroot/stamp/skeleton	2007/12/05 12:14:00	1.3
@@ -1,19 +1,16 @@
 (in-package :stamp-core)
+
 (define-filter unread (unread)
   unread)
-(define-filter one-day-ago (date)
-  (< (- (get-universal-time) 86400)
-     date))
+(define-filter last-day (date)
+  (> date (- (get-universal-time) #.(* 24 60 60))))
-(define-filter one-week-ago (date)
-  (< (- (get-universal-time) 604800)
-     date))
+(define-filter last-week (date)
+  (> date (- (get-universal-time) #.(* 7 24 60 60))))
-(define-filter one-month-ago (date)
-  (< (- (get-universal-time) 2592000)
-     date))
+(define-filter last-month (date)
+  (> date (- (get-universal-time) #.(* 30 24 60 60))))
-(define-filter one-year-ago (date)
-  (< (- (get-universal-time) 31536000)
-     date))
+(define-filter last-year (date)
+  (> date (- (get-universal-time) #.(* 365 24 60 60))))

    