Changeset 2711

Show
Ignore:
Timestamp:
03/08/08 23:34:35 (10 months ago)
Author:
hans
Message:

Make mail-style date more portable

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/utils/utils.lisp

    r2649 r2711  
    2626      (cond 
    2727        (mail-style 
    28          (format s "~A, ~2D ~A ~4D ~2,'0D:~2,'0D:~2,'0D ~A" 
     28         (format s "~A, ~2,'0D ~A ~4D ~2,'0D:~2,'0D:~2,'0D ~A" 
    2929                 (elt #("Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun") weekday) 
    3030                 day (elt #("Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec") (1- month)) year