DEFINE-FILE-INFO with its own reader environment (#381)

* DEFINE-FILE-INFO with its own reader environment

Including format.  That reader environment also allows colon as a package delimiter, in addition to the funky control and upper panel character.

"Function" is now a synonym for character set 2.  WITH-READER-ENVIRONMENT doesn't bind EXTERNALFORMAT.

* Changed *DEFAULT-MAKEFILE-ENVIRONMENT* to use Interlisp rdtbl

* Store FDEV's default externalformat in the FDEV

And related adjustments so that the display output stream (which is created in various places) is always created with the right (CR) EOL convention.  Also a little simpler interface for creating external formats.

library/RDSYS

@@ -1,5 +1,6 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
-
(FILECREATED "27-Jul-2021 21:13:24" |{DSK}<home>larry>new>medley>tmp>RDSYS.;2|
)
+
(FILECREATED "30-Jul-2021 13:12:07" |{DSK}<Users>kaplan>Local>medley3.5>git-medley>tmp>RDSYS.;8|

+)
 
 
 (PRETTYCOMPRINT RDSYSCOMS)

library/exports.all

@@ -1,5 +1,6 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
-(LISPXPRIN1 "EXPORTS GATHERED FROM {DSK}<home>larry>new>medley>sources> ON 27-Jul-2021 21:13:38"  T)
+(LISPXPRIN1 "EXPORTS GATHERED FROM {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources> ON 
+30-Jul-2021 13:12:33"  T)
 (LISPXTERPRI T)
 (RPAQQ MODARITHMACROS (CEIL FLOOR FOLDHI FOLDLO MODUP UNFOLD MOD))
 (PUTPROPS CEIL MACRO ((X N) (FLOOR (IPLUS X (CONSTANT (SUB1 N))) N)))
@@ -52,7 +53,7 @@ MAX.FIXP))))
 LOGOR (LSH 1 (SUB1 SMALLP.LENGTH)) (SUB1 (LSH 1 (SUB1 SMALLP.LENGTH))))) (MIN.SMALLP (IDIFFERENCE -1 
 MAX.SMALLP)) (BITS.PER.FIXP BITSPERCELL) (FIXP.LENGTH (SUB1 BITS.PER.FIXP)) (MAX.FIXP (LOGOR (LSH 1 (
 SUB1 FIXP.LENGTH)) (SUB1 (LSH 1 (SUB1 FIXP.LENGTH))))) (MIN.FIXP (IDIFFERENCE -1 MAX.FIXP)))
-(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:46:21"))
 
 (RPAQQ WINDFLG T)
 (CONSTANTS (WINDFLG T))
@@ -614,7 +615,7 @@ QUOTE \\VAG2) |\\D0BCPLspace| (CAR X))))))
 (PUTPROPS EMADDRESSP MACRO (X (LIST (QUOTE EQ) (LIST (QUOTE \\HILOC) (CAR X)) (COND ((EQ 
 |\\D1BCPLspace| |\\D0BCPLspace|) |\\D0BCPLspace|) (T (QUOTE (|fetch| (IFPAGE |EmulatorSpace|) |of| 
 |\\InterfacePage|)))))))
-(PUTPROP (QUOTE LLPARAMS) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLPARAMS) (QUOTE IMPORTDATE) (IDATE " 7-Feb-2021 11:52:02"))
 
 (DATATYPE COMPILED-CLOSURE (FNHEADER ENVIRONMENT))
 (RPAQQ \\COMPILED-CLOSURE 13)
