Show
Ignore:
Timestamp:
05/05/12 07:58:51 (13 months ago)
Author:
rswindells
Message:

Add Y2K fixes.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/lisp/zwei/files.lisp

    r291 r298  
    313313                     (TIME:DECODE-UNIVERSAL-TIME CREATION-DATE) 
    314314                   (FORMAT STREAM "~2,'0D//~2,'0D//~2,'0D ~2,'0D:~2,'0D:~2,'0D" 
    315                            MONTH DAY (\ YEAR 100.) HOURS MINUTES SECONDS)) 
     315                           MONTH DAY YEAR HOURS MINUTES SECONDS)) 
    316316                 (FORMAT STREAM "~17X"))) 
    317317           (LET ((REFERENCE-DATE (GET FILE ':REFERENCE-DATE))) 
    … …  
    319319                  (MULTIPLE-VALUE-BIND (NIL NIL NIL DAY MONTH YEAR) 
    320320                      (TIME:DECODE-UNIVERSAL-TIME REFERENCE-DATE) 
    321                     (FORMAT STREAM " (~2,'0D//~2,'0D//~2,'0D)" MONTH DAY (\ YEAR 100.))))) 
     321                    (FORMAT STREAM " (~2,'0D//~2,'0D//~2,'0D)" MONTH DAY YEAR)))) 
    322322           (LET ((AUTHOR (GET FILE ':AUTHOR))) 
    323323             (AND AUTHOR (NOT (EQUAL AUTHOR (FUNCALL PATHNAME ':DIRECTORY)))