Google
 

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