@@ -734,7 +735,7 @@ CODEARRAY NA) |of| DATUM) 0)) (OVERHEADWORDS (PROGN 8)) (ALIGNED (IPLUS (|fetch|
 (RPAQQ \\NT.PVARCODE 2)
 (RPAQQ \\NT.FVARCODE 3)
 (CONSTANTS \\NT.IVARCODE \\NT.PVARCODE \\NT.FVARCODE)
-(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "19-Jan-1993 10:45:33"))
 
 (RPAQQ \\ERRORMESSAGELIST ("SYSTEM ERROR" " " "STACK OVERFLOW" "ILLEGAL RETURN" "ARG NOT LIST" 
 "HARD DISK ERROR" "ATTEMPT TO SET NIL OR T" "ATTEMPT TO RPLAC NIL" "UNDEFINED OR ILLEGAL GO" 
@@ -751,7 +752,7 @@ CODEARRAY NA) |of| DATUM) 0)) (OVERHEADWORDS (PROGN 8)) (ALIGNED (IPLUS (|fetch|
 (DEFOPTIMIZER LISPERROR (MESSAGE ARG) (BQUOTE (\\LISPERROR (\\\, ARG) (\\\, (CL:IF (CL:STRINGP MESSAGE
 ) (FOR X IN \\ERRORMESSAGELIST AS I FROM 0 WHEN (CL:EQUAL X MESSAGE) DO (RETURN I) FINALLY (RETURN (
 HELP "Unknown error message" (LIST MESSAGE ARG)))) MESSAGE)))))
-(PUTPROP (QUOTE AERROR) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:28"))
+(PUTPROP (QUOTE AERROR) (QUOTE IMPORTDATE) (IDATE "16-May-1990 11:58:35"))
 
 (RECORD BASEBYTESTREAM STREAM (SUBRECORD STREAM) (ACCESSFNS ((BIASOFFST (|fetch| (STREAM FW6) |of| 
 DATUM) (|replace| (STREAM FW6) |of| DATUM |with| NEWVALUE)) (BBSNCHARS (|fetch| (STREAM FW7) |of| 
@@ -761,13 +762,13 @@ DATUM) (|replace| (STREAM FW7) |of| DATUM |with| NEWVALUE)) (WRITEXTENSIONFN (|f
 (PUTPROPS \\OUTSTREAMARG MACRO ((STRM NOERRORFLG) (\\GETSTREAM STRM (QUOTE OUTPUT) NOERRORFLG)))
 (PUTPROPS \\STREAMARG MACRO (OPENLAMBDA (STRM NOERRORFLG) (COND (NOERRORFLG (\\GETSTREAM STRM NIL T)) 
 (T (\\DTEST STRM (QUOTE STREAM))))))
-(PUTPROP (QUOTE AOFD) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:36:17"))
+(PUTPROP (QUOTE AOFD) (QUOTE IMPORTDATE) (IDATE "13-Jun-2021 11:35:32"))
 
 (PUTPROPS .SPACECHECK. MACRO ((STRM N) (AND \\THISFILELINELENGTH (IGREATERP (IPLUS N (|fetch| 
 CHARPOSITION |of| STRM)) \\THISFILELINELENGTH) (FRESHLINE STRM))))
 (PUTPROPS \\CHECKRADIX MACRO (LAMBDA (R) (COND ((OR (NOT (SMALLP R)) (ILESSP R 1) (IGREATERP R 36)) (
 \\INVALID.RADIX R)) (T R))))
-(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:27:52"))
+(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE " 9-Jun-2021 22:50:15"))
 
 (GLOBALVARS \\BCPLDISPLAY)
 (ACCESSFNS LINEBUFFER ((LPARCOUNT (|fetch| FW6 |of| DATUM) (|replace| FW6 |of| DATUM |with| NEWVALUE))
@@ -787,7 +788,7 @@ PEEKEDECHOFLG FLAG) (INSTRINGP FLAG)))))
 (PUTPROPS \\INTERMP MACRO ((OFD) (EQ OFD \\LINEBUF.OFD)))
 (PUTPROPS \\OUTTERMP MACRO ((OFD) (EQ OFD \\TERM.OFD)))
 (GLOBALVARS \\DEFAULTLINEBUF)
-(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:37:14"))
+(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "23-Jun-2021 12:31:16"))
 
 (DATATYPE HARRAYP ((NULLSLOTS WORD) (* \; "Number of NIL-NIL slots, which break chains") (LASTINDEX 
 WORD) (* \; 
@@ -889,7 +890,7 @@ ARRAYBLOCK ARLEN) |of| DATUM) |\\ArrayBlockTrailerCells|))))) (TYPE? (AND (EQ 0
 (GLOBALVARS |\\NxtArrayPage| \\FREEBLOCKBUCKETS \\HUNKING?)
 (PUTPROPS HUNKSIZEFROMNUMBER MACRO ((NTYPX) (FOLDLO (|fetch| DTDSIZE |of| (\\GETDTD NTYPX)) 
 WORDSPERCELL)))
-(PUTPROP (QUOTE LLARRAYELT) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLARRAYELT) (QUOTE IMPORTDATE) (IDATE "15-Sep-1994 11:08:59"))
 
 (DEFOPTIMIZER PUTBASEPTRX (&REST ARGS) (CONS (QUOTE (OPENLAMBDA (DATUM OFFSET NEWVALUE) (
 UNINTERRUPTABLY (\\PUTBASE DATUM OFFSET (LOGOR (LOGAND 61440 (\\GETBASE DATUM OFFSET)) (LOGAND (
@@ -939,7 +940,7 @@ BQUOTE ((OPCODES TYPEMASK.N (\\\, (CAR CE))) (\\\, (CAR X)))) |else| (QUOTE IGNO
 (CONSTANTS \\GUARDSTORAGEFULL \\GUARD1STORAGEFULL)
 (GLOBALVARS |\\NxtMDSPage| |\\LeastMDSPage| |\\SecondArrayPage| |\\SecondMDSPage| \\MDSFREELISTPAGE 
 |\\MaxSysTypeNum| |\\MaxTypeNumber| \\STORAGEFULL \\INTERRUPTSTATE \\PENDINGINTERRUPT)
-(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "28-Jun-1999 16:57:50"))
 
 (ACCESSFNS POINTER ((PAGE# (IPLUS (LLSH (\\HILOC DATUM) 8) (LRSH (\\LOLOC DATUM) 8))) (WORDINPAGE (
 LOGAND (\\LOLOC DATUM) 255)) (CELLINPAGE (LRSH (|fetch| WORDINPAGE |of| DATUM) 1)) (BYTEINPAGE (LLSH (
@@ -976,7 +977,7 @@ FIXP) (* \; "Empty cells, space for another 2 CONS cells if we can figure out ho
 (CONSTANTS \\CDR.ONPAGE \\CDR.NIL \\CDR.INDIRECT \\CDR.MAXINDIRECT \\CONSPAGE.LAST)
 (PUTPROPS LOCAL MACRO ((X) X))
 (PUTPROPS ALLOCAL MACRO ((X) X))
-(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE " 2-Feb-1995 16:21:44"))
 
 (PUTPROPS CHECK MACRO (ARGS (COND ((AND (BOUNDP (QUOTE CHECK)) CHECK) (CONS (QUOTE PROGN) (|for| I 
 |in| ARGS |collect| (LIST (QUOTE OR) I (LIST (QUOTE RAID) (KWOTE (LIST (QUOTE |Check-failure:|) I)))))
@@ -1086,7 +1087,7 @@ LOGAND X 65535))))) (T (* \; "New symbol") X))))
 \\NEWATOM-PLISTOFFSET 6) (\\NEWATOM-TYPE# 21))
 (PUTPROPS \\MOVEWORDS MACRO (OPENLAMBDA (SBASE SOFFSET DBASE DOFFSET NWORDS) (\\BLT (\\ADDBASE DBASE 
 DOFFSET) (\\ADDBASE SBASE SOFFSET) NWORDS)))
-(PUTPROP (QUOTE LLBASIC) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLBASIC) (QUOTE IMPORTDATE) (IDATE "31-Jan-1998 09:55:50"))
 
 (ACCESSFNS STRINGP ((XREADONLY (|fetch| (ARRAY-HEADER READ-ONLY-P) |of| DATUM) (|replace| (
 ARRAY-HEADER READ-ONLY-P) |of| DATUM |with| NEWVALUE)) (XBASE ((OPENLAMBDA (STRING) (COND ((|fetch| (
@@ -1217,7 +1218,7 @@ OFFSET CODE)) (T (\\PUTBASETHIN BASE OFFSET CODE)))))
 ) (\#STRINGPWORDS 4))
 (PUTPROPS \\NATOMCHARS DMACRO ((AT) (|fetch| (LITATOM PNAMELENGTH) |of| AT)))
 (PUTPROPS \\NSTRINGCHARS DMACRO ((S) (|fetch| (STRINGP LENGTH) |of| S)))
-(PUTPROP (QUOTE LLCHAR) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:37:02"))
+(PUTPROP (QUOTE LLCHAR) (QUOTE IMPORTDATE) (IDATE "21-Jun-2021 18:08:19"))
 
 (ACCESSFNS BF ((BFBLOCK (ADDSTACKBASE DATUM))) (* \; "basic frame pointer") (BLOCKRECORD BFBLOCK ((
 FLAGS BITS 3) (NIL BITS 3) (RESIDUAL FLAG) (* \; "true if this is not a full BF") (PADDING BITS 1) (
@@ -1334,7 +1335,7 @@ BINDNEGVALUES |of| DATUM) 65535))))))
 (RPAQQ \\NT.PVAR 128)
 (RPAQQ \\NT.FVAR 192)
 (CONSTANTS \\NT.IVAR \\NT.PVAR \\NT.FVAR)
-(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE " 6-Jan-1993 18:07:37"))
 
 (PUTPROPS WORDCONTENTS BYTEMACRO ((PTR) (\\GETBASE PTR 0)))
 (PUTPROPS SETWORDCONTENTS BYTEMACRO ((PTR N) (\\PUTBASE PTR 0 N)))
@@ -1343,7 +1344,7 @@ BINDNEGVALUES |of| DATUM) 65535))))))
 |fetch| CBUFDIRTY |of| STREAM) (\\SETIODIRTY STREAM (|fetch| CPAGE |of| STREAM)) (|replace| CBUFDIRTY 
 |of| STREAM |with| NIL))) (|replace| CBUFSIZE |of| STREAM |with| 0) (|replace| CBUFPTR |of| STREAM 
 |with| NIL))))
