Ignore:
Timestamp:
05/05/12 14:58:51 (3 years ago)
Author:
rswindells
Message:

Add Y2K fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lisp/zwei/files.lisp

    r291 r298  
    315315                     (TIME:DECODE-UNIVERSAL-TIME CREATION-DATE)
    316316                   (FORMAT STREAM "~2,'0D//~2,'0D//~2,'0D ~2,'0D:~2,'0D:~2,'0D"
    317                            MONTH DAY (\ YEAR 100.) HOURS MINUTES SECONDS))
     317                           MONTH DAY YEAR HOURS MINUTES SECONDS))
    318318                 (FORMAT STREAM "~17X")))
    319319           (LET ((REFERENCE-DATE (GET FILE ':REFERENCE-DATE)))
     
    321321                  (MULTIPLE-VALUE-BIND (NIL NIL NIL DAY MONTH YEAR)
    322322                      (TIME:DECODE-UNIVERSAL-TIME REFERENCE-DATE)
    323                     (FORMAT STREAM " (~2,'0D//~2,'0D//~2,'0D)" MONTH DAY (\ YEAR 100.)))))
     323                    (FORMAT STREAM " (~2,'0D//~2,'0D//~2,'0D)" MONTH DAY YEAR))))
    324324           (LET ((AUTHOR (GET FILE ':AUTHOR)))
    325325             (AND AUTHOR (NOT (EQUAL AUTHOR (FUNCALL PATHNAME ':DIRECTORY)))
Note: See TracChangeset for help on using the changeset viewer.