56187 Cin (list* (list "Overall" *pastes* (- (paste-universal-time (first *pastes*)) (paste-universal-time (car (last *pastes*))))) (list "Last 30 days" (remove-if #'(lambda (e) (< (paste-universal-time e) (- (get-universal-time) (* 60 60 24 30)))) *pastes*) (* 60 60 24 30)) (list "Last week" (remove-if #'(lambda (e) (< (paste-universal-time e) (- (get-universal-time) (* 60 60 24 7)))) *pastes*) (* 60 60 24 7)) (list "Last day" (remove-if #'(lambda (e) (< (paste-universal-time e) (- (get-universal-time) (* 60 60 24)))) *pastes*) (* 60 60 24)) 3412466666 #lispcafe Common Lisp 1 Cin (let* ((remove/time (lambda (t) (remove-if #'(lambda (e) (< (paste-universal-time e) (- (get-universal-time) t))))) (day (* 60 60 24)) (week (* day 7)) (30-days (* day 30)) (overall (list "Overall" *pastes* ;; etc.. (last-30-days (list "Last 30 days" (remove/time 30-days) 30-days)) (last-week (list "Last week" (remove/time week) week)) (last-day (list "Last day" (remove/time day) day))) (list* overall last-day last-week last-30-days)) 3412466674 #lispcafe