-(PUTPROP (QUOTE PMAP) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:37:14"))
+(PUTPROP (QUOTE PMAP) (QUOTE IMPORTDATE) (IDATE "23-Jun-2021 12:40:35"))
 
 (PUTPROPS ADDREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\\ADDREF PTR))))
 (PUTPROPS \\ADDREF DMACRO ((X) ((OPCODES GCREF 0) X)))
@@ -1373,7 +1374,7 @@ DATUM 0) -2) (\\PUTBASEFIXP DATUM 0 (LOGOR NEWVALUE 1))))))
 ) (FREEPTR FIXP) (* \; "The GC table entry") (NEXTFREE FIXP) (* \; 
 "If the entry is in use, points to the next entry in this collision chain.  If not, offset (in 1/2-entries) of the next free one on the chain."
 )))
-(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE "19-Oct-1994 12:30:11"))
 
 (PUTPROPS \\SYNCODE DMACRO (OPENLAMBDA (TABLE CHAR) (CHECK (|type?| CHARTABLE TABLE)) (* \; 
 "0 is either NONE.TC, REAL.CCE, or OTHER.RC") (COND ((IGREATERP CHAR \\MAXTHINCHAR) (OR (AND (|fetch| 
@@ -1484,7 +1485,7 @@ FLAG) (DISPATCHMACRODEFS POINTER) (* \;
 "The character code used in this read table for multiple escape") (PACKAGECHAR BYTE) (* \; 
 "The character code used in this read table for package delimiter") (READTBLNAME POINTER) (* \; 
 "The canonical 'name' of this read table")) READSA _ (|create| CHARTABLE))
-(PUTPROP (QUOTE ATBL) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:38:55"))
+(PUTPROP (QUOTE ATBL) (QUOTE IMPORTDATE) (IDATE " 9-Jul-2021 15:28:19"))
 
 (DATATYPE STREAM ((* |;;| 
 "First 8 words are fixed for BIN, BOUT opcodes.  Used to require length of whole datatype be multiple of 4, but Dolphin dead now."
@@ -1705,7 +1706,7 @@ BYTESPERPAGE))))
 (ACCESSFNS BYTEPTR ((PAGE (FOLDLO DATUM BYTESPERPAGE)) (OFFSET (MOD DATUM BYTESPERPAGE))) (TYPE? (AND 
 (FIXP DATUM) (IGEQ DATUM 0) (ILEQ DATUM \\MAXFILEPTR))) (CREATE (IPLUS (UNFOLD PAGE BYTESPERPAGE) 
 OFFSET)))
-(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:38:55"))
+(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE "30-Jul-2021 13:05:48"))
 
 (BLOCKRECORD FIXP ((HINUM WORD) (LONUM WORD)) (CREATE (CREATECELL \\FIXP)) (TYPE? (EQ (NTYPX DATUM) 
 \\FIXP)))
@@ -1737,7 +1738,7 @@ ADD1 (IDIFFERENCE MAX.SMALL.INTEGER HY)))) (T (IPLUS HX HY)))) (* |Add| |high| |
 COND ((EQ HX MAX.SMALL.INTEGER) 0) (T (ADD1 HX)))) (IDIFFERENCE LX (ADD1 (IDIFFERENCE 
 MAX.SMALL.INTEGER LY)))) (T (IPLUS LX LY)))) (\\PUTBASE X 0 HX) (RETURN X))))
 (PUTPROPS |PutUnboxed| DMACRO (= . \\PUTFIXP))
