Revert Linebuffer to CR

Explicitly made LINEBUFFER in ATERM specify CR independent of the new default stream EOLCONVENTION of LF in FILEIO.  Don't know why the TTY editor needs CR.

library/exports.all

@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
 (LISPXPRIN1 "EXPORTS GATHERED FROM {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources> ON 
-26-Apr-2021 23:01:58"  T)
+29-Apr-2021 09:49:02"  T)
 (LISPXTERPRI T)
 (RPAQQ MODARITHMACROS (CEIL FLOOR FOLDHI FOLDLO MODUP UNFOLD MOD))
 (PUTPROPS CEIL MACRO ((X N) (FLOOR (IPLUS X (CONSTANT (SUB1 N))) N)))
@@ -53,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 "16-May-1990 20:46:21"))
+(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ WINDFLG T)
 (CONSTANTS (WINDFLG T))
@@ -597,7 +597,7 @@ EmulatorSpace of \InterfacePage) %, ADDR))))) (EVAL (CAR ARGS)))))
 \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 " 7-Feb-2021 11:52:02"))
+(PUTPROP (QUOTE LLPARAMS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DATATYPE COMPILED-CLOSURE (FNHEADER ENVIRONMENT))
 (RPAQQ \COMPILED-CLOSURE 13)
@@ -716,7 +716,7 @@ DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY S
 (RPAQQ \NT.PVARCODE 2)
 (RPAQQ \NT.FVARCODE 3)
 (CONSTANTS \NT.IVARCODE \NT.PVARCODE \NT.FVARCODE)
-(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "19-Jan-1993 10:45:33"))
+(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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" 
@@ -733,7 +733,7 @@ DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY S
 (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 "16-May-1990 11:58:35"))
+(PUTPROP (QUOTE AERROR) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RECORD BASEBYTESTREAM STREAM (SUBRECORD STREAM) (ACCESSFNS ((BIASOFFST (fetch (STREAM FW6) of DATUM) 
 (replace (STREAM FW6) of DATUM with NEWVALUE)) (BBSNCHARS (fetch (STREAM FW7) of DATUM) (replace (
@@ -743,7 +743,7 @@ STREAM FW7) of DATUM with NEWVALUE)) (WRITEXTENSIONFN (fetch (STREAM F1) of DATU
 (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 "13-Sep-1990 16:39:58"))
+(PUTPROP (QUOTE AOFD) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS .SPACECHECK. MACRO ((STRM N) (AND \THISFILELINELENGTH (IGREATERP (IPLUS N (fetch 
 CHARPOSITION of STRM)) \THISFILELINELENGTH) (FRESHLINE STRM))))
@@ -763,7 +763,7 @@ OUTSTREAM)) (\BOUT OUTSTREAM (\CHARSET CHARCODE)) (\BOUT OUTSTREAM (\CHAR8CODE C
  (\BOUT OUTSTREAM NSCHARSETSHIFT) (\BOUT OUTSTREAM (freplace (STREAM CHARSET) of OUTSTREAM with (
 \CHARSET CHARCODE))) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE)))) (freplace CHARPOSITION of OUTSTREAM 
 with (PROGN (* ; "Ugh.  Don't overflow") (IPLUS16 (ffetch CHARPOSITION of OUTSTREAM) 1)))))))
-(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE "17-Jan-2020 05:51:20"))
+(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (GLOBALVARS \BCPLDISPLAY)
 (ACCESSFNS LINEBUFFER ((LPARCOUNT (fetch FW6 of DATUM) (replace FW6 of DATUM with NEWVALUE)) (
@@ -783,7 +783,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 "16-May-1990 12:08:04"))
+(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "29-Apr-2021 09:38:58"))
 
 (DATATYPE HARRAYP ((NULLSLOTS WORD) (* ; "Number of NIL-NIL slots, which break chains") (LASTINDEX 
 WORD) (* ; 
@@ -925,7 +925,7 @@ UNINTERRUPTABLY (replace DTDOLDCNT of DATUM with NEWVALUE) (replace DTDCNT0 of D
 (CONSTANTS \GUARDSTORAGEFULL \GUARD1STORAGEFULL)
 (GLOBALVARS \NxtMDSPage \LeastMDSPage \SecondArrayPage \SecondMDSPage \MDSFREELISTPAGE \MaxSysTypeNum 
 \MaxTypeNumber \STORAGEFULL \INTERRUPTSTATE \PENDINGINTERRUPT)
-(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "28-Jun-1999 16:57:50"))
+(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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 (fetch
@@ -961,7 +961,7 @@ FIXP) (* ; "Empty cells, space for another 2 CONS cells if we can figure out how
 (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 " 2-Feb-1995 16:21:44"))
+(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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))))))) (T (
@@ -1198,7 +1198,7 @@ CODE)) (T (\PUTBASETHIN BASE OFFSET CODE)))))
 NSCHARSETSHIFT 255) (%#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 "11-Nov-2018 13:08:04"))
+(PUTPROP (QUOTE LLCHAR) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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) (
@@ -1310,7 +1310,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 " 6-Jan-1993 18:07:37"))
+(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS WORDCONTENTS BYTEMACRO ((PTR) (\GETBASE PTR 0)))
 (PUTPROPS SETWORDCONTENTS BYTEMACRO ((PTR N) (\PUTBASE PTR 0 N)))
