[Mit-cadr-cvs] r399 - in branches/ggilley: emulator/usim lisp/io

[ggilley at common-lisp.net]

Author: ggilley
Date: Fri Dec  7 13:19:52 2012
New Revision: 399

Log:
fix a Y2K problem with file dates

Modified:
   branches/ggilley/emulator/usim/Files.c
   branches/ggilley/lisp/io/pathnm.lisp

Modified: branches/ggilley/emulator/usim/Files.c
==============================================================================
--- branches/ggilley/emulator/usim/Files.c	Thu Dec  6 21:20:59 2012	(r398)
+++ branches/ggilley/emulator/usim/Files.c	Fri Dec  7 13:19:52 2012	(r399)
@@ -90,7 +90,7 @@
 #include <sys/statvfs.h>
 #endif
 
-#define TRUNCATE_DATES  1
+#define TRUNCATE_DATES  0
 
 #define CHSP	(040)
 #define CHNL	(0200|015)

Modified: branches/ggilley/lisp/io/pathnm.lisp
==============================================================================
--- branches/ggilley/lisp/io/pathnm.lisp	Thu Dec  6 21:20:59 2012	(r398)
+++ branches/ggilley/lisp/io/pathnm.lisp	Fri Dec  7 13:19:52 2012	(r399)
@@ -2389,7 +2389,7 @@
 	(AND (PLUSP MONTH)
 	     (TIME:ENCODE-UNIVERSAL-TIME SECONDS MINUTES HOURS DAY MONTH YEAR)))
       ;;Not in simple format, escape to full parser
-      (LET ((DATE (TIME:PARSE-UNIVERSAL-TIME STRING START)))
+      (LET ((DATE (TIME:PARSE-UNIVERSAL-TIME STRING START END)))
 	(AND (NUMBERP DATE) DATE))))
 
 (DEFUN PARSE-DIRECTORY-DATE-PROPERTY-1 (STRING START)