-(PUTPROP (QUOTE LLARITH) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 18:47:56"))
 
 (PUTPROPS POLYEVAL DMACRO ((X COEFFS DEGREE) (* \; 
 "execute the POLYEVAL opcode on the value X, the array COEFFS with degree DEGREE") (\\FLOATBOX ((
@@ -1760,7 +1761,7 @@ FX NEXTBLOCK) |of| AL)) (\\\,@ (|for| X |in| (REVERSE ARGS) |collect| (LET ((FOR
 SETQ (\\\, (CAR X)) (\\FLOATBOX (\\\, FORMS))))) (T (BQUOTE (SETQ (\\\, X) (\\\, FORMS)))))))) (
 \\MAKEFREEBLOCK NEXT (TIMES (\\\, (LENGTH ARGS)) WORDSPERCELL)) (|replace| (FX NEXTBLOCK) |of| AL 
 |with| NEXT) (PROGN (\\\,@ FORMS))))))))
-(PUTPROP (QUOTE LLFLOAT) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLFLOAT) (QUOTE IMPORTDATE) (IDATE "16-May-1990 19:26:51"))
 
 (DEFOPTIMIZER FONTPROP (&REST ARGS) (SELECTQ (AND (EQ (CAADR ARGS) (QUOTE QUOTE)) (CADADR ARGS)) (
 ASCENT (LIST (QUOTE FONTASCENT) (CAR ARGS))) (DESCENT (LIST (QUOTE FONTDESCENT) (CAR ARGS))) (HEIGHT (
@@ -1827,7 +1828,7 @@ WIDTH)))
 CHAR8CODE))))
 (RPAQQ \\MAXNSCHAR 65535)
 (CONSTANTS (\\MAXNSCHAR 65535))
