1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-26 04:02:06 +00:00

Make (STATUS DATE) return a four-digit year.

This is a change to the API, but existing users are already inconsistent
in how they handle 2-digit years -- some assume it's year % 100 (as the
documentation says), some assume it's year - 1900, and some
string-prepend "19" -- so most have Y2K problems that need fixing.

As it's now reading the date using two UUOs, it needs to be careful to
check that the year hasn't rolled over between the two, as LIBDOC; TIME
does for the day.

I've updated all four implementations of SDATE, but only tested the ITS
version.
This commit is contained in:
Adam Sampson
2018-07-27 17:07:58 +01:00
committed by Adam Sampson
parent 6198526639
commit aadfbe890a
2 changed files with 19 additions and 10 deletions

View File

@@ -3599,7 +3599,7 @@ Note: the various enquiries related to time may return nil in the rare
circumstance that LISP cannot determine what time it is.
date (status date) returns a 3-list of fixnums indicating the current date
as (last-two-digits-of-the-year month-number day).
as (year month-number day). The year value is complete (e.g. 2001.).
dow (status dow) returns an interned atomic symbol which is the name of
the current day of the week.