- (date-string
- (case style
- (:short "~D/~D/~D") ;; MM/DD/Y
- ((:abbreviated :long) "~A ~D, ~D") ;; Month DD, Y
- (:government "~2,'0D ~:@(~A~) ~D") ;; DD MON Y
- (t
- (error "~A: Unrecognized :style keyword value." style))))
- (time-args
- (list mins (max (mod hours 12) (1+ (mod (1- hours) 12)))))
- (date-args (case style
- (:short
- (list month day year))
- (:abbreviated
- (list (svref abbrev-month-table (1- month)) day year))
- (:long
- (list (svref long-month-table (1- month)) day year))
- (:government
- (list day (svref abbrev-month-table (1- month))
- year)))))
+ (date-string
+ (case style
+ (:short "~D/~D/~D") ;; MM/DD/Y
+ ((:abbreviated :long) "~A ~D, ~D") ;; Month DD, Y
+ (:government "~2,'0D ~:@(~A~) ~D") ;; DD MON Y
+ (t
+ (error "~A: Unrecognized :style keyword value." style))))
+ (time-args
+ (list mins (max (mod hours 12) (1+ (mod (1- hours) 12)))))
+ (date-args (case style
+ (:short
+ (list month day year))
+ (:abbreviated
+ (list (svref *abbrev-month-table* (1- month)) day year))
+ (:long
+ (list (svref *long-month-table* (1- month)) day year))
+ (:government
+ (list day (svref *abbrev-month-table* (1- month))
+ year)))))