Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
(FILECREATED " 5-Jul-79 23:01:26" <LISPUSERS>DATETIMERECORDS..2 1024
changes to: DATETIME DATETIMEERROR DURATION NUMERAL
QUALIFIEDDATETIME
previous date: " 5-Jul-79 11:03:49" <LISPUSERS>DATETIMERECORDS..1
)
(PRETTYCOMPRINT DATETIMERECORDSCOMS)
(RPAQQ DATETIMERECORDSCOMS ((RECORDS * DATETIMERECORDS)))
(RPAQQ DATETIMERECORDS (DATETIME DATETIMEERROR DURATION
MULTIPLEDATETIMES NUMERAL
QUALIFIEDDATETIME))
[DECLARE: EVAL@COMPILE
(TYPERECORD DATETIME (YEAR MONTH DAYOFMONTH DAYOFWEEK HOUR MINUTE
AMORPM PRINTSTRING TIMEZONE))
(TYPERECORD DATETIMEERROR (ERRORNUMBER MESSAGE ORIGINALTOKENLST
CURRENTTOKENLST)
CURRENTTOKENLST _ TOKENLST)
(TYPERECORD DURATION (STARTDATETIME ENDDATETIME PRINTSTRING))
(TYPERECORD MULTIPLEDATETIMES (OCCURENCEPRED ADVANCEFN DECREMENTFN
NEXTFROMDATEFN PRINTSTRING)
)
(TYPERECORD NUMERAL (VALUE))
(TYPERECORD QUALIFIEDDATETIME (QUALIFIER DATETIME PRINTSTRING))
]
(DECLARE: DONTCOPY
(FILEMAP (NIL)))
STOP