1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 23:36:30 +00:00

Use 4-digit years in LIBDOC; TIME.

This commit is contained in:
Adam Sampson 2018-07-27 17:44:32 +01:00 committed by Adam Sampson
parent 2e7c9ac33a
commit 35774ebf77

View File

@ -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))