From 35774ebf7740cb34dd81b78fff54738df41c3cdd Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Fri, 27 Jul 2018 17:44:32 +0100
Subject: [PATCH] Use 4-digit years in LIBDOC; TIME.

---
 src/libdoc/{time.kmp9 => time.10} | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)
 rename src/libdoc/{time.kmp9 => time.10} (99%)

diff --git a/src/libdoc/time.kmp9 b/src/libdoc/time.10
similarity index 99%
rename from src/libdoc/time.kmp9
rename to src/libdoc/time.10
index 42d61949..94a7681d 100644
--- a/src/libdoc/time.kmp9
+++ b/src/libdoc/time.10
@@ -67,7 +67,7 @@
 ;;;
 
 #+Maclisp
-(HERALD TIME /4)
+(HERALD TIME)
 
 #+Maclisp
 (DEFVAR STANDARD-OUTPUT TYO)
@@ -152,7 +152,7 @@
   (FORMAT STREAM "~D//~D//~D ~D:~2,'0D:~2,'0D"
 	  MONTH
 	  DATE
-	  (- YEAR 1900.)
+	  YEAR
 	  HOURS
 	  MINUTES
 	  SECONDS))