-(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:28"))
+(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE " 9-Feb-2021 11:39:44"))
 
 (BLOCKRECORD KEYACTION ((* |;;| 
 "KEYACTION Table:  For interpreting keystrokes.  Stored as a 8-cell block of untyped pointer hunk storage."
@@ -1875,7 +1876,7 @@ YPOS)))))
 \\EM.KBDAD1 \\EM.KBDAD2 \\EM.KBDAD3 \\EM.KBDAD4 \\EM.KBDAD5 \\EM.DISPINTERRUPT \\EM.DISPLAYHEAD 
 \\EM.CURSORBITMAP \\MACHINETYPE \\DEFAULTKEYACTION \\COMMANDKEYACTION \\CURRENTKEYACTION 
 \\PERIODIC.INTERRUPT \\PERIODIC.INTERRUPT.FREQUENCY)
-(PUTPROP (QUOTE LLKEY) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:27:52"))
+(PUTPROP (QUOTE LLKEY) (QUOTE IMPORTDATE) (IDATE "11-Jun-2021 09:43:22"))
 
 (DATATYPE PILOTBBT ((PBTDESTLO WORD) (PBTDESTHI WORD) (PBTDESTBIT WORD) (PBTDESTBPL SIGNEDWORD) (
 PBTSOURCELO WORD) (PBTSOURCEHI WORD) (PBTSOURCEBIT WORD) (PBTSOURCEBPL SIGNEDWORD) (PBTWIDTH WORD) (
@@ -1976,7 +1977,7 @@ IGNOREMACRO))))
 (PUTPROPS DISPLAYSTARTEDP MACRO (NIL |\\DisplayStarted|))
 (GLOBALVARS |\\DisplayStarted| |\\DisplayStreamsInitialized| |\\DisplayInitialed| WHOLEDISPLAY 
 WHOLESCREEN SCREENWIDTH SCREENHEIGHT)