@@ -1318,7 +1318,7 @@ BINDNEGVALUES of DATUM) 65535))))))
 (PUTPROPS \RELEASECPAGE MACRO ((STREAM) (PROGN (* ; "Must be under an UNINTERRUPTABLY !") (COND ((
 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 " 3-Feb-2002 14:11:02"))
+(PUTPROP (QUOTE PMAP) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS ADDREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\ADDREF PTR))))
 (PUTPROPS \ADDREF DMACRO ((X) ((OPCODES GCREF 0) X)))
@@ -1347,7 +1347,7 @@ CONTENTS (\GETBASEFIXP DATUM 0) (\PUTBASEFIXP DATUM 0 NEWVALUE)) (LINKPTR (LOGAN
 ) (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 "19-Oct-1994 12:30:11"))
+(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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 (
@@ -1457,7 +1457,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 "12-Feb-2021 22:55:58"))
+(PUTPROP (QUOTE ATBL) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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."
@@ -1685,7 +1685,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 "26-Apr-2021 22:59:15"))
+(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (BLOCKRECORD FIXP ((HINUM WORD) (LONUM WORD)) (CREATE (CREATECELL \FIXP)) (TYPE? (EQ (NTYPX DATUM) 
 \FIXP)))
@@ -1717,7 +1717,7 @@ ADD1 (IDIFFERENCE MAX.SMALL.INTEGER HY)))) (T (IPLUS HX HY)))) (* Add high parts
 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 "16-May-1990 18:47:56"))
+(PUTPROP (QUOTE LLARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS POLYEVAL DMACRO ((X COEFFS DEGREE) (* ; 
 "execute the POLYEVAL opcode on the value X, the array COEFFS with degree DEGREE") (\FLOATBOX ((
@@ -1739,7 +1739,7 @@ FLOATING FLOATP) (CADR VAR)) (HELP))) (\, (CAR VAR))))))) (SETQ NEXT (fetch (FX
 IDIFFERENCE NEXT WORDSPERCELL)))))) (COND ((LISTP X) (BQUOTE (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 "16-May-1990 19:26:51"))
+(PUTPROP (QUOTE LLFLOAT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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 (
@@ -1803,7 +1803,7 @@ SIGNED-BYTE 16)) :INITIAL-ELEMENT 0)))
 )
 (RPAQQ \MAXNSCHAR 65535)
 (CONSTANTS (\MAXNSCHAR 65535))
-(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE " 9-Feb-2021 11:39:44"))
+(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (BLOCKRECORD KEYACTION ((* ;; 
 "KEYACTION Table:  For interpreting keystrokes.  Stored as a 8-cell block of untyped pointer hunk storage."
@@ -1850,7 +1850,7 @@ replace (IOPAGE NEWMOUSEY) of \IOPAGE with YPOS) (replace (IOPAGE NEWMOUSESTATE)
 \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 "13-Feb-2021 23:24:49"))
+(PUTPROP (QUOTE LLKEY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DATATYPE PILOTBBT ((PBTDESTLO WORD) (PBTDESTHI WORD) (PBTDESTBIT WORD) (PBTDESTBPL SIGNEDWORD) (
 PBTSOURCELO WORD) (PBTSOURCEHI WORD) (PBTSOURCEBIT WORD) (PBTSOURCEBPL SIGNEDWORD) (PBTWIDTH WORD) (
@@ -1946,7 +1946,7 @@ fetch (\DISPLAYDATA DDXOFFSET) of DD)))
 (PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
 (GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN 
 SCREENWIDTH SCREENHEIGHT)
-(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "18-Apr-1994 00:20:42"))
+(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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)) (PTOP (
@@ -1991,7 +1991,7 @@ PRINTCURSOR))))))))
 (ADDTOVAR GLOBALVARS GRAYSHADE)
 (RECORD HLS (HUE LIGHTNESS SATURATION))
 (RECORD RGB (RED GREEN BLUE))
-(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "15-Sep-1994 17:07:04"))
+(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (ADDTOVAR SYSSPECVARS \INTERRUPTABLE)
 (PUTPROPS UNINTERRUPTABLY INFO EVAL)
@@ -2016,7 +2016,7 @@ PENDING BITS 8) (* ; "Pending-interrupt flags") (IN-PROGRESS BITS 8) (* ;
 (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 "17-Sep-1992 10:42:38"))