-(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "18-Apr-1994 00:20:42"))
 
 (RECORD REGION (LEFT BOTTOM WIDTH HEIGHT) LEFT _ -16383 BOTTOM _ -16383 WIDTH _ 32767 HEIGHT _ 32767 (
 ACCESSFNS ((TOP (IPLUS (|fetch| (REGION BOTTOM) |of| DATUM) (|fetch| (REGION HEIGHT) |of| DATUM) -1)) 
@@ -2021,7 +2022,7 @@ PRINTCURSOR))))))))
 (ADDTOVAR GLOBALVARS GRAYSHADE)
 (RECORD HLS (HUE LIGHTNESS SATURATION))
 (RECORD RGB (RED GREEN BLUE))
-(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:36:17"))
+(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "13-Jun-2021 14:03:35"))
 
 (ADDTOVAR SYSSPECVARS \\INTERRUPTABLE)
 (PUTPROPS UNINTERRUPTABLY INFO EVAL)
@@ -2046,7 +2047,7 @@ BITS 8) (* \; "Mask to prevent re-interrupt for an interrupt in progress") (NIL
 (PUTPROPS \\TAKEINTERRUPT DMACRO ((PREFORM POSTFORM) (DECLARE (GLOBALVARS \\PENDINGINTERRUPT)) (COND (
 (AND \\PENDINGINTERRUPT (INTERRUPTABLE~=NILUPTHESTACK)) PREFORM ((LAMBDA (\\INTERRUPTABLE) (
 \\CALLINTERRUPTED)) T) POSTFORM))))
-(PUTPROP (QUOTE AINTERRUPT) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:28"))
+(PUTPROP (QUOTE AINTERRUPT) (QUOTE IMPORTDATE) (IDATE "17-Sep-1992 10:42:38"))
 
 (PUTPROPS UNLESSRDSYS MACRO ((NORMAL RDSYS) NORMAL))
 (PUTPROPS UNLESSINEW MACRO ((NORMAL I-NEW) NORMAL))
@@ -2067,7 +2068,7 @@ BITS 8) (* \; "Mask to prevent re-interrupt for an interrupt in progress") (NIL
 (PUTPROPS VAG2 DMACRO (= . \\VAG2))
 (PUTPROPS PAGEBASE MACRO ((PTR) (|fetch| (POINTER PAGEBASE) |of| PTR)))
 (PUTPROPS PAGELOC MACRO (OPENLAMBDA (PTR) (IPLUS (LLSH (\\HILOC PTR) 8) (LRSH (\\LOLOC PTR) 8))))
-(PUTPROP (QUOTE RENAMEMACROS) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE RENAMEMACROS) (QUOTE IMPORTDATE) (IDATE "27-Apr-1994 15:43:27"))
 
 (PUTPROPS MOUSESTATE MACRO (ARGS (LIST (QUOTE PROGN) (QUOTE (GETMOUSESTATE)) (MOUSESTATE-EXPR (CAR 
 ARGS) T))))
@@ -2086,7 +2087,7 @@ ARGS)))))
 (PUTPROPS WITHIN MACRO ((A B C) (AND (IGEQ A B) (ILESSP A (IPLUS B C)))))
 (ADDTOVAR GLOBALVARS LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS)
 (PUTPROPS IABS MACRO (OPENLAMBDA (A) (COND ((IGEQ A 0) A) (T (IMINUS A)))))
-(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:28"))
+(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE "15-Mar-1994 10:48:02"))
 
 (PUTPROPS .COPYKEYDOWNP. MACRO (NIL (OR (KEYDOWNP (QUOTE LSHIFT)) (KEYDOWNP (QUOTE RSHIFT)) (KEYDOWNP 
 (QUOTE COPY)))))
@@ -2160,7 +2161,7 @@ SCDESTINATION) |of| DATUM) (|fetch| (BITMAP BITMAPBITSPERPIXEL) |of| (|fetch| (S
 |of| DATUM))) (T 1))) (SCREGION (|create| REGION LEFT _ 0 BOTTOM _ 0 WIDTH _ (|fetch| (SCREEN SCWIDTH)
  |of| DATUM) HEIGHT _ (|fetch| (SCREEN SCHEIGHT) |of| DATUM))))) (SYSTEM))
 (GLOBALVARS WINDOWUSERFORMS ENDOFWINDOWUSERFORMS PROMPTWINDOW)
-(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:36:17"))
+(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE "13-Jun-2021 10:14:32"))
 
 (PUTPROPS NNLITATOM MACRO (OPENLAMBDA (X) (AND X (LITATOM X))))
 (PUTPROPS \\NULL.OR.FIXP MACRO (OPENLAMBDA (X) (OR (NULL X) (FIXP X))))