+(PUTPROP (QUOTE AINTERRUPT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS UNLESSRDSYS MACRO ((NORMAL RDSYS) NORMAL))
 (PUTPROPS UNLESSINEW MACRO ((NORMAL I-NEW) NORMAL))
@@ -2056,7 +2056,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 "15-Mar-1994 10:48:02"))
+(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS .COPYKEYDOWNP. MACRO (NIL (OR (KEYDOWNP (QUOTE LSHIFT)) (KEYDOWNP (QUOTE RSHIFT)) (KEYDOWNP 
 (QUOTE COPY)))))
@@ -2129,7 +2129,7 @@ SCDESTINATION) of DATUM) (fetch (BITMAP BITMAPBITSPERPIXEL) of (fetch (SCREEN SC
 )) (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 " 9-Apr-2000 17:36:29"))
+(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS NNLITATOM MACRO (OPENLAMBDA (X) (AND X (LITATOM X))))
 (PUTPROPS \NULL.OR.FIXP MACRO (OPENLAMBDA (X) (OR (NULL X) (FIXP X))))
@@ -2144,7 +2144,7 @@ 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 "16-May-1990 20:26:31"))
+(PUTPROP (QUOTE MACROAUX) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ MASK0WORD1'S 32767)
 (RPAQQ MASK1WORD0'S 32768)
@@ -2212,11 +2212,11 @@ LOCALVARS \ByteNo \BitMask \Byte)) (SETQ \Byte (\GETBASEBYTE BASE \ByteNo)) (if
 \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 "16-May-1990 11:46:37"))
+(PUTPROP (QUOTE ADDARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ \MAXFILEPAGE 65534)
 (CONSTANTS \MAXFILEPAGE)
-(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "21-Mar-2021 21:33:01"))
+(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS \UPDATETIMERS MACRO (NIL (* * Moves excess time from the processor clock to our software 
 clocks. Needs to be run often, uninterruptably, preferably from the vertical retrace interrupt) (* Get
@@ -2244,7 +2244,7 @@ of \MISCSTATS)) 1000) (* Increment clocks by 1 second) (\BOXIPLUS (LOCF (fetch S
 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 "16-May-1990 20:13:11"))
+(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR) BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1)
 (PUTPROPS IMAGEOP MACRO (ARGS (CONS (QUOTE SPREADAPPLY*) (CONS (COND ((EQ (CAR (LISTP (CAR ARGS))) (
@@ -2279,7 +2279,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 "28-Jun-1999 16:33:59"))
+(PUTPROP (QUOTE IMAGEIO) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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") (
@@ -2319,7 +2319,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 "17-Jun-1999 21:58:52"))
+(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS \BACKCHAR MACRO (OPENLAMBDA (STREAM) (* ; "Backs up over an NS character") (\BACKNSCHAR 
 STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256))))
@@ -2467,17 +2467,17 @@ IPLUS CH1 64)))))
 (PUTPROPS \EUC.KANJI.FIRST.BYTEP MACRO ((CHAR) (< 160 CHAR 255)))
 (PUTPROPS \GAIJIP MACRO ((CHAR) (EQ CHAR 143)))
 (PUTPROPS \EUC.HANKAKUP MACRO ((CHAR) (EQ CHAR 142)))
-(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "19-Apr-2021 21:52:10"))
+(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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 "16-May-1990 21:02:21"))
+(PUTPROP (QUOTE PASSWORDS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ MICASPERINCH 2540)
 (RPAQQ MICASPERMILLIMETER 100)
 (CONSTANTS (MICASPERINCH 2540) (MICASPERMILLIMETER 100))
-(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "16-Apr-2018 21:56:38"))
+(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQ MICASPERPT (FQUOTIENT 2540 72))
 (RPAQQ IHALFMICASPERPT 17)
@@ -2485,10 +2485,10 @@ IPLUS CH1 64)))))
 (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 "16-Apr-2018 22:15:08"))
+(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (FILESLOAD (SYSLOAD FROM VALUEOF DIRECTORIES) CMLARRAY-SUPPORT)
-(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE " 6-Jan-1993 12:21:21"))
+(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (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 
@@ -2522,7 +2522,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 "17-Mar-2021 11:10:55"))
+(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 STOP
 

loadups/full.dribble

@@ -1,5 +1,5 @@
 
-Full loadup started at 26-Apr-2021 23:01:47 while connected to 
+Full loadup started at 29-Apr-2021 09:48:51 while connected to 
 {DSK}<Users>kaplan>Local>medley3.5>git-medley>
 
 loading POSTSCRIPTSTREAM

loadups/lisp.dribble

@@ -584,7 +584,7 @@ File created 16-May-90 11:46:37
 loading CMLPATHNAME
 loading HPRINT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.LCOM;2
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.LCOM;3
 compiled on 26-Apr-2021 14:46:05
 File created 26-Apr-2021 14:45:00
 loading AARITH