@@ -2175,7 +2176,7 @@ ERROR VAR MSG)))))))))
 (PUTPROPS \\MACRO.EVAL DMACRO (Z (PROG ((X (EXPANDMACRO (CAR Z) T))) (|if| (EQ X (CAR Z)) |then| (
 ERROR "No macro property -- \\MACRO.EVAL" X) |else| (RETURN (EVAL X))))))
 (DEFOPTIMIZER \\MACRO.MX (FORM) FORM)
-(PUTPROP (QUOTE MACROAUX) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE MACROAUX) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:26:31"))
 
 (RPAQQ MASK0WORD1\'S 32767)
 (RPAQQ MASK1WORD0\'S 32768)
@@ -2247,11 +2248,11 @@ IMOD OFFST BITSPERBYTE)) 1))))
 (|if| (|if| (EQ 0 (LOGAND |\\BitMask| |\\Byte|)) |then| (NOT (EQ 0 VAL)) |else| (EQ 0 VAL)) |then| (
 \\PUTBASEBYTE BASE |\\ByteNo| (LOGXOR |\\BitMask| |\\Byte|))) VAL) (FOLDLO OFFST BITSPERBYTE) (
 MASK.1\'S (IDIFFERENCE (CONSTANT (SUB1 BITSPERBYTE)) (IMOD OFFST BITSPERBYTE)) 1))))
-(PUTPROP (QUOTE ADDARITH) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:28"))
+(PUTPROP (QUOTE ADDARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 11:46:37"))
 
 (RPAQQ \\MAXFILEPAGE 65534)
 (CONSTANTS \\MAXFILEPAGE)
-(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "21-Mar-2021 21:33:01"))
 
 (PUTPROPS \\UPDATETIMERS MACRO (NIL (* * |Moves| |excess| |time| |from| |the| |processor| |clock| |to|
  |our| |software| |clocks.| |Needs| |to| |be| |run| |often,| |uninterruptably,| |preferably| |from| 
@@ -2280,7 +2281,7 @@ SECONDSCLOCK |of| \\MISCSTATS)) 1) T))))))
 62500))
 (PUTPROPS ALTO.TO.LISP.DATE MACRO ((DATE) (LOGXOR DATE -2147483648)))
 (PUTPROPS LISP.TO.ALTO.DATE MACRO ((DATE) (LOGXOR DATE -2147483648)))
-(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:13:11"))
 
 (RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR) BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1)
 (PUTPROPS IMAGEOP MACRO (ARGS (CONS (QUOTE SPREADAPPLY*) (CONS (COND ((EQ (CAR (LISTP (CAR ARGS))) (
@@ -2315,7 +2316,7 @@ _ (FUNCTION NILL) IMTRANSLATE _ (FUNCTION NILL) IMPUSHSTATE _ (FUNCTION NILL) IM
 NILL) IMSCALE2 _ (FUNCTION NILL) IMDEFAULTSTATE _ (FUNCTION NILL) IMBLTCHAR _ (FUNCTION \\MEDW.BLTCHAR
 ) IMXOFFSET _ (FUNCTION \\MEDW.XOFFSET) IMYOFFSET _ (FUNCTION \\MEDW.YOFFSET))
 (GLOBALVARS \\NOIMAGEOPS)
-(PUTPROP (QUOTE IMAGEIO) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:28"))
+(PUTPROP (QUOTE IMAGEIO) (QUOTE IMPORTDATE) (IDATE "28-Jun-1999 16:33:59"))
 
 (DATATYPE PROCESS ((PROCFX0 WORD) (* \; "= \\STACKHI to make this look like a STACKP") (PROCFX WORD) (
 * \; "Stack pointer to this context when it is asleep") (PROCSTATUS BYTE) (* \; "Running or waiting") 
@@ -2355,7 +2356,7 @@ _ (CREATECELL \\FIXP) PROCFX0 _ \\STACKHI)
 (PUTPROPS TTY.PROCESSP MACRO (X (COND ((CAR X) (QUOTE IGNOREMACRO)) (T (QUOTE (OR (NULL (THIS.PROCESS)
 ) (EQ (THIS.PROCESS) (TTY.PROCESS))))))))
 (GLOBALVARS \\RUNNING.PROCESS \\TTY.PROCESS \\PROC.RESTARTME \\PROC.RESETME \\PROC.ABORTME)
-(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE "17-Jun-1999 21:58:52"))
 
 (RPAQQ \\NORUNCODE 255)
 (RPAQQ NSCHARSETSHIFT 255)
@@ -2366,19 +2367,19 @@ _ (CREATECELL \\FIXP) PROCFX0 _ \\STACKHI)
 STREAM) \\NORUNCODE)))
 (DEFOPTIMIZER ACCESS-CHARSET (STREAM &OPTIONAL NEWVALUE) (BQUOTE ((OPENLAMBDA (STRM) (FDEVOP (QUOTE 
 CHARSETFN) (|fetch| (STREAM DEVICE) |of| STRM) STRM (\\\, NEWVALUE))) (\\\, STREAM))))
-(PUTPROP (QUOTE XCCS) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:37:14"))
+(PUTPROP (QUOTE XCCS) (QUOTE IMPORTDATE) (IDATE "24-Jun-2021 23:15:05"))
 
-(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:37:14"))
+(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "30-Jul-2021 13:05:48"))
 
 (PUTPROPS EMPASSWORDLOC DMACRO (LAMBDA NIL (* |lmm| "24-MAR-83 06:46") (|fetch| (IFPAGE |UserPswdAddr|
 ) |of| |\\InterfacePage|)))
 (PUTPROPS \\DECRYPT.PWD.CHAR MACRO ((CHAR) (LOGXOR CHAR 73)))
-(PUTPROP (QUOTE PASSWORDS) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE PASSWORDS) (QUOTE IMPORTDATE) (IDATE "16-May-1990 21:02:21"))
 
 (RPAQQ MICASPERINCH 2540)
 (RPAQQ MICASPERMILLIMETER 100)
 (CONSTANTS (MICASPERINCH 2540) (MICASPERMILLIMETER 100))
-(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:37:14"))
+(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "27-Jun-2021 23:50:51"))
 
 (RPAQ MICASPERPT (FQUOTIENT 2540 72))
 (RPAQQ IHALFMICASPERPT 17)
@@ -2386,10 +2387,10 @@ CHARSETFN) (|fetch| (STREAM DEVICE) |of| STRM) STRM (\\\, NEWVALUE))) (\\\, STRE
 (CONSTANTS (MICASPERPT (FQUOTIENT 2540 72)) (IHALFMICASPERPT 17) (IMICASPERPT 35))
 (DEFMACRO \\MICASTOPTS (MICAS) (COND ((NUMBERP MICAS) (QUOTIENT MICAS MICASPERPT)) (T (BQUOTE (
 QUOTIENT (\\\, MICAS) MICASPERPT)))))
-(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:17:21"))
+(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE " 5-May-2021 19:41:55"))
 
 (FILESLOAD (SYSLOAD FROM VALUEOF DIRECTORIES) CMLARRAY-SUPPORT)
-(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:28"))
+(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE " 6-Jan-1993 12:21:21"))
 
 (RPAQQ \\MISCN-TABLE-LIST ((USER-SUBR 0 \\USER-SUBR-UFN T) (CL:VALUES 1 CL::VALUES-UFN NIL) (CL:SXHASH
  2 CL::SXHASH-UFN NIL) (CL::EQLHASHBITSFN 3 CL::EQLHASHBITSFN-UFN NIL) (STRINGHASHBITS 4 
@@ -2423,7 +2424,7 @@ DLD-GET-SYMBOL 171) (DLD-GET-FUNC 172) (DLD-FUNCTION-EXECUTABLE-P 173) (DLD-LIST
 ) (C-MALLOC 175) (C-FREE 176) (C-PUTBASEBYTE 177) (C-GETBASEBYTE 178) (CHAR-OPENFILE 200) (CHAR-BIN 
 201) (CHAR-BOUT 202) (CHAR-IOCTL 203) (CHAR-CLOSEFILE 204) (CHAR-EOFP 205) (CHAR-READP 206) (CHAR-BINS
  207) (CHAR-BOUTS 208) (CHAR-FILLBUFFER 209)))
-(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE "27-Jul-2021 20:14:29"))
+(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE "17-Mar-2021 11:10:55"))
 
 STOP