diff --git a/library/RDSYS b/library/RDSYS
index 1bdd51f3..b8ff261c 100644
--- a/library/RDSYS
+++ b/library/RDSYS
@@ -1,6 +1,5 @@
 (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-(FILECREATED "29-Apr-2021 09:48:22" {DSK}<Users>kaplan>Local>medley3.5>git-medley>tmp>RDSYS.;19
-)
+(FILECREATED " 6-May-2021 15:26:36" {DSK}<home>larry>ilisp>medley>tmp>RDSYS.;1)
 
 
 (PRETTYCOMPRINT RDSYSCOMS)
diff --git a/library/RDSYS.LCOM b/library/RDSYS.LCOM
index ae5e540d..2e4bd2ae 100644
Binary files a/library/RDSYS.LCOM and b/library/RDSYS.LCOM differ
diff --git a/library/exports.all b/library/exports.all
index 653f1ce9..10f91393 100644
--- a/library/exports.all
+++ b/library/exports.all
@@ -1,19 +1,18 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-(LISPXPRIN1 "EXPORTS GATHERED FROM {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources> ON 
-29-Apr-2021 09:49:02"  T)
+(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
+(LISPXPRIN1 "EXPORTS GATHERED FROM {DSK}<home>larry>ilisp>medley>sources> ON  6-May-2021 15:26:52"  T)
 (LISPXTERPRI T)
 (RPAQQ MODARITHMACROS (CEIL FLOOR FOLDHI FOLDLO MODUP UNFOLD MOD))
 (PUTPROPS CEIL MACRO ((X N) (FLOOR (IPLUS X (CONSTANT (SUB1 N))) N)))
 (PUTPROPS FLOOR MACRO ((X N) (LOGAND X (CONSTANT (LOGXOR (SUB1 N) -1)))))
 (PUTPROPS FOLDHI MACRO (X (PROG ((FORM (CAR X)) (DIVISOR (CAR (CONSTANTEXPRESSIONP (CADR X))))) (OR (
-AND DIVISOR (POWEROFTWOP DIVISOR)) (\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LRSH) (LIST (QUOTE 
+AND DIVISOR (POWEROFTWOP DIVISOR)) (\\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LRSH) (LIST (QUOTE 
 IPLUS) FORM (SUB1 DIVISOR)) (SUB1 (INTEGERLENGTH DIVISOR)))))))
 (PUTPROPS FOLDLO MACRO (X (PROG ((FORM (CAR X)) (DIVISOR (CAR (CONSTANTEXPRESSIONP (CADR X))))) (OR (
-AND DIVISOR (POWEROFTWOP DIVISOR)) (\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LRSH) FORM (SUB1 (
+AND DIVISOR (POWEROFTWOP DIVISOR)) (\\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LRSH) FORM (SUB1 (
 INTEGERLENGTH DIVISOR)))))))
 (PUTPROPS MODUP MACRO (OPENLAMBDA (X N) (IDIFFERENCE (SUB1 N) (IMOD (SUB1 X) N))))
 (PUTPROPS UNFOLD MACRO (X (PROG ((FORM (CAR X)) (DIVISOR (CAR (CONSTANTEXPRESSIONP (CADR X))))) (OR (
-AND DIVISOR (POWEROFTWOP DIVISOR)) (\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LLSH) FORM (SUB1 (
+AND DIVISOR (POWEROFTWOP DIVISOR)) (\\ILLEGAL.ARG (CADR X))) (RETURN (LIST (QUOTE LLSH) FORM (SUB1 (
 INTEGERLENGTH DIVISOR)))))))
 (PUTPROPS MOD MACRO (= . IMOD))
 (RPAQQ BITSPERNIBBLE 4)
@@ -53,185 +52,194 @@ 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-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
 (RPAQQ WINDFLG T)
 (CONSTANTS (WINDFLG T))
-(RPAQQ INITCONSTANTS ((* ;;; "(LISPNAME VALUE BCPLNAME UCODENAME)") (CDRCODING 1 T T) (* ; 
-"IF CDRCODING=0, CDR CODING IS OFF, OTHERWISE ON") (* ;; "type numbers -- repeated on LLBASIC too") (
-\SMALLP 1 SMALLTYPE SmallType) (\FIXP 2 INTEGERTYPE FixpType) (\FLOATP 3 FLTPTTYPE FloatpType) (
-\LITATOM 4 ATOMTYPE AtomType) (\LISTP 5 LISTTYPE ListType) (\ARRAYP 6 ARRAYPTRTYPE ArrayType) (
-\STRINGP 7 STRINGPTRTYPE) (\STACKP 8) (\CHARACTERP 9) (\VMEMPAGEP 10 NIL VMemPagePType) (\STREAM 11 
-NIL STREAMTYPE) (* ;; "TYPE TABLE CONSTANTS - - - - - - - - - - - - - - - - - - - - - -") (
-\TT.TYPEMASK 2047 TTTypeMask T) (\TT.NOREF 32768 NIL T) (\TT.SYMBOLP 16384 NIL T) (\TT.FIXP 8192) (
-\TT.NUMBERP 4096) (\TT.ATOM 2048) (* ;; 
-"page map - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -") (\PMblockSize 
-32 PMBLOCKSIZE) (\STATSsize 8 T) (\NumPMTpages 8) (\EmptyPMTEntry 65535 T) (\FirstVmemBlock 2 T) (
-\MAXVMPAGE 131069) (\MAXVMSEGMENT 255) (* ;; "interface page") (\IFPValidKey 5603 T) (* ;; "MDS") (
-\FirstMDSPage 32766) (* ; "Was 37776Q pre 16-meg intiial") (\MaxMDSPage 524285) (\DefaultSecondMDSPage
- 65532) (\MDSIncrement 512) (\PagesPerMDSUnit 2) (* ; "(FOLDLO \MDSIncrement WORDSPERPAGE)") (* ;; 
-"arrays") (\ARRAYSPACE (46 0)) (\FirstArraySegment 46) (\FirstArrayPage 11776) (\ARRAYSPACE2 (64 0)) (
-\DefaultSecondArrayPage 32768) (* ; "Was 40000Q before 16meg initial") (* ;; "stack block constants") 
-(\StackMask 57344 T T) (\FxtnBlock 49152 T T) (\GuardBlock 57344 T T) (\BFBlock 32768 T T) (
-\FreeStackBlock 40960 T T) (\NotStackBlock 0) (* ; "none of the above") (\MinExtraStackWords 32 T T) (
-* ;; "backspace kludge") (ERASECHARCODE 0 T) (* ;; "GC constants") (\HT1CNT 1024 NIL T) (\HTSTKBIT 512
- NIL T) (\HTCNTMASK 64512 NIL T) (\HTMAINSIZE 65536 NIL T) (\HTCOLLSIZE 1048576 NIL T) (* ; 
-"HTCOLL size in words") (\HTENDFREE 1 NIL T) (\HTFREEPTR 0 NIL T) (* ;; 
-"pointers and lengths of various data spaces") (\ATOMSPACE (0 0) (ATOMspace NIL) (atomHiVal NIL)) (
-\AtomHI 0) (\CHARHI 7) (* ; "overlap character space and the atom hash table space") (\AtomHashTable (
-21 0) (AHTspace AHTbase)) (\AtomHTpages 256 AHTSIZE) (\LastAtomPage 255) (\MaxAtomFrLst 65535) (
-\SMALLPOSPSPACE (14 0)) (\SmallPosHi 14 SMALLPOSspace smallpl) (\SMALLNEGSPACE (15 0)) (\SmallNegHi 15
- SMALLNEGspace smallneg) (\NumSmallPages 512) (* ;; 
-"PNAME SPACEin the old world; used for initial atoms now.") (\PNPSPACE (8 0) (PNPspace PNPbase)) (
-\PNAME.HI 8) (\OLDATOMSPACE (44 0)) (* ; "NEW ATOM SPACE") (\ATOM.HI 44) (* ; 
-"HI PART OF NEW ATOM SPACE") (* ;; "Definitions in old atom world") (\DEFSPACE (10 0) (DEFspace 
-DEFbase) (DEFspace DEFbase)) (\DEF.HI 10) (\VALSPACE (12 0) (TOPVALspace TOPVALbase) (VALspace VALbase
-)) (\VAL.HI 12) (\PLISTSPACE (2 0) (PLISTspace PLISTbase)) (\PLIST.HI 2) (\PAGEMAP (5 0) (PAGEMAPspace
- PAGEMAPbase)) (\NumPageMapPages 256) (\PageMapTBL (20 512) (PMTspace PMTbase)) (\InterfacePage (20 0)
- (INTERFACEspace INTERFACEbase) (INTERFACEspace INTERFACEbase)) (\IOPAGE (0 65280)) (\DoveIORegion (0 
-16384)) (\IOCBPAGE (0 256)) (\FPTOVP (2 0)) (\MDSTypeTable (24 0) (MDSTYPEspace MDSTYPEbase) (
-MDSTYPEspace MDSTYPEbase)) (\MDSTTsize 1024 T) (* ; "in Pages") (\MISCSTATS (20 2560) (STATSspace 
-MISCSTATSbase)) (\UFNTable (20 3072) NIL (STATSspace UFNTablebase)) (\UFNTableSize 2) (\DTDSpaceBase (
-20 4096) (DTDspace DTDbase) (DTDspace DTDbase)) (\DTDSize 18 T) (\LISTPDTD (20 4186)) (\EndTypeNumber 
-2047) (\LOCKEDPAGETABLE (20 28672)) (\NumLPTPages 16) (\STACKSPACE (1 0) (STACKspace NIL) (STACKspace 
-NIL)) (\GuardStackAddr 61440) (\LastStackAddr 65534) (\STACKHI 1 T T) (\HTMAIN (22 0) (HTMAINspace 
-HTMAINbase) (HTMAINspace HTMAINbase)) (\HTMAINnpages 256 T) (\HTOVERFLOW (23 0) NIL (NIL 
-HTOVERFLOWbase)) (\HTBIGCOUNT (23 32768)) (\HTCOLL (28 0) NIL (HTCOLLspace HTCOLLbase)) (
-\DISPLAYREGION (18 0)) (\D1BCPLspace 0 T LEmubrHiVal) (\D0BCPLspace 0 T) (* ;; 
-"Interface Page locations") (\CurrentFXP 0 T T) (\ResetFXP 1 T T) (\SubovFXP 2 T T) (\KbdFXP 3 T T) (
-\HardReturnFXP 4 T T) (\GCFXP 5) (\FAULTFXP 6 T T) (\MiscFXP 14 T T) (\TeleRaidFXP 24 T T) (* ;; 
-"emulator segment locations") (DCB.EM 272) (DISPINTERRUPT.EM 273) (CURSORBITMAP.EM 281) (KBDAD0.EM 
-65052) (KBDAD1.EM 65053) (KBDAD2.EM 65054) (KBDAD3.EM 65055) (UTILIN.EM 65048) (CURSORX.EM 278) (
-CURSORY.EM 279) (MOUSEX.EM 276) (MOUSEY.EM 277) (\LispKeyMask 8192 T T) (\BcplKeyMask 4352 T T) (* ; 
-"Machine types") (\MAIKO 3) (\DOLPHIN 4) (\DORADO 5) (\DANDELION 6) (\DAYBREAK 8) (* ;; 
-"FOR DLION (AND DAYBREAK)") (\VP.DISPLAY 4608) (\NP.DISPLAY 202) (* ; 
-"for Dorado display 1024x808 pixels / (16 pixels/word x 256 words/page)") (\NP.WIDEDOVEDISPLAY 243) (*
- ; "Wide Dove display 1152x864 pixels") (\WIDEDOVEDISPLAYWIDTH 1152) (\RP.AFTERDISPLAY 206) (* ; 
-"Includes 4 pages for cursor") (\RP.AFTERDOVEDISPLAY 243) (* ; "if big screen") (\RP.DISPLAY 0) (
-\RP.TEMPDISPLAY 2561) (\RP.MISCLOCKED 2804) (* ; "(+ \RP.TEMPDISPLAY \NP.WIDEDOVEDISPLAY)") (\RP.STACK
- 768) (\VP.STACK 256) (\RP.MAP 256) (\NP.MAP 256) (\RP.IOPAGE 512) (* ; 
-"The DOVE IOCBPAGE can go anywhere, but should be under the 1mbyte range") (\RP.DOVEIOCBPAGE 543) (
-\RP.DOVEIORGN 544) (\VP.DOVEIORGN 64) (\DOVEIORGNSIZE 64) (\VP.IOPAGE 255) (\VP.IFPAGE 5120) (
-\VP.FPTOVP 512) (\NP.FPTOVP 4096) (\RP.FPTOVP 1024) (\RP.STARTBUFFERS 640) (\VP.TYPETABLE 6144) (
-\NP.TYPETABLE 1024) (\RP.TYPETABLE 5120) (\VP.GCTABLE 5632) (\NP.GCTABLE 256) (\RP.GCTABLE 6144) (
-\VP.GCOVERFLOW 5888) (\NP.GCOVERFLOW 1) (\RP.GCOVERFLOW 6400) (\FP.IFPAGE 2) (\VP.IOCBS 1) (
-\VP.PRIMARYMAP 5122) (\VP.SECONDARYMAP 1280) (\VP.LPT 5232) (\VP.INITSCRATCH 8) (\VP.RPT 128) (
-\VP.BUFFERS 218) (* ; "DLion processor commands") (\DL.PROCESSORBUSY 32768) (\DL.SETTOD 32769) (
-\DL.READTOD 32770) (\DL.READPID 32771) (\DL.BOOTBUTTON 32772)))
-(RPAQQ MISCSTATSLAYOUT ((STARTTIME FIXP MSstrtTime) (TOTALTIME FIXP) (SWAPWAITTIME FIXP T) (PAGEFAULTS
- FIXP T) (SWAPWRITES FIXP T) (DISKIOTIME FIXP T) (DISKOPS FIXP T) (KEYBOARDWAITTIME FIXP T) (GCTIME 
-FIXP T) (NETIOTIME FIXP T) (NETIOOPS FIXP T) (SWAPTEMP0 FIXP) (SWAPTEMP1 FIXP) (RCLKSECOND FIXP) (
-SECONDSCLOCK FIXP) (MILLISECONDSCLOCK FIXP) (BASECLOCK FIXP) (RCLKTEMP0 FIXP) (SECONDSTMP FIXP) (
-MILLISECONDSTMP FIXP) (BASETMP FIXP) (EXCESSTIMETMP FIXP) (CLOCKTEMP0 FIXP) (DISKTEMP0 FIXP) (
+(RPAQQ INITCONSTANTS ((* |;;;| "(LISPNAME VALUE BCPLNAME UCODENAME)") (CDRCODING 1 T T) (* \; 
+"IF CDRCODING=0, CDR CODING IS OFF, OTHERWISE ON") (* |;;| "type numbers -- repeated on LLBASIC too") 
+(\\SMALLP 1 SMALLTYPE |SmallType|) (\\FIXP 2 INTEGERTYPE |FixpType|) (\\FLOATP 3 FLTPTTYPE 
+|FloatpType|) (\\LITATOM 4 ATOMTYPE |AtomType|) (\\LISTP 5 LISTTYPE |ListType|) (\\ARRAYP 6 
+ARRAYPTRTYPE |ArrayType|) (\\STRINGP 7 STRINGPTRTYPE) (\\STACKP 8) (\\CHARACTERP 9) (\\VMEMPAGEP 10 
+NIL |VMemPagePType|) (\\STREAM 11 NIL STREAMTYPE) (* |;;| 
+"TYPE TABLE CONSTANTS - - - - - - - - - - - - - - - - - - - - - -") (\\TT.TYPEMASK 2047 |TTTypeMask| T
+) (\\TT.NOREF 32768 NIL T) (\\TT.SYMBOLP 16384 NIL T) (\\TT.FIXP 8192) (\\TT.NUMBERP 4096) (\\TT.ATOM 
+2048) (* |;;| "page map - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -") 
+(|\\PMblockSize| 32 PMBLOCKSIZE) (|\\STATSsize| 8 T) (|\\NumPMTpages| 8) (|\\EmptyPMTEntry| 65535 T) (
+|\\FirstVmemBlock| 2 T) (\\MAXVMPAGE 131069) (\\MAXVMSEGMENT 255) (* |;;| "interface page") (
+|\\IFPValidKey| 5603 T) (* |;;| "MDS") (|\\FirstMDSPage| 32766) (* \; "Was 37776Q pre 16-meg intiial")
+ (|\\MaxMDSPage| 524285) (|\\DefaultSecondMDSPage| 65532) (|\\MDSIncrement| 512) (|\\PagesPerMDSUnit| 
+2) (* \; "(FOLDLO \\MDSIncrement WORDSPERPAGE)") (* |;;| "arrays") (\\ARRAYSPACE (46 0)) (
+|\\FirstArraySegment| 46) (|\\FirstArrayPage| 11776) (\\ARRAYSPACE2 (64 0)) (
+|\\DefaultSecondArrayPage| 32768) (* \; "Was 40000Q before 16meg initial") (* |;;| 
+"stack block constants") (|\\StackMask| 57344 T T) (|\\FxtnBlock| 49152 T T) (|\\GuardBlock| 57344 T T
+) (|\\BFBlock| 32768 T T) (|\\FreeStackBlock| 40960 T T) (|\\NotStackBlock| 0) (* \; 
+"none of the above") (|\\MinExtraStackWords| 32 T T) (* |;;| "backspace kludge") (ERASECHARCODE 0 T) (
+* |;;| "GC constants") (\\HT1CNT 1024 NIL T) (\\HTSTKBIT 512 NIL T) (\\HTCNTMASK 64512 NIL T) (
+\\HTMAINSIZE 65536 NIL T) (\\HTCOLLSIZE 1048576 NIL T) (* \; "HTCOLL size in words") (\\HTENDFREE 1 
+NIL T) (\\HTFREEPTR 0 NIL T) (* |;;| "pointers and lengths of various data spaces") (\\ATOMSPACE (0 0)
+ (|ATOMspace| NIL) (|atomHiVal| NIL)) (|\\AtomHI| 0) (\\CHARHI 7) (* \; 
+"overlap character space and the atom hash table space") (|\\AtomHashTable| (21 0) (|AHTspace| 
+|AHTbase|)) (|\\AtomHTpages| 256 AHTSIZE) (|\\LastAtomPage| 255) (|\\MaxAtomFrLst| 65535) (
+\\SMALLPOSPSPACE (14 0)) (|\\SmallPosHi| 14 |SMALLPOSspace| |smallpl|) (\\SMALLNEGSPACE (15 0)) (
+|\\SmallNegHi| 15 |SMALLNEGspace| |smallneg|) (|\\NumSmallPages| 512) (* |;;| 
+"PNAME SPACEin the old world; used for initial atoms now.") (\\PNPSPACE (8 0) (|PNPspace| |PNPbase|)) 
+(\\PNAME.HI 8) (\\OLDATOMSPACE (44 0)) (* \; "NEW ATOM SPACE") (\\ATOM.HI 44) (* \; 
+"HI PART OF NEW ATOM SPACE") (* |;;| "Definitions in old atom world") (\\DEFSPACE (10 0) (|DEFspace| 
+|DEFbase|) (|DEFspace| |DEFbase|)) (\\DEF.HI 10) (\\VALSPACE (12 0) (|TOPVALspace| |TOPVALbase|) (
+|VALspace| |VALbase|)) (\\VAL.HI 12) (\\PLISTSPACE (2 0) (|PLISTspace| |PLISTbase|)) (\\PLIST.HI 2) (
+\\PAGEMAP (5 0) (|PAGEMAPspace| |PAGEMAPbase|)) (|\\NumPageMapPages| 256) (|\\PageMapTBL| (20 512) (
+|PMTspace| |PMTbase|)) (|\\InterfacePage| (20 0) (|INTERFACEspace| |INTERFACEbase|) (|INTERFACEspace| 
+|INTERFACEbase|)) (\\IOPAGE (0 65280)) (|\\DoveIORegion| (0 16384)) (\\IOCBPAGE (0 256)) (\\FPTOVP (2 
+0)) (|\\MDSTypeTable| (24 0) (|MDSTYPEspace| |MDSTYPEbase|) (|MDSTYPEspace| |MDSTYPEbase|)) (
+|\\MDSTTsize| 1024 T) (* \; "in Pages") (\\MISCSTATS (20 2560) (|STATSspace| |MISCSTATSbase|)) (
+|\\UFNTable| (20 3072) NIL (|STATSspace| |UFNTablebase|)) (|\\UFNTableSize| 2) (|\\DTDSpaceBase| (20 
+4096) (|DTDspace| |DTDbase|) (|DTDspace| |DTDbase|)) (|\\DTDSize| 18 T) (\\LISTPDTD (20 4186)) (
+|\\EndTypeNumber| 2047) (\\LOCKEDPAGETABLE (20 28672)) (|\\NumLPTPages| 16) (\\STACKSPACE (1 0) (
+|STACKspace| NIL) (|STACKspace| NIL)) (|\\GuardStackAddr| 61440) (|\\LastStackAddr| 65534) (\\STACKHI 
+1 T T) (\\HTMAIN (22 0) (|HTMAINspace| |HTMAINbase|) (|HTMAINspace| |HTMAINbase|)) (|\\HTMAINnpages| 
+256 T) (\\HTOVERFLOW (23 0) NIL (NIL |HTOVERFLOWbase|)) (\\HTBIGCOUNT (23 32768)) (\\HTCOLL (28 0) NIL
+ (|HTCOLLspace| |HTCOLLbase|)) (\\DISPLAYREGION (18 0)) (|\\D1BCPLspace| 0 T |LEmubrHiVal|) (
+|\\D0BCPLspace| 0 T) (* |;;| "Interface Page locations") (|\\CurrentFXP| 0 T T) (|\\ResetFXP| 1 T T) (
+|\\SubovFXP| 2 T T) (|\\KbdFXP| 3 T T) (|\\HardReturnFXP| 4 T T) (\\GCFXP 5) (\\FAULTFXP 6 T T) (
+|\\MiscFXP| 14 T T) (|\\TeleRaidFXP| 24 T T) (* |;;| "emulator segment locations") (DCB.EM 272) (
+DISPINTERRUPT.EM 273) (CURSORBITMAP.EM 281) (KBDAD0.EM 65052) (KBDAD1.EM 65053) (KBDAD2.EM 65054) (
+KBDAD3.EM 65055) (UTILIN.EM 65048) (CURSORX.EM 278) (CURSORY.EM 279) (MOUSEX.EM 276) (MOUSEY.EM 277) (
+|\\LispKeyMask| 8192 T T) (|\\BcplKeyMask| 4352 T T) (* \; "Machine types") (\\MAIKO 3) (\\DOLPHIN 4) 
+(\\DORADO 5) (\\DANDELION 6) (\\DAYBREAK 8) (* |;;| "FOR DLION (AND DAYBREAK)") (\\VP.DISPLAY 4608) (
+\\NP.DISPLAY 202) (* \; "for Dorado display 1024x808 pixels / (16 pixels/word x 256 words/page)") (
+\\NP.WIDEDOVEDISPLAY 243) (* \; "Wide Dove display 1152x864 pixels") (\\WIDEDOVEDISPLAYWIDTH 1152) (
+\\RP.AFTERDISPLAY 206) (* \; "Includes 4 pages for cursor") (\\RP.AFTERDOVEDISPLAY 243) (* \; 
+"if big screen") (\\RP.DISPLAY 0) (\\RP.TEMPDISPLAY 2561) (\\RP.MISCLOCKED 2804) (* \; 
+"(+ \\RP.TEMPDISPLAY \\NP.WIDEDOVEDISPLAY)") (\\RP.STACK 768) (\\VP.STACK 256) (\\RP.MAP 256) (
+\\NP.MAP 256) (\\RP.IOPAGE 512) (* \; 
+"The DOVE IOCBPAGE can go anywhere, but should be under the 1mbyte range") (\\RP.DOVEIOCBPAGE 543) (
+\\RP.DOVEIORGN 544) (\\VP.DOVEIORGN 64) (\\DOVEIORGNSIZE 64) (\\VP.IOPAGE 255) (\\VP.IFPAGE 5120) (
+\\VP.FPTOVP 512) (\\NP.FPTOVP 4096) (\\RP.FPTOVP 1024) (\\RP.STARTBUFFERS 640) (\\VP.TYPETABLE 6144) (
+\\NP.TYPETABLE 1024) (\\RP.TYPETABLE 5120) (\\VP.GCTABLE 5632) (\\NP.GCTABLE 256) (\\RP.GCTABLE 6144) 
+(\\VP.GCOVERFLOW 5888) (\\NP.GCOVERFLOW 1) (\\RP.GCOVERFLOW 6400) (\\FP.IFPAGE 2) (\\VP.IOCBS 1) (
+\\VP.PRIMARYMAP 5122) (\\VP.SECONDARYMAP 1280) (\\VP.LPT 5232) (\\VP.INITSCRATCH 8) (\\VP.RPT 128) (
+\\VP.BUFFERS 218) (* \; "DLion processor commands") (\\DL.PROCESSORBUSY 32768) (\\DL.SETTOD 32769) (
+\\DL.READTOD 32770) (\\DL.READPID 32771) (\\DL.BOOTBUTTON 32772)))
+(RPAQQ MISCSTATSLAYOUT ((STARTTIME FIXP |MSstrtTime|) (TOTALTIME FIXP) (SWAPWAITTIME FIXP T) (
+PAGEFAULTS FIXP T) (SWAPWRITES FIXP T) (DISKIOTIME FIXP T) (DISKOPS FIXP T) (KEYBOARDWAITTIME FIXP T) 
+(GCTIME FIXP T) (NETIOTIME FIXP T) (NETIOOPS FIXP T) (SWAPTEMP0 FIXP) (SWAPTEMP1 FIXP) (RCLKSECOND 
+FIXP) (SECONDSCLOCK FIXP) (MILLISECONDSCLOCK FIXP) (BASECLOCK FIXP) (RCLKTEMP0 FIXP) (SECONDSTMP FIXP)
+ (MILLISECONDSTMP FIXP) (BASETMP FIXP) (EXCESSTIMETMP FIXP) (CLOCKTEMP0 FIXP) (DISKTEMP0 FIXP) (
 DISKTEMP1 FIXP) (TELERAIDTEMP1 FIXP) (TELERAIDTEMP2 FIXP) (TELERAIDTEMP3 FIXP) (LASTUSERACTION FIXP) (
 DLMOUSETIMER FIXP) (DLMOUSETEMP FIXP)))
-(RPAQQ IFPAGELAYOUT ((CurrentFXP WORD) (* ; 
-"First 7 items are FX values for user and 6 system contexts.") (ResetFXP WORD) (SubovFXP WORD) (KbdFXP
- WORD) (HardReturnFXP WORD) (GCFXP WORD) (FAULTFXP WORD) (EndOfStack WORD) (* ; 
-"Stack high-water mark: address of guard block at current end of stack") (LVersion WORD) (* ; 
-"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") (MinRVersion
- WORD) (MinBVersion WORD) (RVersion WORD) (* ; "Bcpl fills in the actual microcode, Bcpl versions.") (
-BVersion WORD) (MachineType WORD) (MiscFXP WORD) (* ; "FX for MISC context") (Key WORD) (* ; 
-"= IFPValidKey if vmem consistent.") (SerialNumber WORD) (* ; "Pup host number (Dorado/Dolphin)") (
-EmulatorSpace WORD) (* ; "Hiloc of bcpl space (always zero now)") (ScreenWidth WORD) (NxtPMAddr WORD) 
-(* ; "Next page to be allocated in secondary page map table") (NActivePages WORD) (* ; 
-"Length of vmem in use") (NDirtyPages WORD) (* ; "not used, but maintained as = NActivePages") (
-filePnPMP0 WORD) (* ; 
-"Sysout page number of first page of secondary page map table (\PAGEMAP), which is where the secondary map pages themselves live"
-) (filePnPMT0 WORD) (* ; "Sysout page number of first page of primary page map table") (TELERAIDFXP 
-WORD) (* ; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* ; 
-"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* ; "Unix page length of native code"
-) (NATIVE-PAGE-OFFSET WORD) (* ; "Lisp Disk Page offset  of native code") (UserNameAddr WORD) (* ; 
-"Addresses in bcpl space (seg 0) of global user name and password") (UserPswdAddr WORD) (StackBase 
-WORD) (* ; "Stack address where user stack starts") (FAULTHI WORD) (* ; 
+(RPAQQ IFPAGELAYOUT ((|CurrentFXP| WORD) (* \; 
+"First 7 items are FX values for user and 6 system contexts.") (|ResetFXP| WORD) (|SubovFXP| WORD) (
+|KbdFXP| WORD) (|HardReturnFXP| WORD) (GCFXP WORD) (FAULTFXP WORD) (|EndOfStack| WORD) (* \; 
+"Stack high-water mark: address of guard block at current end of stack") (|LVersion| WORD) (* \; 
+"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") (
+|MinRVersion| WORD) (|MinBVersion| WORD) (|RVersion| WORD) (* \; 
+"Bcpl fills in the actual microcode, Bcpl versions.") (|BVersion| WORD) (|MachineType| WORD) (
+|MiscFXP| WORD) (* \; "FX for MISC context") (|Key| WORD) (* \; "= IFPValidKey if vmem consistent.") (
+|SerialNumber| WORD) (* \; "Pup host number (Dorado/Dolphin)") (|EmulatorSpace| WORD) (* \; 
+"Hiloc of bcpl space (always zero now)") (|ScreenWidth| WORD) (|NxtPMAddr| WORD) (* \; 
+"Next page to be allocated in secondary page map table") (|NActivePages| WORD) (* \; 
+"Length of vmem in use") (|NDirtyPages| WORD) (* \; "not used, but maintained as = NActivePages") (
+|filePnPMP0| WORD) (* \; 
+"Sysout page number of first page of secondary page map table (\\PAGEMAP), which is where the secondary map pages themselves live"
+) (|filePnPMT0| WORD) (* \; "Sysout page number of first page of primary page map table") (TELERAIDFXP
+ WORD) (* \; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* \; 
+"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* \; 
+"Unix page length of native code") (NATIVE-PAGE-OFFSET WORD) (* \; 
+"Lisp Disk Page offset  of native code") (|UserNameAddr| WORD) (* \; 
+"Addresses in bcpl space (seg 0) of global user name and password") (|UserPswdAddr| WORD) (|StackBase|
+ WORD) (* \; "Stack address where user stack starts") (FAULTHI WORD) (* \; 
 "Microcode for page fault stores fault address here, then does context switch to FAULTFXP") (FAULTLO 
-WORD) (DEVCONFIG WORD) (* ; "IT'S FOR KB,DISP TYPE") (* ; 
-"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* ; 
-"Number of entries in Real Page Table") (RPOFFSET WORD) (* ; "RP-RPOFFSET => index in table") (
-MAXETHERBYTES WORD) (* ; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") (
-EMBUFVP WORD) (* ; "VP of a one-page emulator buffer") (NSHost0 WORD) (* ; 
+WORD) (DEVCONFIG WORD) (* \; "IT'S FOR KB,DISP TYPE") (* \; 
+"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* \; 
+"Number of entries in Real Page Table") (RPOFFSET WORD) (* \; "RP-RPOFFSET => index in table") (
+MAXETHERBYTES WORD) (* \; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") (
+EMBUFVP WORD) (* \; "VP of a one-page emulator buffer") (|NSHost0| WORD) (* \; 
 "Machine's 48-bit NS host number.  Lisp manages to compute this on all machines except Dolphin, where Bcpl fills it in."
-) (NSHost1 WORD) (NSHost2 WORD) (MDSZone WORD) (* ; 
-"Obsolete -- was used by Dolphin 10MB network code.") (MDSZoneLength WORD) (EMUBUFFERS WORD) (* ; 
-"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* ; 
-"Number of words of said space") (LASTNUMCHARS WORD) (* ; "No longer used?") (SYSDISK WORD) (* ; 
-"Address of sysDisk in Bcpl space -- disk obj for boot partition.") (ISFMAP WORD) (* ;; 
-"The following 4 are for \MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!"
+) (|NSHost1| WORD) (|NSHost2| WORD) (|MDSZone| WORD) (* \; 
+"Obsolete -- was used by Dolphin 10MB network code.") (|MDSZoneLength| WORD) (EMUBUFFERS WORD) (* \; 
+"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* \; 
+"Number of words of said space") (LASTNUMCHARS WORD) (* \; "No longer used?") (SYSDISK WORD) (* \; 
+"Address of sysDisk in Bcpl space -- disk obj for boot partition.") (ISFMAP WORD) (* |;;| 
+"The following 4 are for \\MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!"
 ) (MISCSTACKFN FULLXPOINTER) (MISCSTACKARG1 FULLXPOINTER) (MISCSTACKARG2 FULLXPOINTER) (
-MISCSTACKRESULT FULLXPOINTER) (NRealPages WORD) (* ; "Number pages of real memory") (
-LastLockedFilePage WORD) (* ; 
-"Last page of vmem that is locked--booting has to load at least that far.") (LastDominoFilePage WORD) 
-(* ; "Last sysout page reserved for Dandelion microcode") (FPTOVPStart WORD) (* ; 
-"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* ; 
-"Used to implement fake middle button on 2-button Dandelion.") (DL24BitAddressable WORD) (* ; 
-"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* ; 
-"Address of real page table, set up by Bcpl (but not chained together)") (DLLastVmemPage WORD) (* ; 
-"DLion booting microcode puts length of vmem file here.") (FullSpaceUsed WORD) (* ; 
-"Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* ;; 
-"The following 9 items (6 words and 3 pointers) are 3 3-element vectors for the Dorado extended virtual memory code--indexed by 0,1,2 according to which of up to 3 virtual memory backing files you're working with."
-) (XVmemFmapBase WORD) (* ; 
-"Bcpl stores isf map pointer to each partition here.  First is redundant with ISFMAP field above.") (
-NIL WORD) (NIL WORD) (XVmemFmapHighBase WORD) (* ; 
-"Bcpl stores the highest vm page contained in this or earlier partition.") (NIL WORD) (NIL WORD) (
-XVmemDiskBase FULLXPOINTER) (* ; 
-"Lisp stores disk objects here (just a convenient non-faulting contiguous block of storage).") (NIL 
-FULLXPOINTER) (NIL FULLXPOINTER)))
-(RPAQQ MAIKO.IFPAGELAYOUT ((CurrentFXP WORD) (* ; 
-"First 7 items are FX values for user and 6 system contexts.") (ResetFXP WORD) (SubovFXP WORD) (KbdFXP
- WORD) (HardReturnFXP WORD) (GCFXP WORD) (FAULTFXP WORD) (EndOfStack WORD) (* ; 
-"Stack high-water mark: address of guard block at current end of stack") (LVersion WORD) (* ; 
-"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") (MinRVersion
- WORD) (MinBVersion WORD) (RVersion WORD) (* ; "Bcpl fills in the actual microcode, Bcpl versions.") (
-BVersion WORD) (MachineType WORD) (MiscFXP WORD) (* ; "FX for MISC context") (Key WORD) (* ; 
-"= IFPValidKey if vmem consistent.") (SerialNumber WORD) (* ; "Pup host number (Dorado/Dolphin)") (
-EmulatorSpace WORD) (* ; "Hiloc of bcpl space (always zero now)") (ScreenWidth WORD) (NxtPMAddr WORD) 
-(* ; "Next page to be allocated in secondary page map table") (NIL WORD) (* ; 
-"WAS NActivePages, Length of vmem in use") (NIL WORD) (* ; 
-"WAS NDirtyPages, not used, but maintained as = NActivePages") (filePnPMP0 WORD) (* ; 
-"Sysout page number of first page of secondary page map table (\PAGEMAP), which is where the secondary map pages themselves live"
-) (filePnPMT0 WORD) (* ; "Sysout page number of first page of primary page map table") (TELERAIDFXP 
-WORD) (* ; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* ; 
-"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* ; "Unix page length of native code"
-) (NATIVE-PAGE-OFFSET WORD) (* ; "Lisp Disk Page offset  of native code") (UserNameAddr WORD) (* ; 
-"Addresses in bcpl space (seg 0) of global user name and password") (UserPswdAddr WORD) (StackBase 
-WORD) (* ; "Stack address where user stack starts") (FAULTHI WORD) (* ; 
-"Microcode for page fault stores fault address here, then does context switch to FAULTFXP") (FAULTLO 
-WORD) (DEVCONFIG WORD) (* ; "IT'S FOR KB,DISP TYPE") (* ; 
-"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* ; 
-"Number of entries in Real Page Table") (RPOFFSET WORD) (* ; "RP-RPOFFSET => index in table") (
-MAXETHERBYTES WORD) (* ; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") (
-EMBUFVP WORD) (* ; "VP of a one-page emulator buffer") (NSHost0 WORD) (* ; 
-"Machine's 48-bit NS host number.  Lisp manages to compute this on all machines except Dolphin, where Bcpl fills it in."
-) (NSHost1 WORD) (NSHost2 WORD) (MDSZone WORD) (* ; 
-"Obsolete -- was used by Dolphin 10MB network code.") (MDSZoneLength WORD) (EMUBUFFERS WORD) (* ; 
-"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* ; 
-"Number of words of said space") (* ;; 
-"The following 2 are available if NEW_STOARGE is specified in C") (ProcessSize WORD) (* ; 
-"Process size for which can be use as LISP space") (StorageFullState WORD) (* ; 
-"Save last storage state") (ISFMAP WORD) (* ;; 
-"The following 4 are for \MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!"
-) (MISCSTACKFN FULLXPOINTER) (MISCSTACKARG1 FULLXPOINTER) (MISCSTACKARG2 FULLXPOINTER) (
-MISCSTACKRESULT FULLXPOINTER) (NRealPages WORD) (* ; "Number pages of real memory") (
-LastLockedFilePage WORD) (* ; 
-"Last page of vmem that is locked--booting has to load at least that far.") (LastDominoFilePage WORD) 
-(* ; "Last sysout page reserved for Dandelion microcode") (FPTOVPStart WORD) (* ; 
-"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* ; 
-"Used to implement fake middle button on 2-button Dandelion.") (DL24BitAddressable WORD) (* ; 
-"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* ; 
-"Address of real page table, set up by Bcpl (but not chained together)") (SYSDISK WORD) (* ; 
-"WAS DLLastVmemPage, DLion booting microcode puts length of vmem file here.") (FullSpaceUsed WORD) (* 
-; "Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* ;;
+MISCSTACKRESULT FULLXPOINTER) (|NRealPages| WORD) (* \; "Number pages of real memory") (
+|LastLockedFilePage| WORD) (* \; 
+"Last page of vmem that is locked--booting has to load at least that far.") (|LastDominoFilePage| WORD
+) (* \; "Last sysout page reserved for Dandelion microcode") (|FPTOVPStart| WORD) (* \; 
+"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* \; 
+"Used to implement fake middle button on 2-button Dandelion.") (|DL24BitAddressable| WORD) (* \; 
+"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* \; 
+"Address of real page table, set up by Bcpl (but not chained together)") (|DLLastVmemPage| WORD) (* \;
+ "DLion booting microcode puts length of vmem file here.") (|FullSpaceUsed| WORD) (* \; 
+"Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* |;;|
  
 "The following 9 items (6 words and 3 pointers) are 3 3-element vectors for the Dorado extended virtual memory code--indexed by 0,1,2 according to which of up to 3 virtual memory backing files you're working with."
-) (XVmemFmapBase WORD) (* ; 
+) (|XVmemFmapBase| WORD) (* \; 
 "Bcpl stores isf map pointer to each partition here.  First is redundant with ISFMAP field above.") (
-NIL WORD) (NIL WORD) (XVmemFmapHighBase WORD) (* ; 
+NIL WORD) (NIL WORD) (|XVmemFmapHighBase| WORD) (* \; 
 "Bcpl stores the highest vm page contained in this or earlier partition.") (NIL WORD) (NIL WORD) (
-XVmemDiskBase FULLXPOINTER) (* ; 
+|XVmemDiskBase| FULLXPOINTER) (* \; 
 "Lisp stores disk objects here (just a convenient non-faulting contiguous block of storage).") (NIL 
-FULLXPOINTER) (NIL FULLXPOINTER) (DLLastVmemPage FIXP) (* ; 
-"DLion booting microcode puts length of vmem file here.") (NActivePages FIXP) (* ; 
-"Length of vmem in use") (NDirtyPages FIXP) (* ; "not used, but maintained as = NActivePages")))
+FULLXPOINTER) (NIL FULLXPOINTER)))
+(RPAQQ MAIKO.IFPAGELAYOUT ((|CurrentFXP| WORD) (* \; 
+"First 7 items are FX values for user and 6 system contexts.") (|ResetFXP| WORD) (|SubovFXP| WORD) (
+|KbdFXP| WORD) (|HardReturnFXP| WORD) (GCFXP WORD) (FAULTFXP WORD) (|EndOfStack| WORD) (* \; 
+"Stack high-water mark: address of guard block at current end of stack") (|LVersion| WORD) (* \; 
+"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") (
+|MinRVersion| WORD) (|MinBVersion| WORD) (|RVersion| WORD) (* \; 
+"Bcpl fills in the actual microcode, Bcpl versions.") (|BVersion| WORD) (|MachineType| WORD) (
+|MiscFXP| WORD) (* \; "FX for MISC context") (|Key| WORD) (* \; "= IFPValidKey if vmem consistent.") (
+|SerialNumber| WORD) (* \; "Pup host number (Dorado/Dolphin)") (|EmulatorSpace| WORD) (* \; 
+"Hiloc of bcpl space (always zero now)") (|ScreenWidth| WORD) (|NxtPMAddr| WORD) (* \; 
+"Next page to be allocated in secondary page map table") (NIL WORD) (* \; 
+"WAS NActivePages, Length of vmem in use") (NIL WORD) (* \; 
+"WAS NDirtyPages, not used, but maintained as = NActivePages") (|filePnPMP0| WORD) (* \; 
+"Sysout page number of first page of secondary page map table (\\PAGEMAP), which is where the secondary map pages themselves live"
+) (|filePnPMT0| WORD) (* \; "Sysout page number of first page of primary page map table") (TELERAIDFXP
+ WORD) (* \; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* \; 
+"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* \; 
+"Unix page length of native code") (NATIVE-PAGE-OFFSET WORD) (* \; 
+"Lisp Disk Page offset  of native code") (|UserNameAddr| WORD) (* \; 
+"Addresses in bcpl space (seg 0) of global user name and password") (|UserPswdAddr| WORD) (|StackBase|
+ WORD) (* \; "Stack address where user stack starts") (FAULTHI WORD) (* \; 
+"Microcode for page fault stores fault address here, then does context switch to FAULTFXP") (FAULTLO 
+WORD) (DEVCONFIG WORD) (* \; "IT'S FOR KB,DISP TYPE") (* \; 
+"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* \; 
+"Number of entries in Real Page Table") (RPOFFSET WORD) (* \; "RP-RPOFFSET => index in table") (
+MAXETHERBYTES WORD) (* \; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") (
+EMBUFVP WORD) (* \; "VP of a one-page emulator buffer") (|NSHost0| WORD) (* \; 
+"Machine's 48-bit NS host number.  Lisp manages to compute this on all machines except Dolphin, where Bcpl fills it in."
+) (|NSHost1| WORD) (|NSHost2| WORD) (|MDSZone| WORD) (* \; 
+"Obsolete -- was used by Dolphin 10MB network code.") (|MDSZoneLength| WORD) (EMUBUFFERS WORD) (* \; 
+"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* \; 
+"Number of words of said space") (* |;;| 
+"The following 2 are available if NEW_STOARGE is specified in C") (|ProcessSize| WORD) (* \; 
+"Process size for which can be use as LISP space") (|StorageFullState| WORD) (* \; 
+"Save last storage state") (ISFMAP WORD) (* |;;| 
+"The following 4 are for \\MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!"
+) (MISCSTACKFN FULLXPOINTER) (MISCSTACKARG1 FULLXPOINTER) (MISCSTACKARG2 FULLXPOINTER) (
+MISCSTACKRESULT FULLXPOINTER) (|NRealPages| WORD) (* \; "Number pages of real memory") (
+|LastLockedFilePage| WORD) (* \; 
+"Last page of vmem that is locked--booting has to load at least that far.") (|LastDominoFilePage| WORD
+) (* \; "Last sysout page reserved for Dandelion microcode") (|FPTOVPStart| WORD) (* \; 
+"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* \; 
+"Used to implement fake middle button on 2-button Dandelion.") (|DL24BitAddressable| WORD) (* \; 
+"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* \; 
+"Address of real page table, set up by Bcpl (but not chained together)") (SYSDISK WORD) (* \; 
+"WAS DLLastVmemPage, DLion booting microcode puts length of vmem file here.") (|FullSpaceUsed| WORD) (
+* \; "Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (*
+ |;;| 
+"The following 9 items (6 words and 3 pointers) are 3 3-element vectors for the Dorado extended virtual memory code--indexed by 0,1,2 according to which of up to 3 virtual memory backing files you're working with."
+) (|XVmemFmapBase| WORD) (* \; 
+"Bcpl stores isf map pointer to each partition here.  First is redundant with ISFMAP field above.") (
+NIL WORD) (NIL WORD) (|XVmemFmapHighBase| WORD) (* \; 
+"Bcpl stores the highest vm page contained in this or earlier partition.") (NIL WORD) (NIL WORD) (
+|XVmemDiskBase| FULLXPOINTER) (* \; 
+"Lisp stores disk objects here (just a convenient non-faulting contiguous block of storage).") (NIL 
+FULLXPOINTER) (NIL FULLXPOINTER) (|DLLastVmemPage| FIXP) (* \; 
+"DLion booting microcode puts length of vmem file here.") (|NActivePages| FIXP) (* \; 
+"Length of vmem in use") (|NDirtyPages| FIXP) (* \; "not used, but maintained as = NActivePages")))
 (RPAQQ IOPAGELAYOUT ((NIL 18 WORD) (DLMAINTPANEL WORD NIL T) (DLFLOPPYCMD WORD) (DLTTYPORTCMD WORD) (
 DLPROCESSORCMD WORD) (NEWMOUSESTATE WORD) (DLBEEPCMD WORD) (DLRS232CMISCCOMMAND WORD) (DLRS232CPUTFLAG
  WORD) (DLRS232CGETFLAG WORD) (NIL 6 WORD) (DLFLOPPY WORD) (DLTTYOUT WORD) (NIL 1 WORD) (DLTTYIN WORD)
@@ -247,88 +255,88 @@ DLRS232CSETRS366STATUS.11 14 WORD) (NIL 60 WORD) (DLMAGTAPE 4 WORD) (DLETHERNET
  WORD) (DLDISPINTERRUPT WORD NIL T) (DLDISPCONTROL WORD) (DLDISPBORDER WORD) (DLCURSORX WORD NIL T) (
 DLCURSORY WORD NIL T) (DLCURSORBITMAP 16 WORD NIL T)))
 (RPAQQ CDRCODING 1)
-(RPAQQ \SMALLP 1)
-(RPAQQ \FIXP 2)
-(RPAQQ \FLOATP 3)
-(RPAQQ \LITATOM 4)
-(RPAQQ \LISTP 5)
-(RPAQQ \ARRAYP 6)
-(RPAQQ \STRINGP 7)
-(RPAQQ \STACKP 8)
-(RPAQQ \CHARACTERP 9)
-(RPAQQ \VMEMPAGEP 10)
-(RPAQQ \STREAM 11)
-(RPAQQ \TT.TYPEMASK 2047)
-(RPAQQ \TT.NOREF 32768)
-(RPAQQ \TT.SYMBOLP 16384)
-(RPAQQ \TT.FIXP 8192)
-(RPAQQ \TT.NUMBERP 4096)
-(RPAQQ \TT.ATOM 2048)
-(RPAQQ \PMblockSize 32)
-(RPAQQ \STATSsize 8)
-(RPAQQ \NumPMTpages 8)
-(RPAQQ \EmptyPMTEntry 65535)
-(RPAQQ \FirstVmemBlock 2)
-(RPAQQ \MAXVMPAGE 131069)
-(RPAQQ \MAXVMSEGMENT 255)
-(RPAQQ \IFPValidKey 5603)
-(RPAQQ \FirstMDSPage 32766)
-(RPAQQ \MaxMDSPage 524285)
-(RPAQQ \DefaultSecondMDSPage 65532)
-(RPAQQ \MDSIncrement 512)
-(RPAQQ \PagesPerMDSUnit 2)
-(RPAQQ \FirstArraySegment 46)
-(RPAQQ \FirstArrayPage 11776)
-(RPAQQ \DefaultSecondArrayPage 32768)
-(RPAQQ \StackMask 57344)
-(RPAQQ \FxtnBlock 49152)
-(RPAQQ \GuardBlock 57344)
-(RPAQQ \BFBlock 32768)
-(RPAQQ \FreeStackBlock 40960)
-(RPAQQ \NotStackBlock 0)
-(RPAQQ \MinExtraStackWords 32)
+(RPAQQ \\SMALLP 1)
+(RPAQQ \\FIXP 2)
+(RPAQQ \\FLOATP 3)
+(RPAQQ \\LITATOM 4)
+(RPAQQ \\LISTP 5)
+(RPAQQ \\ARRAYP 6)
+(RPAQQ \\STRINGP 7)
+(RPAQQ \\STACKP 8)
+(RPAQQ \\CHARACTERP 9)
+(RPAQQ \\VMEMPAGEP 10)
+(RPAQQ \\STREAM 11)
+(RPAQQ \\TT.TYPEMASK 2047)
+(RPAQQ \\TT.NOREF 32768)
+(RPAQQ \\TT.SYMBOLP 16384)
+(RPAQQ \\TT.FIXP 8192)
+(RPAQQ \\TT.NUMBERP 4096)
+(RPAQQ \\TT.ATOM 2048)
+(RPAQQ |\\PMblockSize| 32)
+(RPAQQ |\\STATSsize| 8)
+(RPAQQ |\\NumPMTpages| 8)
+(RPAQQ |\\EmptyPMTEntry| 65535)
+(RPAQQ |\\FirstVmemBlock| 2)
+(RPAQQ \\MAXVMPAGE 131069)
+(RPAQQ \\MAXVMSEGMENT 255)
+(RPAQQ |\\IFPValidKey| 5603)
+(RPAQQ |\\FirstMDSPage| 32766)
+(RPAQQ |\\MaxMDSPage| 524285)
+(RPAQQ |\\DefaultSecondMDSPage| 65532)
+(RPAQQ |\\MDSIncrement| 512)
+(RPAQQ |\\PagesPerMDSUnit| 2)
+(RPAQQ |\\FirstArraySegment| 46)
+(RPAQQ |\\FirstArrayPage| 11776)
+(RPAQQ |\\DefaultSecondArrayPage| 32768)
+(RPAQQ |\\StackMask| 57344)
+(RPAQQ |\\FxtnBlock| 49152)
+(RPAQQ |\\GuardBlock| 57344)
+(RPAQQ |\\BFBlock| 32768)
+(RPAQQ |\\FreeStackBlock| 40960)
+(RPAQQ |\\NotStackBlock| 0)
+(RPAQQ |\\MinExtraStackWords| 32)
 (RPAQQ ERASECHARCODE 0)
-(RPAQQ \HT1CNT 1024)
-(RPAQQ \HTSTKBIT 512)
-(RPAQQ \HTCNTMASK 64512)
-(RPAQQ \HTMAINSIZE 65536)
-(RPAQQ \HTCOLLSIZE 1048576)
-(RPAQQ \HTENDFREE 1)
-(RPAQQ \HTFREEPTR 0)
-(RPAQQ \AtomHI 0)
-(RPAQQ \CHARHI 7)
-(RPAQQ \AtomHTpages 256)
-(RPAQQ \LastAtomPage 255)
-(RPAQQ \MaxAtomFrLst 65535)
-(RPAQQ \SmallPosHi 14)
-(RPAQQ \SmallNegHi 15)
-(RPAQQ \NumSmallPages 512)
-(RPAQQ \PNAME.HI 8)
-(RPAQQ \ATOM.HI 44)
-(RPAQQ \DEF.HI 10)
-(RPAQQ \VAL.HI 12)
-(RPAQQ \PLIST.HI 2)
-(RPAQQ \NumPageMapPages 256)
-(RPAQQ \MDSTTsize 1024)
-(RPAQQ \UFNTableSize 2)
-(RPAQQ \DTDSize 18)
-(RPAQQ \EndTypeNumber 2047)
-(RPAQQ \NumLPTPages 16)
-(RPAQQ \GuardStackAddr 61440)
-(RPAQQ \LastStackAddr 65534)
-(RPAQQ \STACKHI 1)
-(RPAQQ \HTMAINnpages 256)
-(RPAQQ \D1BCPLspace 0)
-(RPAQQ \D0BCPLspace 0)
-(RPAQQ \CurrentFXP 0)
-(RPAQQ \ResetFXP 1)
-(RPAQQ \SubovFXP 2)
-(RPAQQ \KbdFXP 3)
-(RPAQQ \HardReturnFXP 4)
-(RPAQQ \GCFXP 5)
-(RPAQQ \FAULTFXP 6)
-(RPAQQ \MiscFXP 14)
-(RPAQQ \TeleRaidFXP 24)
+(RPAQQ \\HT1CNT 1024)
+(RPAQQ \\HTSTKBIT 512)
+(RPAQQ \\HTCNTMASK 64512)
+(RPAQQ \\HTMAINSIZE 65536)
+(RPAQQ \\HTCOLLSIZE 1048576)
+(RPAQQ \\HTENDFREE 1)
+(RPAQQ \\HTFREEPTR 0)
+(RPAQQ |\\AtomHI| 0)
+(RPAQQ \\CHARHI 7)
+(RPAQQ |\\AtomHTpages| 256)
+(RPAQQ |\\LastAtomPage| 255)
+(RPAQQ |\\MaxAtomFrLst| 65535)
+(RPAQQ |\\SmallPosHi| 14)
+(RPAQQ |\\SmallNegHi| 15)
+(RPAQQ |\\NumSmallPages| 512)
+(RPAQQ \\PNAME.HI 8)
+(RPAQQ \\ATOM.HI 44)
+(RPAQQ \\DEF.HI 10)
+(RPAQQ \\VAL.HI 12)
+(RPAQQ \\PLIST.HI 2)
+(RPAQQ |\\NumPageMapPages| 256)
+(RPAQQ |\\MDSTTsize| 1024)
+(RPAQQ |\\UFNTableSize| 2)
+(RPAQQ |\\DTDSize| 18)
+(RPAQQ |\\EndTypeNumber| 2047)
+(RPAQQ |\\NumLPTPages| 16)
+(RPAQQ |\\GuardStackAddr| 61440)
+(RPAQQ |\\LastStackAddr| 65534)
+(RPAQQ \\STACKHI 1)
+(RPAQQ |\\HTMAINnpages| 256)
+(RPAQQ |\\D1BCPLspace| 0)
+(RPAQQ |\\D0BCPLspace| 0)
+(RPAQQ |\\CurrentFXP| 0)
+(RPAQQ |\\ResetFXP| 1)
+(RPAQQ |\\SubovFXP| 2)
+(RPAQQ |\\KbdFXP| 3)
+(RPAQQ |\\HardReturnFXP| 4)
+(RPAQQ \\GCFXP 5)
+(RPAQQ \\FAULTFXP 6)
+(RPAQQ |\\MiscFXP| 14)
+(RPAQQ |\\TeleRaidFXP| 24)
 (RPAQQ DCB.EM 272)
 (RPAQQ DISPINTERRUPT.EM 273)
 (RPAQQ CURSORBITMAP.EM 281)
@@ -341,232 +349,239 @@ DLCURSORY WORD NIL T) (DLCURSORBITMAP 16 WORD NIL T)))
 (RPAQQ CURSORY.EM 279)
 (RPAQQ MOUSEX.EM 276)
 (RPAQQ MOUSEY.EM 277)
-(RPAQQ \LispKeyMask 8192)
-(RPAQQ \BcplKeyMask 4352)
-(RPAQQ \MAIKO 3)
-(RPAQQ \DOLPHIN 4)
-(RPAQQ \DORADO 5)
-(RPAQQ \DANDELION 6)
-(RPAQQ \DAYBREAK 8)
-(RPAQQ \VP.DISPLAY 4608)
-(RPAQQ \NP.DISPLAY 202)
-(RPAQQ \NP.WIDEDOVEDISPLAY 243)
-(RPAQQ \WIDEDOVEDISPLAYWIDTH 1152)
-(RPAQQ \RP.AFTERDISPLAY 206)
-(RPAQQ \RP.AFTERDOVEDISPLAY 243)
-(RPAQQ \RP.DISPLAY 0)
-(RPAQQ \RP.TEMPDISPLAY 2561)
-(RPAQQ \RP.MISCLOCKED 2804)
-(RPAQQ \RP.STACK 768)
-(RPAQQ \VP.STACK 256)
-(RPAQQ \RP.MAP 256)
-(RPAQQ \NP.MAP 256)
-(RPAQQ \RP.IOPAGE 512)
-(RPAQQ \RP.DOVEIOCBPAGE 543)
-(RPAQQ \RP.DOVEIORGN 544)
-(RPAQQ \VP.DOVEIORGN 64)
-(RPAQQ \DOVEIORGNSIZE 64)
-(RPAQQ \VP.IOPAGE 255)
-(RPAQQ \VP.IFPAGE 5120)
-(RPAQQ \VP.FPTOVP 512)
-(RPAQQ \NP.FPTOVP 4096)
-(RPAQQ \RP.FPTOVP 1024)
-(RPAQQ \RP.STARTBUFFERS 640)
-(RPAQQ \VP.TYPETABLE 6144)
-(RPAQQ \NP.TYPETABLE 1024)
-(RPAQQ \RP.TYPETABLE 5120)
-(RPAQQ \VP.GCTABLE 5632)
-(RPAQQ \NP.GCTABLE 256)
-(RPAQQ \RP.GCTABLE 6144)
-(RPAQQ \VP.GCOVERFLOW 5888)
-(RPAQQ \NP.GCOVERFLOW 1)
-(RPAQQ \RP.GCOVERFLOW 6400)
-(RPAQQ \FP.IFPAGE 2)
-(RPAQQ \VP.IOCBS 1)
-(RPAQQ \VP.PRIMARYMAP 5122)
-(RPAQQ \VP.SECONDARYMAP 1280)
-(RPAQQ \VP.LPT 5232)
-(RPAQQ \VP.INITSCRATCH 8)
-(RPAQQ \VP.RPT 128)
-(RPAQQ \VP.BUFFERS 218)
-(RPAQQ \DL.PROCESSORBUSY 32768)
-(RPAQQ \DL.SETTOD 32769)
-(RPAQQ \DL.READTOD 32770)
-(RPAQQ \DL.READPID 32771)
-(RPAQQ \DL.BOOTBUTTON 32772)
-(CONSTANTS (CDRCODING 1) (\SMALLP 1) (\FIXP 2) (\FLOATP 3) (\LITATOM 4) (\LISTP 5) (\ARRAYP 6) (
-\STRINGP 7) (\STACKP 8) (\CHARACTERP 9) (\VMEMPAGEP 10) (\STREAM 11) (\TT.TYPEMASK 2047) (\TT.NOREF 
-32768) (\TT.SYMBOLP 16384) (\TT.FIXP 8192) (\TT.NUMBERP 4096) (\TT.ATOM 2048) (\PMblockSize 32) (
-\STATSsize 8) (\NumPMTpages 8) (\EmptyPMTEntry 65535) (\FirstVmemBlock 2) (\MAXVMPAGE 131069) (
-\MAXVMSEGMENT 255) (\IFPValidKey 5603) (\FirstMDSPage 32766) (\MaxMDSPage 524285) (
-\DefaultSecondMDSPage 65532) (\MDSIncrement 512) (\PagesPerMDSUnit 2) (\FirstArraySegment 46) (
-\FirstArrayPage 11776) (\DefaultSecondArrayPage 32768) (\StackMask 57344) (\FxtnBlock 49152) (
-\GuardBlock 57344) (\BFBlock 32768) (\FreeStackBlock 40960) (\NotStackBlock 0) (\MinExtraStackWords 32
-) (ERASECHARCODE 0) (\HT1CNT 1024) (\HTSTKBIT 512) (\HTCNTMASK 64512) (\HTMAINSIZE 65536) (\HTCOLLSIZE
- 1048576) (\HTENDFREE 1) (\HTFREEPTR 0) (\AtomHI 0) (\CHARHI 7) (\AtomHTpages 256) (\LastAtomPage 255)
- (\MaxAtomFrLst 65535) (\SmallPosHi 14) (\SmallNegHi 15) (\NumSmallPages 512) (\PNAME.HI 8) (\ATOM.HI 
-44) (\DEF.HI 10) (\VAL.HI 12) (\PLIST.HI 2) (\NumPageMapPages 256) (\MDSTTsize 1024) (\UFNTableSize 2)
- (\DTDSize 18) (\EndTypeNumber 2047) (\NumLPTPages 16) (\GuardStackAddr 61440) (\LastStackAddr 65534) 
-(\STACKHI 1) (\HTMAINnpages 256) (\D1BCPLspace 0) (\D0BCPLspace 0) (\CurrentFXP 0) (\ResetFXP 1) (
-\SubovFXP 2) (\KbdFXP 3) (\HardReturnFXP 4) (\GCFXP 5) (\FAULTFXP 6) (\MiscFXP 14) (\TeleRaidFXP 24) (
-DCB.EM 272) (DISPINTERRUPT.EM 273) (CURSORBITMAP.EM 281) (KBDAD0.EM 65052) (KBDAD1.EM 65053) (
-KBDAD2.EM 65054) (KBDAD3.EM 65055) (UTILIN.EM 65048) (CURSORX.EM 278) (CURSORY.EM 279) (MOUSEX.EM 276)
- (MOUSEY.EM 277) (\LispKeyMask 8192) (\BcplKeyMask 4352) (\MAIKO 3) (\DOLPHIN 4) (\DORADO 5) (
-\DANDELION 6) (\DAYBREAK 8) (\VP.DISPLAY 4608) (\NP.DISPLAY 202) (\NP.WIDEDOVEDISPLAY 243) (
-\WIDEDOVEDISPLAYWIDTH 1152) (\RP.AFTERDISPLAY 206) (\RP.AFTERDOVEDISPLAY 243) (\RP.DISPLAY 0) (
-\RP.TEMPDISPLAY 2561) (\RP.MISCLOCKED 2804) (\RP.STACK 768) (\VP.STACK 256) (\RP.MAP 256) (\NP.MAP 256
-) (\RP.IOPAGE 512) (\RP.DOVEIOCBPAGE 543) (\RP.DOVEIORGN 544) (\VP.DOVEIORGN 64) (\DOVEIORGNSIZE 64) (
-\VP.IOPAGE 255) (\VP.IFPAGE 5120) (\VP.FPTOVP 512) (\NP.FPTOVP 4096) (\RP.FPTOVP 1024) (
-\RP.STARTBUFFERS 640) (\VP.TYPETABLE 6144) (\NP.TYPETABLE 1024) (\RP.TYPETABLE 5120) (\VP.GCTABLE 5632
-) (\NP.GCTABLE 256) (\RP.GCTABLE 6144) (\VP.GCOVERFLOW 5888) (\NP.GCOVERFLOW 1) (\RP.GCOVERFLOW 6400) 
-(\FP.IFPAGE 2) (\VP.IOCBS 1) (\VP.PRIMARYMAP 5122) (\VP.SECONDARYMAP 1280) (\VP.LPT 5232) (
-\VP.INITSCRATCH 8) (\VP.RPT 128) (\VP.BUFFERS 218) (\DL.PROCESSORBUSY 32768) (\DL.SETTOD 32769) (
-\DL.READTOD 32770) (\DL.READPID 32771) (\DL.BOOTBUTTON 32772))
-(RPAQQ \MPERRORS ((\MP.OBSOLETEVMEM 1) (\MP.INVALIDVMEM 2 "Vmem inconsistent at startup") (
-\MP.IOCBPAGE 3 "No place for IOCB page at startup") (\MP.MOB 4 "Map out of bounds") (\MP.INVALIDADDR 5
-) (\MP.INVALIDVP 6) (\MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain") (\MP.SELECTLOOP 
-8 "Loop in \SELECTREALPAGE") (\MP.NEWPAGE 9 "Attempt to allocate already existing page") (
-\MP.NEWMAPPAGE 10 "\DONEWPAGE failed to allocate new map page") (\MP.BADLOCKED 11 
-"Locked page occupies a file page needed to lock another") (\MP.CLOCK0 12 
-"Arg to CLOCK0 not an integer box") (\MP.RESIDENT 13 "Fault on resident page") (\MP.STACKFAULT 14 
-"Fault on stack") (\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") (
-\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") (\MP.UNINTERRUPTABLE 18 
-"Error in uninterruptable system code") (\MP.STACKFULL 19) (\MP.MDSFULL 20) (\MP.UNKNOWN.UFN 21) (
-\MP.ATOMSFULL 22) (\MP.PNAMESFULL 23) (\MP.USECOUNTOVERFLOW 24) (\MP.MDSFULLWARNING 25) (
-\MP.BADMDSFREELIST 26) (\MP.BADARRAYBLOCK 27) (\MP.BADDELETEBLOCK 28) (\MP.BADARRAYRECLAIM 29) (
-\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") (
-\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") (\MP.DELREF0 32) (\MP.PROCERROR 33) (
-\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") (\MP.32MBINUSE 35) (\MP.TOPUNWOUND 36 
-"Unexpected (RETTO T)") (\MP.STACKRELEASED 37) (\MP.FLUSHLOCKED 38) (\MP.MAPNOTLOCKED 39) (
-\MP.UNLOCKINGMAP 40) (\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") (\MP.BADRUNTABLE 42 
+(RPAQQ |\\LispKeyMask| 8192)
+(RPAQQ |\\BcplKeyMask| 4352)
+(RPAQQ \\MAIKO 3)
+(RPAQQ \\DOLPHIN 4)
+(RPAQQ \\DORADO 5)
+(RPAQQ \\DANDELION 6)
+(RPAQQ \\DAYBREAK 8)
+(RPAQQ \\VP.DISPLAY 4608)
+(RPAQQ \\NP.DISPLAY 202)
+(RPAQQ \\NP.WIDEDOVEDISPLAY 243)
+(RPAQQ \\WIDEDOVEDISPLAYWIDTH 1152)
+(RPAQQ \\RP.AFTERDISPLAY 206)
+(RPAQQ \\RP.AFTERDOVEDISPLAY 243)
+(RPAQQ \\RP.DISPLAY 0)
+(RPAQQ \\RP.TEMPDISPLAY 2561)
+(RPAQQ \\RP.MISCLOCKED 2804)
+(RPAQQ \\RP.STACK 768)
+(RPAQQ \\VP.STACK 256)
+(RPAQQ \\RP.MAP 256)
+(RPAQQ \\NP.MAP 256)
+(RPAQQ \\RP.IOPAGE 512)
+(RPAQQ \\RP.DOVEIOCBPAGE 543)
+(RPAQQ \\RP.DOVEIORGN 544)
+(RPAQQ \\VP.DOVEIORGN 64)
+(RPAQQ \\DOVEIORGNSIZE 64)
+(RPAQQ \\VP.IOPAGE 255)
+(RPAQQ \\VP.IFPAGE 5120)
+(RPAQQ \\VP.FPTOVP 512)
+(RPAQQ \\NP.FPTOVP 4096)
+(RPAQQ \\RP.FPTOVP 1024)
+(RPAQQ \\RP.STARTBUFFERS 640)
+(RPAQQ \\VP.TYPETABLE 6144)
+(RPAQQ \\NP.TYPETABLE 1024)
+(RPAQQ \\RP.TYPETABLE 5120)
+(RPAQQ \\VP.GCTABLE 5632)
+(RPAQQ \\NP.GCTABLE 256)
+(RPAQQ \\RP.GCTABLE 6144)
+(RPAQQ \\VP.GCOVERFLOW 5888)
+(RPAQQ \\NP.GCOVERFLOW 1)
+(RPAQQ \\RP.GCOVERFLOW 6400)
+(RPAQQ \\FP.IFPAGE 2)
+(RPAQQ \\VP.IOCBS 1)
+(RPAQQ \\VP.PRIMARYMAP 5122)
+(RPAQQ \\VP.SECONDARYMAP 1280)
+(RPAQQ \\VP.LPT 5232)
+(RPAQQ \\VP.INITSCRATCH 8)
+(RPAQQ \\VP.RPT 128)
+(RPAQQ \\VP.BUFFERS 218)
+(RPAQQ \\DL.PROCESSORBUSY 32768)
+(RPAQQ \\DL.SETTOD 32769)
+(RPAQQ \\DL.READTOD 32770)
+(RPAQQ \\DL.READPID 32771)
+(RPAQQ \\DL.BOOTBUTTON 32772)
+(CONSTANTS (CDRCODING 1) (\\SMALLP 1) (\\FIXP 2) (\\FLOATP 3) (\\LITATOM 4) (\\LISTP 5) (\\ARRAYP 6) (
+\\STRINGP 7) (\\STACKP 8) (\\CHARACTERP 9) (\\VMEMPAGEP 10) (\\STREAM 11) (\\TT.TYPEMASK 2047) (
+\\TT.NOREF 32768) (\\TT.SYMBOLP 16384) (\\TT.FIXP 8192) (\\TT.NUMBERP 4096) (\\TT.ATOM 2048) (
+|\\PMblockSize| 32) (|\\STATSsize| 8) (|\\NumPMTpages| 8) (|\\EmptyPMTEntry| 65535) (
+|\\FirstVmemBlock| 2) (\\MAXVMPAGE 131069) (\\MAXVMSEGMENT 255) (|\\IFPValidKey| 5603) (
+|\\FirstMDSPage| 32766) (|\\MaxMDSPage| 524285) (|\\DefaultSecondMDSPage| 65532) (|\\MDSIncrement| 512
+) (|\\PagesPerMDSUnit| 2) (|\\FirstArraySegment| 46) (|\\FirstArrayPage| 11776) (
+|\\DefaultSecondArrayPage| 32768) (|\\StackMask| 57344) (|\\FxtnBlock| 49152) (|\\GuardBlock| 57344) (
+|\\BFBlock| 32768) (|\\FreeStackBlock| 40960) (|\\NotStackBlock| 0) (|\\MinExtraStackWords| 32) (
+ERASECHARCODE 0) (\\HT1CNT 1024) (\\HTSTKBIT 512) (\\HTCNTMASK 64512) (\\HTMAINSIZE 65536) (
+\\HTCOLLSIZE 1048576) (\\HTENDFREE 1) (\\HTFREEPTR 0) (|\\AtomHI| 0) (\\CHARHI 7) (|\\AtomHTpages| 256
+) (|\\LastAtomPage| 255) (|\\MaxAtomFrLst| 65535) (|\\SmallPosHi| 14) (|\\SmallNegHi| 15) (
+|\\NumSmallPages| 512) (\\PNAME.HI 8) (\\ATOM.HI 44) (\\DEF.HI 10) (\\VAL.HI 12) (\\PLIST.HI 2) (
+|\\NumPageMapPages| 256) (|\\MDSTTsize| 1024) (|\\UFNTableSize| 2) (|\\DTDSize| 18) (|\\EndTypeNumber|
+ 2047) (|\\NumLPTPages| 16) (|\\GuardStackAddr| 61440) (|\\LastStackAddr| 65534) (\\STACKHI 1) (
+|\\HTMAINnpages| 256) (|\\D1BCPLspace| 0) (|\\D0BCPLspace| 0) (|\\CurrentFXP| 0) (|\\ResetFXP| 1) (
+|\\SubovFXP| 2) (|\\KbdFXP| 3) (|\\HardReturnFXP| 4) (\\GCFXP 5) (\\FAULTFXP 6) (|\\MiscFXP| 14) (
+|\\TeleRaidFXP| 24) (DCB.EM 272) (DISPINTERRUPT.EM 273) (CURSORBITMAP.EM 281) (KBDAD0.EM 65052) (
+KBDAD1.EM 65053) (KBDAD2.EM 65054) (KBDAD3.EM 65055) (UTILIN.EM 65048) (CURSORX.EM 278) (CURSORY.EM 
+279) (MOUSEX.EM 276) (MOUSEY.EM 277) (|\\LispKeyMask| 8192) (|\\BcplKeyMask| 4352) (\\MAIKO 3) (
+\\DOLPHIN 4) (\\DORADO 5) (\\DANDELION 6) (\\DAYBREAK 8) (\\VP.DISPLAY 4608) (\\NP.DISPLAY 202) (
+\\NP.WIDEDOVEDISPLAY 243) (\\WIDEDOVEDISPLAYWIDTH 1152) (\\RP.AFTERDISPLAY 206) (\\RP.AFTERDOVEDISPLAY
+ 243) (\\RP.DISPLAY 0) (\\RP.TEMPDISPLAY 2561) (\\RP.MISCLOCKED 2804) (\\RP.STACK 768) (\\VP.STACK 256
+) (\\RP.MAP 256) (\\NP.MAP 256) (\\RP.IOPAGE 512) (\\RP.DOVEIOCBPAGE 543) (\\RP.DOVEIORGN 544) (
+\\VP.DOVEIORGN 64) (\\DOVEIORGNSIZE 64) (\\VP.IOPAGE 255) (\\VP.IFPAGE 5120) (\\VP.FPTOVP 512) (
+\\NP.FPTOVP 4096) (\\RP.FPTOVP 1024) (\\RP.STARTBUFFERS 640) (\\VP.TYPETABLE 6144) (\\NP.TYPETABLE 
+1024) (\\RP.TYPETABLE 5120) (\\VP.GCTABLE 5632) (\\NP.GCTABLE 256) (\\RP.GCTABLE 6144) (
+\\VP.GCOVERFLOW 5888) (\\NP.GCOVERFLOW 1) (\\RP.GCOVERFLOW 6400) (\\FP.IFPAGE 2) (\\VP.IOCBS 1) (
+\\VP.PRIMARYMAP 5122) (\\VP.SECONDARYMAP 1280) (\\VP.LPT 5232) (\\VP.INITSCRATCH 8) (\\VP.RPT 128) (
+\\VP.BUFFERS 218) (\\DL.PROCESSORBUSY 32768) (\\DL.SETTOD 32769) (\\DL.READTOD 32770) (\\DL.READPID 
+32771) (\\DL.BOOTBUTTON 32772))
+(RPAQQ \\MPERRORS ((\\MP.OBSOLETEVMEM 1) (\\MP.INVALIDVMEM 2 "Vmem inconsistent at startup") (
+\\MP.IOCBPAGE 3 "No place for IOCB page at startup") (\\MP.MOB 4 "Map out of bounds") (
+\\MP.INVALIDADDR 5) (\\MP.INVALIDVP 6) (\\MP.CHAIN.UNAVAIL 7 
+"Unavailable page on real page table chain") (\\MP.SELECTLOOP 8 "Loop in \\SELECTREALPAGE") (
+\\MP.NEWPAGE 9 "Attempt to allocate already existing page") (\\MP.NEWMAPPAGE 10 
+"\\DONEWPAGE failed to allocate new map page") (\\MP.BADLOCKED 11 
+"Locked page occupies a file page needed to lock another") (\\MP.CLOCK0 12 
+"Arg to CLOCK0 not an integer box") (\\MP.RESIDENT 13 "Fault on resident page") (\\MP.STACKFAULT 14 
+"Fault on stack") (\\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") (
+\\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") (\\MP.UNINTERRUPTABLE 18 
+"Error in uninterruptable system code") (\\MP.STACKFULL 19) (\\MP.MDSFULL 20) (\\MP.UNKNOWN.UFN 21) (
+\\MP.ATOMSFULL 22) (\\MP.PNAMESFULL 23) (\\MP.USECOUNTOVERFLOW 24) (\\MP.MDSFULLWARNING 25) (
+\\MP.BADMDSFREELIST 26) (\\MP.BADARRAYBLOCK 27) (\\MP.BADDELETEBLOCK 28) (\\MP.BADARRAYRECLAIM 29) (
+\\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") (
+\\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") (\\MP.DELREF0 32) (\\MP.PROCERROR 33)
+ (\\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") (\\MP.32MBINUSE 35) (\\MP.TOPUNWOUND 36
+ "Unexpected (RETTO T)") (\\MP.STACKRELEASED 37) (\\MP.FLUSHLOCKED 38) (\\MP.MAPNOTLOCKED 39) (
+\\MP.UNLOCKINGMAP 40) (\\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") (\\MP.BADRUNTABLE 42 
 "Malformed run table for vmem file")))
-(RPAQQ \MP.OBSOLETEVMEM 1)
-(RPAQ \MP.INVALIDVMEM 2 "Vmem inconsistent at startup")
-(RPAQ \MP.IOCBPAGE 3 "No place for IOCB page at startup")
-(RPAQ \MP.MOB 4 "Map out of bounds")
-(RPAQQ \MP.INVALIDADDR 5)
-(RPAQQ \MP.INVALIDVP 6)
-(RPAQ \MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain")
-(RPAQ \MP.SELECTLOOP 8 "Loop in \SELECTREALPAGE")
-(RPAQ \MP.NEWPAGE 9 "Attempt to allocate already existing page")
-(RPAQ \MP.NEWMAPPAGE 10 "\DONEWPAGE failed to allocate new map page")
-(RPAQ \MP.BADLOCKED 11 "Locked page occupies a file page needed to lock another")
-(RPAQ \MP.CLOCK0 12 "Arg to CLOCK0 not an integer box")
-(RPAQ \MP.RESIDENT 13 "Fault on resident page")
-(RPAQ \MP.STACKFAULT 14 "Fault on stack")
-(RPAQ \MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)")
-(RPAQ \MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T")
-(RPAQ \MP.UNINTERRUPTABLE 18 "Error in uninterruptable system code")
-(RPAQQ \MP.STACKFULL 19)
-(RPAQQ \MP.MDSFULL 20)
-(RPAQQ \MP.UNKNOWN.UFN 21)
-(RPAQQ \MP.ATOMSFULL 22)
-(RPAQQ \MP.PNAMESFULL 23)
-(RPAQQ \MP.USECOUNTOVERFLOW 24)
-(RPAQQ \MP.MDSFULLWARNING 25)
-(RPAQQ \MP.BADMDSFREELIST 26)
-(RPAQQ \MP.BADARRAYBLOCK 27)
-(RPAQQ \MP.BADDELETEBLOCK 28)
-(RPAQQ \MP.BADARRAYRECLAIM 29)
-(RPAQ \MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.")
-(RPAQ \MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table")
-(RPAQQ \MP.DELREF0 32)
-(RPAQQ \MP.PROCERROR 33)
-(RPAQ \MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use")
-(RPAQQ \MP.32MBINUSE 35)
-(RPAQ \MP.TOPUNWOUND 36 "Unexpected (RETTO T)")
-(RPAQQ \MP.STACKRELEASED 37)
-(RPAQQ \MP.FLUSHLOCKED 38)
-(RPAQQ \MP.MAPNOTLOCKED 39)
-(RPAQQ \MP.UNLOCKINGMAP 40)
-(RPAQ \MP.SWAPDISKERROR 41 "Hard Disk Error in swapper")
-(RPAQ \MP.BADRUNTABLE 42 "Malformed run table for vmem file")
-(CONSTANTS (\MP.OBSOLETEVMEM 1) (\MP.INVALIDVMEM 2 "Vmem inconsistent at startup") (\MP.IOCBPAGE 3 
-"No place for IOCB page at startup") (\MP.MOB 4 "Map out of bounds") (\MP.INVALIDADDR 5) (
-\MP.INVALIDVP 6) (\MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain") (\MP.SELECTLOOP 8 
-"Loop in \SELECTREALPAGE") (\MP.NEWPAGE 9 "Attempt to allocate already existing page") (\MP.NEWMAPPAGE
- 10 "\DONEWPAGE failed to allocate new map page") (\MP.BADLOCKED 11 
-"Locked page occupies a file page needed to lock another") (\MP.CLOCK0 12 
-"Arg to CLOCK0 not an integer box") (\MP.RESIDENT 13 "Fault on resident page") (\MP.STACKFAULT 14 
-"Fault on stack") (\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") (
-\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") (\MP.UNINTERRUPTABLE 18 
-"Error in uninterruptable system code") (\MP.STACKFULL 19) (\MP.MDSFULL 20) (\MP.UNKNOWN.UFN 21) (
-\MP.ATOMSFULL 22) (\MP.PNAMESFULL 23) (\MP.USECOUNTOVERFLOW 24) (\MP.MDSFULLWARNING 25) (
-\MP.BADMDSFREELIST 26) (\MP.BADARRAYBLOCK 27) (\MP.BADDELETEBLOCK 28) (\MP.BADARRAYRECLAIM 29) (
-\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") (
-\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") (\MP.DELREF0 32) (\MP.PROCERROR 33) (
-\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") (\MP.32MBINUSE 35) (\MP.TOPUNWOUND 36 
-"Unexpected (RETTO T)") (\MP.STACKRELEASED 37) (\MP.FLUSHLOCKED 38) (\MP.MAPNOTLOCKED 39) (
-\MP.UNLOCKINGMAP 40) (\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") (\MP.BADRUNTABLE 42 
+(RPAQQ \\MP.OBSOLETEVMEM 1)
+(RPAQ \\MP.INVALIDVMEM 2 "Vmem inconsistent at startup")
+(RPAQ \\MP.IOCBPAGE 3 "No place for IOCB page at startup")
+(RPAQ \\MP.MOB 4 "Map out of bounds")
+(RPAQQ \\MP.INVALIDADDR 5)
+(RPAQQ \\MP.INVALIDVP 6)
+(RPAQ \\MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain")
+(RPAQ \\MP.SELECTLOOP 8 "Loop in \\SELECTREALPAGE")
+(RPAQ \\MP.NEWPAGE 9 "Attempt to allocate already existing page")
+(RPAQ \\MP.NEWMAPPAGE 10 "\\DONEWPAGE failed to allocate new map page")
+(RPAQ \\MP.BADLOCKED 11 "Locked page occupies a file page needed to lock another")
+(RPAQ \\MP.CLOCK0 12 "Arg to CLOCK0 not an integer box")
+(RPAQ \\MP.RESIDENT 13 "Fault on resident page")
+(RPAQ \\MP.STACKFAULT 14 "Fault on stack")
+(RPAQ \\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)")
+(RPAQ \\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T")
+(RPAQ \\MP.UNINTERRUPTABLE 18 "Error in uninterruptable system code")
+(RPAQQ \\MP.STACKFULL 19)
+(RPAQQ \\MP.MDSFULL 20)
+(RPAQQ \\MP.UNKNOWN.UFN 21)
+(RPAQQ \\MP.ATOMSFULL 22)
+(RPAQQ \\MP.PNAMESFULL 23)
+(RPAQQ \\MP.USECOUNTOVERFLOW 24)
+(RPAQQ \\MP.MDSFULLWARNING 25)
+(RPAQQ \\MP.BADMDSFREELIST 26)
+(RPAQQ \\MP.BADARRAYBLOCK 27)
+(RPAQQ \\MP.BADDELETEBLOCK 28)
+(RPAQQ \\MP.BADARRAYRECLAIM 29)
+(RPAQ \\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.")
+(RPAQ \\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table")
+(RPAQQ \\MP.DELREF0 32)
+(RPAQQ \\MP.PROCERROR 33)
+(RPAQ \\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use")
+(RPAQQ \\MP.32MBINUSE 35)
+(RPAQ \\MP.TOPUNWOUND 36 "Unexpected (RETTO T)")
+(RPAQQ \\MP.STACKRELEASED 37)
+(RPAQQ \\MP.FLUSHLOCKED 38)
+(RPAQQ \\MP.MAPNOTLOCKED 39)
+(RPAQQ \\MP.UNLOCKINGMAP 40)
+(RPAQ \\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper")
+(RPAQ \\MP.BADRUNTABLE 42 "Malformed run table for vmem file")
+(CONSTANTS (\\MP.OBSOLETEVMEM 1) (\\MP.INVALIDVMEM 2 "Vmem inconsistent at startup") (\\MP.IOCBPAGE 3 
+"No place for IOCB page at startup") (\\MP.MOB 4 "Map out of bounds") (\\MP.INVALIDADDR 5) (
+\\MP.INVALIDVP 6) (\\MP.CHAIN.UNAVAIL 7 "Unavailable page on real page table chain") (\\MP.SELECTLOOP 
+8 "Loop in \\SELECTREALPAGE") (\\MP.NEWPAGE 9 "Attempt to allocate already existing page") (
+\\MP.NEWMAPPAGE 10 "\\DONEWPAGE failed to allocate new map page") (\\MP.BADLOCKED 11 
+"Locked page occupies a file page needed to lock another") (\\MP.CLOCK0 12 
+"Arg to CLOCK0 not an integer box") (\\MP.RESIDENT 13 "Fault on resident page") (\\MP.STACKFAULT 14 
+"Fault on stack") (\\MP.VMEMTOOLONG 16 "Attempt to extend Vmem File beyond fixed limit (8mb)") (
+\\MP.WRITING.LOCKED.PAGE 17 "Writing a locked page with UPDATEKEY = T") (\\MP.UNINTERRUPTABLE 18 
+"Error in uninterruptable system code") (\\MP.STACKFULL 19) (\\MP.MDSFULL 20) (\\MP.UNKNOWN.UFN 21) (
+\\MP.ATOMSFULL 22) (\\MP.PNAMESFULL 23) (\\MP.USECOUNTOVERFLOW 24) (\\MP.MDSFULLWARNING 25) (
+\\MP.BADMDSFREELIST 26) (\\MP.BADARRAYBLOCK 27) (\\MP.BADDELETEBLOCK 28) (\\MP.BADARRAYRECLAIM 29) (
+\\MP.BIGREFCNTMISSING 30 "PTR refcnt previously overflowed, but not found in table.") (
+\\MP.BIGREFCNTALREADYPRESENT 31 "PTR already in overflow table") (\\MP.DELREF0 32) (\\MP.PROCERROR 33)
+ (\\MP.PROCNOFRAME 34 "Failed to build frame for PROCESS use") (\\MP.32MBINUSE 35) (\\MP.TOPUNWOUND 36
+ "Unexpected (RETTO T)") (\\MP.STACKRELEASED 37) (\\MP.FLUSHLOCKED 38) (\\MP.MAPNOTLOCKED 39) (
+\\MP.UNLOCKINGMAP 40) (\\MP.SWAPDISKERROR 41 "Hard Disk Error in swapper") (\\MP.BADRUNTABLE 42 
 "Malformed run table for vmem file"))
-(GLOBALVARS \ARRAYSPACE \ARRAYSPACE2 \ATOMSPACE \AtomHashTable \SMALLPOSPSPACE \SMALLNEGSPACE 
-\PNPSPACE \OLDATOMSPACE \DEFSPACE \VALSPACE \PLISTSPACE \PAGEMAP \PageMapTBL \InterfacePage \IOPAGE 
-\DoveIORegion \IOCBPAGE \FPTOVP \MDSTypeTable \MISCSTATS \UFNTable \DTDSpaceBase \LISTPDTD 
-\LOCKEDPAGETABLE \STACKSPACE \HTMAIN \HTOVERFLOW \HTBIGCOUNT \HTCOLL \DISPLAYREGION)
+(GLOBALVARS \\ARRAYSPACE \\ARRAYSPACE2 \\ATOMSPACE |\\AtomHashTable| \\SMALLPOSPSPACE \\SMALLNEGSPACE 
+\\PNPSPACE \\OLDATOMSPACE \\DEFSPACE \\VALSPACE \\PLISTSPACE \\PAGEMAP |\\PageMapTBL| 
+|\\InterfacePage| \\IOPAGE |\\DoveIORegion| \\IOCBPAGE \\FPTOVP |\\MDSTypeTable| \\MISCSTATS 
+|\\UFNTable| |\\DTDSpaceBase| \\LISTPDTD \\LOCKEDPAGETABLE \\STACKSPACE \\HTMAIN \\HTOVERFLOW 
+\\HTBIGCOUNT \\HTCOLL \\DISPLAYREGION)
 (BLOCKRECORD MISCSTATS ((STARTTIME FIXP) (TOTALTIME FIXP) (SWAPWAITTIME FIXP) (PAGEFAULTS FIXP) (
 SWAPWRITES FIXP) (DISKIOTIME FIXP) (DISKOPS FIXP) (KEYBOARDWAITTIME FIXP) (GCTIME FIXP) (NETIOTIME 
 FIXP) (NETIOOPS FIXP) (SWAPTEMP0 FIXP) (SWAPTEMP1 FIXP) (RCLKSECOND FIXP) (SECONDSCLOCK FIXP) (
 MILLISECONDSCLOCK FIXP) (BASECLOCK FIXP) (RCLKTEMP0 FIXP) (SECONDSTMP FIXP) (MILLISECONDSTMP FIXP) (
 BASETMP FIXP) (EXCESSTIMETMP FIXP) (CLOCKTEMP0 FIXP) (DISKTEMP0 FIXP) (DISKTEMP1 FIXP) (TELERAIDTEMP1 
 FIXP) (TELERAIDTEMP2 FIXP) (TELERAIDTEMP3 FIXP) (LASTUSERACTION FIXP) (DLMOUSETIMER FIXP) (DLMOUSETEMP
- FIXP)) (CREATE (\ALLOCBLOCK 31)))
-(BLOCKRECORD IFPAGE ((CurrentFXP WORD) (* ; 
-"First 7 items are FX values for user and 6 system contexts.") (ResetFXP WORD) (SubovFXP WORD) (KbdFXP
- WORD) (HardReturnFXP WORD) (GCFXP WORD) (FAULTFXP WORD) (EndOfStack WORD) (* ; 
-"Stack high-water mark: address of guard block at current end of stack") (LVersion WORD) (* ; 
-"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") (MinRVersion
- WORD) (MinBVersion WORD) (RVersion WORD) (* ; "Bcpl fills in the actual microcode, Bcpl versions.") (
-BVersion WORD) (MachineType WORD) (MiscFXP WORD) (* ; "FX for MISC context") (Key WORD) (* ; 
-"= IFPValidKey if vmem consistent.") (SerialNumber WORD) (* ; "Pup host number (Dorado/Dolphin)") (
-EmulatorSpace WORD) (* ; "Hiloc of bcpl space (always zero now)") (ScreenWidth WORD) (NxtPMAddr WORD) 
-(* ; "Next page to be allocated in secondary page map table") (NIL WORD) (* ; 
-"WAS NActivePages, Length of vmem in use") (NIL WORD) (* ; 
-"WAS NDirtyPages, not used, but maintained as = NActivePages") (filePnPMP0 WORD) (* ; 
-"Sysout page number of first page of secondary page map table (\PAGEMAP), which is where the secondary map pages themselves live"
-) (filePnPMT0 WORD) (* ; "Sysout page number of first page of primary page map table") (TELERAIDFXP 
-WORD) (* ; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* ; 
-"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* ; "Unix page length of native code"
-) (NATIVE-PAGE-OFFSET WORD) (* ; "Lisp Disk Page offset  of native code") (UserNameAddr WORD) (* ; 
-"Addresses in bcpl space (seg 0) of global user name and password") (UserPswdAddr WORD) (StackBase 
-WORD) (* ; "Stack address where user stack starts") (FAULTHI WORD) (* ; 
+ FIXP)) (CREATE (\\ALLOCBLOCK 31)))
+(BLOCKRECORD IFPAGE ((|CurrentFXP| WORD) (* \; 
+"First 7 items are FX values for user and 6 system contexts.") (|ResetFXP| WORD) (|SubovFXP| WORD) (
+|KbdFXP| WORD) (|HardReturnFXP| WORD) (GCFXP WORD) (FAULTFXP WORD) (|EndOfStack| WORD) (* \; 
+"Stack high-water mark: address of guard block at current end of stack") (|LVersion| WORD) (* \; 
+"Lisp version, followed by min versions of microcode and Bcpl compatible with this Lisp") (
+|MinRVersion| WORD) (|MinBVersion| WORD) (|RVersion| WORD) (* \; 
+"Bcpl fills in the actual microcode, Bcpl versions.") (|BVersion| WORD) (|MachineType| WORD) (
+|MiscFXP| WORD) (* \; "FX for MISC context") (|Key| WORD) (* \; "= IFPValidKey if vmem consistent.") (
+|SerialNumber| WORD) (* \; "Pup host number (Dorado/Dolphin)") (|EmulatorSpace| WORD) (* \; 
+"Hiloc of bcpl space (always zero now)") (|ScreenWidth| WORD) (|NxtPMAddr| WORD) (* \; 
+"Next page to be allocated in secondary page map table") (NIL WORD) (* \; 
+"WAS NActivePages, Length of vmem in use") (NIL WORD) (* \; 
+"WAS NDirtyPages, not used, but maintained as = NActivePages") (|filePnPMP0| WORD) (* \; 
+"Sysout page number of first page of secondary page map table (\\PAGEMAP), which is where the secondary map pages themselves live"
+) (|filePnPMT0| WORD) (* \; "Sysout page number of first page of primary page map table") (TELERAIDFXP
+ WORD) (* \; "FX for TeleRaid server context") (NATIVE-START-MEM-PAGE WORD) (* \; 
+"Unix page where native code starts") (NATIVE-LENGTH-PAGE WORD) (* \; 
+"Unix page length of native code") (NATIVE-PAGE-OFFSET WORD) (* \; 
+"Lisp Disk Page offset  of native code") (|UserNameAddr| WORD) (* \; 
+"Addresses in bcpl space (seg 0) of global user name and password") (|UserPswdAddr| WORD) (|StackBase|
+ WORD) (* \; "Stack address where user stack starts") (FAULTHI WORD) (* \; 
 "Microcode for page fault stores fault address here, then does context switch to FAULTFXP") (FAULTLO 
-WORD) (DEVCONFIG WORD) (* ; "IT'S FOR KB,DISP TYPE") (* ; 
-"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* ; 
-"Number of entries in Real Page Table") (RPOFFSET WORD) (* ; "RP-RPOFFSET => index in table") (
-MAXETHERBYTES WORD) (* ; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") (
-EMBUFVP WORD) (* ; "VP of a one-page emulator buffer") (NSHost0 WORD) (* ; 
+WORD) (DEVCONFIG WORD) (* \; "IT'S FOR KB,DISP TYPE") (* \; 
+"Formerly REALPAGETABLE, back when it was always in Bcpl space.") (RPTSIZE WORD) (* \; 
+"Number of entries in Real Page Table") (RPOFFSET WORD) (* \; "RP-RPOFFSET => index in table") (
+MAXETHERBYTES WORD) (* \; "Number of bytes available in a pbi, not counting encapsulation (Dorado)") (
+EMBUFVP WORD) (* \; "VP of a one-page emulator buffer") (|NSHost0| WORD) (* \; 
 "Machine's 48-bit NS host number.  Lisp manages to compute this on all machines except Dolphin, where Bcpl fills it in."
-) (NSHost1 WORD) (NSHost2 WORD) (MDSZone WORD) (* ; 
-"Obsolete -- was used by Dolphin 10MB network code.") (MDSZoneLength WORD) (EMUBUFFERS WORD) (* ; 
-"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* ; 
-"Number of words of said space") (* ;; 
-"The following 2 are available if NEW_STOARGE is specified in C") (ProcessSize WORD) (* ; 
-"Process size for which can be use as LISP space") (StorageFullState WORD) (* ; 
-"Save last storage state") (ISFMAP WORD) (* ;; 
-"The following 4 are for \MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!"
+) (|NSHost1| WORD) (|NSHost2| WORD) (|MDSZone| WORD) (* \; 
+"Obsolete -- was used by Dolphin 10MB network code.") (|MDSZoneLength| WORD) (EMUBUFFERS WORD) (* \; 
+"Buffer space in segment 0 for swapping/disk activity") (EMUBUFLENGTH WORD) (* \; 
+"Number of words of said space") (* |;;| 
+"The following 2 are available if NEW_STOARGE is specified in C") (|ProcessSize| WORD) (* \; 
+"Process size for which can be use as LISP space") (|StorageFullState| WORD) (* \; 
+"Save last storage state") (ISFMAP WORD) (* |;;| 
+"The following 4 are for \\MISCAPPLY* -- note that they are not ref counted, so don't pass the only pointer to something this way!"
 ) (MISCSTACKFN FULLXPOINTER) (MISCSTACKARG1 FULLXPOINTER) (MISCSTACKARG2 FULLXPOINTER) (
-MISCSTACKRESULT FULLXPOINTER) (NRealPages WORD) (* ; "Number pages of real memory") (
-LastLockedFilePage WORD) (* ; 
-"Last page of vmem that is locked--booting has to load at least that far.") (LastDominoFilePage WORD) 
-(* ; "Last sysout page reserved for Dandelion microcode") (FPTOVPStart WORD) (* ; 
-"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* ; 
-"Used to implement fake middle button on 2-button Dandelion.") (DL24BitAddressable WORD) (* ; 
-"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* ; 
-"Address of real page table, set up by Bcpl (but not chained together)") (SYSDISK WORD) (* ; 
-"WAS DLLastVmemPage, DLion booting microcode puts length of vmem file here.") (FullSpaceUsed WORD) (* 
-; "Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (* ;;
- 
+MISCSTACKRESULT FULLXPOINTER) (|NRealPages| WORD) (* \; "Number pages of real memory") (
+|LastLockedFilePage| WORD) (* \; 
+"Last page of vmem that is locked--booting has to load at least that far.") (|LastDominoFilePage| WORD
+) (* \; "Last sysout page reserved for Dandelion microcode") (|FPTOVPStart| WORD) (* \; 
+"Sysout page where FPTOVP starts") (FAKEMOUSEBITS WORD) (* \; 
+"Used to implement fake middle button on 2-button Dandelion.") (|DL24BitAddressable| WORD) (* \; 
+"non-zero if DLion capable of addressing 32MB virtual memory") (REALPAGETABLEPTR FULLXPOINTER) (* \; 
+"Address of real page table, set up by Bcpl (but not chained together)") (SYSDISK WORD) (* \; 
+"WAS DLLastVmemPage, DLion booting microcode puts length of vmem file here.") (|FullSpaceUsed| WORD) (
+* \; "Non-zero if vmem beyond initial 8MB has been allocated.") (FAKEKBDAD4 WORD) (FAKEKBDAD5 WORD) (*
+ |;;| 
 "The following 9 items (6 words and 3 pointers) are 3 3-element vectors for the Dorado extended virtual memory code--indexed by 0,1,2 according to which of up to 3 virtual memory backing files you're working with."
-) (XVmemFmapBase WORD) (* ; 
+) (|XVmemFmapBase| WORD) (* \; 
 "Bcpl stores isf map pointer to each partition here.  First is redundant with ISFMAP field above.") (
-NIL WORD) (NIL WORD) (XVmemFmapHighBase WORD) (* ; 
+NIL WORD) (NIL WORD) (|XVmemFmapHighBase| WORD) (* \; 
 "Bcpl stores the highest vm page contained in this or earlier partition.") (NIL WORD) (NIL WORD) (
-XVmemDiskBase FULLXPOINTER) (* ; 
+|XVmemDiskBase| FULLXPOINTER) (* \; 
 "Lisp stores disk objects here (just a convenient non-faulting contiguous block of storage).") (NIL 
-FULLXPOINTER) (NIL FULLXPOINTER) (DLLastVmemPage FIXP) (* ; 
-"DLion booting microcode puts length of vmem file here.") (NActivePages FIXP) (* ; 
-"Length of vmem in use") (NDirtyPages FIXP) (* ; "not used, but maintained as = NActivePages")) (
-CREATE (\ALLOCBLOCK 43)))
+FULLXPOINTER) (NIL FULLXPOINTER) (|DLLastVmemPage| FIXP) (* \; 
+"DLion booting microcode puts length of vmem file here.") (|NActivePages| FIXP) (* \; 
+"Length of vmem in use") (|NDirtyPages| FIXP) (* \; "not used, but maintained as = NActivePages")) (
+CREATE (\\ALLOCBLOCK 43)))
 (BLOCKRECORD IOPAGE ((NIL 18 WORD) (DLMAINTPANEL WORD) (DLFLOPPYCMD WORD) (DLTTYPORTCMD WORD) (
 DLPROCESSORCMD WORD) (NEWMOUSESTATE WORD) (DLBEEPCMD WORD) (DLRS232CMISCCOMMAND WORD) (DLRS232CPUTFLAG
  WORD) (DLRS232CGETFLAG WORD) (NIL 6 WORD) (DLFLOPPY WORD) (DLTTYOUT WORD) (NIL 1 WORD) (DLTTYIN WORD)
@@ -580,145 +595,148 @@ DLLSEPIMAGECSB 32 WORD) (DLIOPHARDWARECONFIG WORD) (NIL 11 WORD) (DLRS232CPARAME
 DLRS232CPARAMETERCSBHI.11 WORD) (DLRS232CSETRS366STATUS.11 14 WORD) (NIL 60 WORD) (DLMAGTAPE 4 WORD) (
 DLETHERNET 12 WORD) (NIL 31 WORD) (DLDISPINTERRUPT WORD) (DLDISPCONTROL WORD) (DLDISPBORDER WORD) (
 DLCURSORX WORD) (DLCURSORY WORD) (DLCURSORBITMAP 16 WORD)) (ACCESSFNS IOPAGE ((DLCURSORBITMAPPTR (
-\ADDBASE DATUM 240)) (DLCURSORYPTR (\ADDBASE DATUM 239)) (DLCURSORXPTR (\ADDBASE DATUM 238)) (
-DLDISPINTERRUPTPTR (\ADDBASE DATUM 235)) (DLETHERNETPTR (\ADDBASE DATUM 192)) (DLKBDAD5PTR (\ADDBASE 
-DATUM 67)) (DLKBDAD4PTR (\ADDBASE DATUM 66)) (DLKBDAD3PTR (\ADDBASE DATUM 65)) (DLKBDAD2PTR (\ADDBASE 
-DATUM 64)) (DLKBDAD1PTR (\ADDBASE DATUM 63)) (DLKBDAD0PTR (\ADDBASE DATUM 62)) (DLUTILINPTR (\ADDBASE 
-DATUM 61)) (DLMOUSEYPTR (\ADDBASE DATUM 60)) (DLMOUSEXPTR (\ADDBASE DATUM 59)) (DLTODLOPTR (\ADDBASE 
-DATUM 56)) (DLMAINTPANELPTR (\ADDBASE DATUM 18)))) (CREATE (\ALLOCBLOCK 128)))
-(PUTPROPS EMADDRESS MACRO (ARGS ((LAMBDA (ADDR) (COND ((EQ \D1BCPLspace \D0BCPLspace) (LIST (LIST (
-QUOTE OPCODES) (QUOTE GCONST) 0 0 (LRSH ADDR 8) (LOGAND ADDR 255)))) (T (BQUOTE (\VAG2 (fetch 
-EmulatorSpace of \InterfacePage) %, ADDR))))) (EVAL (CAR ARGS)))))
-(PUTPROPS EMGETBASE MACRO ((OFFSET) (\GETBASE (EMADDRESS OFFSET) 0)))
-(PUTPROPS EMPUTBASE MACRO ((OFFSET VAL) (\PUTBASE (EMADDRESS OFFSET) 0 VAL)))
-(PUTPROPS EMULATORSEGMENT MACRO (NIL (fetch EmulatorSpace of \InterfacePage)))
-(PUTPROPS EMPOINTER MACRO (X (COND ((NEQ \D1BCPLspace \D0BCPLspace) (LIST (QUOTE \VAG2) (QUOTE (fetch 
-(IFPAGE EmulatorSpace) of \InterfacePage)) (CAR X))) ((ZEROP (CAR X)) NIL) (T (LIST (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-Apr-2021 20:06:09"))
+\\ADDBASE DATUM 240)) (DLCURSORYPTR (\\ADDBASE DATUM 239)) (DLCURSORXPTR (\\ADDBASE DATUM 238)) (
+DLDISPINTERRUPTPTR (\\ADDBASE DATUM 235)) (DLETHERNETPTR (\\ADDBASE DATUM 192)) (DLKBDAD5PTR (
+\\ADDBASE DATUM 67)) (DLKBDAD4PTR (\\ADDBASE DATUM 66)) (DLKBDAD3PTR (\\ADDBASE DATUM 65)) (
+DLKBDAD2PTR (\\ADDBASE DATUM 64)) (DLKBDAD1PTR (\\ADDBASE DATUM 63)) (DLKBDAD0PTR (\\ADDBASE DATUM 62)
+) (DLUTILINPTR (\\ADDBASE DATUM 61)) (DLMOUSEYPTR (\\ADDBASE DATUM 60)) (DLMOUSEXPTR (\\ADDBASE DATUM 
+59)) (DLTODLOPTR (\\ADDBASE DATUM 56)) (DLMAINTPANELPTR (\\ADDBASE DATUM 18)))) (CREATE (\\ALLOCBLOCK 
+128)))
+(PUTPROPS EMADDRESS MACRO (ARGS ((LAMBDA (ADDR) (COND ((EQ |\\D1BCPLspace| |\\D0BCPLspace|) (LIST (
+LIST (QUOTE OPCODES) (QUOTE GCONST) 0 0 (LRSH ADDR 8) (LOGAND ADDR 255)))) (T (BQUOTE (\\VAG2 (|fetch|
+ |EmulatorSpace| |of| |\\InterfacePage|) \, ADDR))))) (EVAL (CAR ARGS)))))
+(PUTPROPS EMGETBASE MACRO ((OFFSET) (\\GETBASE (EMADDRESS OFFSET) 0)))
+(PUTPROPS EMPUTBASE MACRO ((OFFSET VAL) (\\PUTBASE (EMADDRESS OFFSET) 0 VAL)))
+(PUTPROPS EMULATORSEGMENT MACRO (NIL (|fetch| |EmulatorSpace| |of| |\\InterfacePage|)))
+(PUTPROPS EMPOINTER MACRO (X (COND ((NEQ |\\D1BCPLspace| |\\D0BCPLspace|) (LIST (QUOTE \\VAG2) (QUOTE 
+(|fetch| (IFPAGE |EmulatorSpace|) |of| |\\InterfacePage|)) (CAR X))) ((ZEROP (CAR X)) NIL) (T (LIST (
+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 " 6-May-2021 15:25:40"))
 
 (DATATYPE COMPILED-CLOSURE (FNHEADER ENVIRONMENT))
-(RPAQQ \COMPILED-CLOSURE 13)
-(CONSTANTS \COMPILED-CLOSURE)
-(PUTPROPS \EXTENDED.EQP MACRO (OPENLAMBDA (X Y) (COND ((EQ (NTYPX X) (NTYPX Y)) (SELECTC (NTYPX X) (
-\STACKP (EQ (fetch (STACKP EDFXP) of X) (fetch (STACKP EDFXP) of Y))) (\COMPILED-CLOSURE (EQDEFP X Y))
- NIL)))))
+(RPAQQ \\COMPILED-CLOSURE 13)
+(CONSTANTS \\COMPILED-CLOSURE)
+(PUTPROPS \\EXTENDED.EQP MACRO (OPENLAMBDA (X Y) (COND ((EQ (NTYPX X) (NTYPX Y)) (SELECTC (NTYPX X) (
+\\STACKP (EQ (|fetch| (STACKP EDFXP) |of| X) (|fetch| (STACKP EDFXP) |of| Y))) (\\COMPILED-CLOSURE (
+EQDEFP X Y)) NIL)))))
 (PUTPROPS DPUTCODE MACRO ((FN CA SIZE) (SELECTQ (SYSTEMTYPE) (D (DEFC FN CA)) (/PUTPROP FN (QUOTE 
 DCODE) CA))))
 (PUTPROPS MCODEP MACRO ((X) (OR (ARRAYP X) (AND (LITATOM X) (ARRAYP (SELECTQ (SYSTEMTYPE) (D (GETD X))
  (GETPROP X (QUOTE DCODE))))))))
-(PUTPROPS CODELT MACRO ((CA N) (\BYTELT CA N)))
+(PUTPROPS CODELT MACRO ((CA N) (\\BYTELT CA N)))
 (PUTPROPS CODELT2 MACRO (OPENLAMBDA (DEF LC) (LOGOR (LLSH (CODELT DEF LC) BITSPERBYTE) (CODELT DEF (
 ADD1 LC)))))
 (PUTPROPS CODESETA2 MACRO (OPENLAMBDA (DEF LC VALUE) (CODESETA DEF LC (LRSH VALUE BITSPERBYTE)) (
 CODESETA DEF (ADD1 LC) (IMOD VALUE (CONSTANT (LLSH 1 BITSPERBYTE))))))
-(PUTPROPS CODESETA MACRO ((CA N NV) (\BYTESETA CA N NV)))
+(PUTPROPS CODESETA MACRO ((CA N NV) (\\BYTESETA CA N NV)))
 (PUTPROPS BYTESPERNAMEENTRY MACRO (NIL (UNFOLD (CONSTANT (WORDSPERNAMEENTRY)) BYTESPERWORD)))
 (PUTPROPS BYTESPERNTOFFSETENTRY MACRO (NIL (UNFOLD (WORDSPERNAMEENTRY) BYTESPERWORD)))
-(PUTPROPS GETNAMEENTRY MACRO (OPENLAMBDA (DEF LC) (LET ((NUMBER 0)) (* ;; 
+(PUTPROPS GETNAMEENTRY MACRO (OPENLAMBDA (DEF LC) (LET ((NUMBER 0)) (* |;;| 
 "Must ALWAYS be called with DEF really being either a FNHEADER or a nametable pseudo-fnheader.  Never use addbase to offset from it.  This is because CODEBASEELT checks the BYTESWAPPED flag in the fnheader...."
 ) (FOR I FROM 0 TO (CONSTANT (SUB1 (BYTESPERNAMEENTRY))) DO (SETQ NUMBER (LOGOR (LLSH NUMBER 
 BITSPERBYTE) (CODEBASELT DEF (IPLUS LC I))))) NUMBER)))
 (PUTPROPS GETNTFLAGS MACRO (OPENLAMBDA (DEF LC) (CODEBASELT DEF LC)))
 (PUTPROPS GETNTOFFSET MACRO (OPENLAMBDA (DEF LC) (NTSLOT-OFFSET (GETNTOFFSETENTRY DEF LC))))
-(PUTPROPS GETNTOFFSETENTRY MACRO (OPENLAMBDA (DEF LC) (LET ((NUMBER 0)) (for I from 0 to (CONSTANT (
-SUB1 (BYTESPERNTOFFSETENTRY))) do (SETQ NUMBER (LOGOR (LLSH NUMBER BITSPERBYTE) (CODEBASELT DEF (IPLUS
- LC I))))) NUMBER)))
+(PUTPROPS GETNTOFFSETENTRY MACRO (OPENLAMBDA (DEF LC) (LET ((NUMBER 0)) (|for| I |from| 0 |to| (
+CONSTANT (SUB1 (BYTESPERNTOFFSETENTRY))) |do| (SETQ NUMBER (LOGOR (LLSH NUMBER BITSPERBYTE) (
+CODEBASELT DEF (IPLUS LC I))))) NUMBER)))
 (PUTPROPS GETNTTAG MACRO (OPENLAMBDA (DEF LC) (CODEBASELT DEF (ADD1 LC))))
 (PUTPROPS SETNAMEENTRY MACRO (OPENLAMBDA (DEF LC VALUE) (FOR I FROM (CONSTANT (SUB1 (BYTESPERNAMEENTRY
 ))) TO 0 BY -1 DO (CODEBASESETA DEF (IPLUS LC I) (LOGAND VALUE (CONSTANT (SUB1 (LLSH 1 BITSPERBYTE))))
 ) (SETQ VALUE (LRSH VALUE BITSPERBYTE)))))
 (PUTPROPS WORDSPERNTOFFSETENTRY MACRO (NIL (WORDSPERNAMEENTRY)))
 (PUTPROPS NTSLOT-OFFSET MACRO ((X) (LOGAND 255 X)))
-(DEFMACRO NEW-SYMBOL-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM) (* ;; 
+(DEFMACRO NEW-SYMBOL-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM) (* |;;| 
 "Use one form or another, depending on whether we're compiling for new 3-byte atoms or old 2-byte atom numbers."
-) (COND ((FMEMB :3-BYTE COMPILER::*TARGET-ARCHITECTURE*) (* ; "NEW ATOMS") (BQUOTE (\, NEW-SYMBOL-FORM
-))) (T (BQUOTE (\, OLD-SYMBOL-FORM)))))
-(DEFOPTIMIZER BIG-VMEM-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM &ENVIRONMENT ENV) (* ;; 
+) (COND ((FMEMB :3-BYTE COMPILER::*TARGET-ARCHITECTURE*) (* \; "NEW ATOMS") (BQUOTE (\\\, 
+NEW-SYMBOL-FORM))) (T (BQUOTE (\\\, OLD-SYMBOL-FORM)))))
+(DEFOPTIMIZER BIG-VMEM-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM &ENVIRONMENT ENV) (* |;;| 
 "Allow for differences between 4-byte pointers and 3-byte pointers..") (COND ((FMEMB :4-BYTE (
-COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\, NEW-SYMBOL-FORM))) (T (BQUOTE (\, OLD-SYMBOL-FORM)
-))))
-(DEFOPTIMIZER SETSTKNAMEENTRY (CODEARRAY OFFSET VAL &ENVIRONMENT ENV) (* ;; 
+COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\\\, NEW-SYMBOL-FORM))) (T (BQUOTE (\\\, 
+OLD-SYMBOL-FORM)))))
+(DEFOPTIMIZER SETSTKNAMEENTRY (CODEARRAY OFFSET VAL &ENVIRONMENT ENV) (* |;;| 
 "Set the name entry for a name-table entry.") (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE
- ENV)) (BQUOTE (LET ((BASE (fetch (ARRAYP BASE) of (\, CODEARRAY))) (VALUE (\, VAL))) (COND ((FIXP 
-VALUE) (* ; "A 20-byte atom #.  Make it an atom.") (\PUTBASEPTR BASE (\, OFFSET) (\VAG2 \AtomHI VALUE)
-)) (T (* ; "A 3-byte atom.  Just use it.") (\PUTBASEPTR BASE (\, OFFSET) VALUE)))))) (T (BQUOTE (LET (
-(BASE (fetch (ARRAYP BASE) of (\, CODEARRAY)))) (\PUTBASE BASE (\, OFFSET) (\, VAL)))))))
-(DEFOPTIMIZER SETSTKNTOFFSETENTRY (BASE OFFSET VAL &ENVIRONMENT ENV) (* ;; 
+ ENV)) (BQUOTE (LET ((BASE (|fetch| (ARRAYP BASE) |of| (\\\, CODEARRAY))) (VALUE (\\\, VAL))) (COND ((
+FIXP VALUE) (* \; "A 20-byte atom #.  Make it an atom.") (\\PUTBASEPTR BASE (\\\, OFFSET) (\\VAG2 
+|\\AtomHI| VALUE))) (T (* \; "A 3-byte atom.  Just use it.") (\\PUTBASEPTR BASE (\\\, OFFSET) VALUE)))
+))) (T (BQUOTE (LET ((BASE (|fetch| (ARRAYP BASE) |of| (\\\, CODEARRAY)))) (\\PUTBASE BASE (\\\, 
+OFFSET) (\\\, VAL)))))))
+(DEFOPTIMIZER SETSTKNTOFFSETENTRY (BASE OFFSET VAL &ENVIRONMENT ENV) (* |;;| 
 "Set the offset entry for a name-table entry.") (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE
- ENV)) (BQUOTE (\PUTBASEFIXP (\, BASE) (\, OFFSET) (\, VAL)))) (T (BQUOTE (\PUTBASE (\, BASE) (\, 
-OFFSET) (\, VAL))))))
-(DEFOPTIMIZER GETSTKNAMEENTRY (BASE OFFSET &ENVIRONMENT ENV) (* ;; 
+ ENV)) (BQUOTE (\\PUTBASEFIXP (\\\, BASE) (\\\, OFFSET) (\\\, VAL)))) (T (BQUOTE (\\PUTBASE (\\\, BASE
+) (\\\, OFFSET) (\\\, VAL))))))
+(DEFOPTIMIZER GETSTKNAMEENTRY (BASE OFFSET &ENVIRONMENT ENV) (* |;;| 
 "Get a name entry out of a name table.  BASE is the start of the name table; OFFSET is in words, not bytes or name entries."
-) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\GETBASEPTR (\, BASE) (\, 
-OFFSET)))) (T (BQUOTE (\GETBASE (\, BASE) (\, OFFSET))))))
+) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\\GETBASEPTR (\\\, BASE) (
+\\\, OFFSET)))) (T (BQUOTE (\\GETBASE (\\\, BASE) (\\\, OFFSET))))))
 (DEFOPTIMIZER GETSTKNTOFFSETENTRY (BASE OFFSET &ENVIRONMENT ENV) (COND ((FMEMB :3-BYTE (
-COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\GETBASEFIXP (\, BASE) (\, OFFSET)))) (T (BQUOTE (
-\GETBASE (\, BASE) (\, OFFSET))))))
-(DEFOPTIMIZER WORDSPERNAMEENTRY (&ENVIRONMENT ENV) (* ;; 
-"Number of words in a name-table %"Name%" entry--the space for the symbol.  1 for old symbol systems, 2 for 3-byte-atom systesm."
+COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\\GETBASEFIXP (\\\, BASE) (\\\, OFFSET)))) (T (BQUOTE
+ (\\GETBASE (\\\, BASE) (\\\, OFFSET))))))
+(DEFOPTIMIZER WORDSPERNAMEENTRY (&ENVIRONMENT ENV) (* |;;| 
+"Number of words in a name-table \"Name\" entry--the space for the symbol.  1 for old symbol systems, 2 for 3-byte-atom systesm."
 ) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN 2))) ((AND 
 CROSSCOMPILING (FMEMB :3-BYTE-INIT (COMPILER::ENV-TARGET-ARCHITECTURE ENV))) (BQUOTE (PROGN 2))) (T (
 BQUOTE (PROGN 1)))))
-(DEFOPTIMIZER SETSTKNTOFFSET (BASE OFFSET TYPE VAL &ENVIRONMENT ENV) (* ;; 
+(DEFOPTIMIZER SETSTKNTOFFSET (BASE OFFSET TYPE VAL &ENVIRONMENT ENV) (* |;;| 
 "Set the offset entry for a name-table entry, from the symbol to fill in plus the variable-type marker value SHIFTED LEFT 14 BITS ALREADY."
-) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN (\FIXCODENUM (\, BASE)
- (IDIFFERENCE (\, OFFSET) BYTESPERWORD) (\, TYPE)) (\FIXCODENUM (\, BASE) (\, OFFSET) (\, VAL))))) (T 
-(BQUOTE (\FIXCODENUM (\, BASE) (\, OFFSET) (IPLUS (\, TYPE) (\, VAL)))))))
-(DEFOPTIMIZER SETSTKNAME-RAW (BASE OFFSET VAL &ENVIRONMENT ENV) (* ;; 
+) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN (\\FIXCODENUM (\\\, 
+BASE) (IDIFFERENCE (\\\, OFFSET) BYTESPERWORD) (\\\, TYPE)) (\\FIXCODENUM (\\\, BASE) (\\\, OFFSET) (
+\\\, VAL))))) (T (BQUOTE (\\FIXCODENUM (\\\, BASE) (\\\, OFFSET) (IPLUS (\\\, TYPE) (\\\, VAL)))))))
+(DEFOPTIMIZER SETSTKNAME-RAW (BASE OFFSET VAL &ENVIRONMENT ENV) (* |;;| 
 "Set the name entry for a name-table entry. This version works with raw storage, as opposed to SETSTKNAMEENTRY, which works on an ARRAYP."
-) (* ;; "If this optimizer changes, change SETSTKNAMEENTRY as well.") (COND ((FMEMB :3-BYTE (
-COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (LET ((VALUE (\, VAL))) (COND ((FIXP VALUE) (* ; 
-"A 20-byte atom #.  Make it an atom.") (\PUTBASEPTR (\, BASE) (\, OFFSET) (\VAG2 \AtomHI VALUE))) (T (
-* ; "A 3-byte atom.  Just use it.") (\PUTBASEPTR (\, BASE) (\, OFFSET) VALUE)))))) (T (BQUOTE (
-\PUTBASE (\, BASE) (\, OFFSET) (\, VAL))))))
-(DEFOPTIMIZER SETSTKNTOFFSET-RAW (BASE OFFSET TYPE VAL &ENVIRONMENT ENV) (* ;; 
+) (* |;;| "If this optimizer changes, change SETSTKNAMEENTRY as well.") (COND ((FMEMB :3-BYTE (
+COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (LET ((VALUE (\\\, VAL))) (COND ((FIXP VALUE) (* \; 
+"A 20-byte atom #.  Make it an atom.") (\\PUTBASEPTR (\\\, BASE) (\\\, OFFSET) (\\VAG2 |\\AtomHI| 
+VALUE))) (T (* \; "A 3-byte atom.  Just use it.") (\\PUTBASEPTR (\\\, BASE) (\\\, OFFSET) VALUE)))))) 
+(T (BQUOTE (\\PUTBASE (\\\, BASE) (\\\, OFFSET) (\\\, VAL))))))
+(DEFOPTIMIZER SETSTKNTOFFSET-RAW (BASE OFFSET TYPE VAL &ENVIRONMENT ENV) (* |;;| 
 "Set the offset entry for a name-table entry.  This version works on raw storage, vs SETSTKNAMEOFFSETENTRY, which is supposed to work on codearrays.  Any changes here should be made there, as well.  TYPE must already be shifted left by 14 bits."
-) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN (\PUTBASE (\, BASE) (
-\, OFFSET) (\, TYPE)) (\PUTBASE (\, BASE) (IPLUS (\, OFFSET) 1) (\, VAL))))) (T (BQUOTE (\PUTBASE (\, 
-BASE) (\, OFFSET) (IPLUS (\, TYPE) (\, VAL)))))))
-(DEFOPTIMIZER NEW-SYMBOL-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM &ENVIRONMENT ENV) (* ;; 
+) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (PROGN (\\PUTBASE (\\\, BASE)
+ (\\\, OFFSET) (\\\, TYPE)) (\\PUTBASE (\\\, BASE) (IPLUS (\\\, OFFSET) 1) (\\\, VAL))))) (T (BQUOTE (
+\\PUTBASE (\\\, BASE) (\\\, OFFSET) (IPLUS (\\\, TYPE) (\\\, VAL)))))))
+(DEFOPTIMIZER NEW-SYMBOL-CODE (NEW-SYMBOL-FORM OLD-SYMBOL-FORM &ENVIRONMENT ENV) (* |;;| 
 "Allow for differences between 3-byte atoms and 2-byte atoms.") (COND ((FMEMB :3-BYTE (
-COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\, NEW-SYMBOL-FORM))) (T (BQUOTE (\, OLD-SYMBOL-FORM)
-))))
+COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (\\\, NEW-SYMBOL-FORM))) (T (BQUOTE (\\\, 
+OLD-SYMBOL-FORM)))))
 (DEFOPTIMIZER MAKE-NTENTRY (TYPE OFFSET &ENVIRONMENT ENV) (COND ((FMEMB :3-BYTE (
-COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (IPLUS (CONSTANT (LLSH (\, TYPE) 16)) (\, OFFSET)))) (
-T (BQUOTE (IPLUS (CONSTANT (\, TYPE)) (\, OFFSET))))))
-(DEFOPTIMIZER NULL-NTENTRY (VALUE &ENVIRONMENT ENV) (* ;; 
+COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (IPLUS (CONSTANT (LLSH (\\\, TYPE) 16)) (\\\, OFFSET))
+)) (T (BQUOTE (IPLUS (CONSTANT (\\\, TYPE)) (\\\, OFFSET))))))
+(DEFOPTIMIZER NULL-NTENTRY (VALUE &ENVIRONMENT ENV) (* |;;| 
 "Predicate:  Is  VALUE a null entry in a name table?  I.e., does it result from fetching the entry at the end that`s all zeros?  For 2-byte atoms, that's the same as being zero.  For 3-byte atoms, it's the same as being NIL."
-) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (NULL (\, VALUE)))) (T (
-BQUOTE (EQ (\, VALUE) 0)))))
-(DEFOPTIMIZER NTSLOT-VARTYPE (X &ENVIRONMENT ENV) (* ;; 
+) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (NULL (\\\, VALUE)))) (T (
+BQUOTE (EQ (\\\, VALUE) 0)))))
+(DEFOPTIMIZER NTSLOT-VARTYPE (X &ENVIRONMENT ENV) (* |;;| 
 "Given the contents of a name-table Offset entry, return the variable-type bits at the top of the entry.  THE RESULT IS RETURNED SHEFTED LEFT 14 BITS, THE USUAL REPRESENTATION."
-) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (LOGAND 49153 (LRSH (\, X) 16
-)))) (T (BQUOTE (LOGAND (\, X) 49152)))))
+) (COND ((FMEMB :3-BYTE (COMPILER::ENV-TARGET-ARCHITECTURE ENV)) (BQUOTE (LOGAND 49153 (LRSH (\\\, X) 
+16)))) (T (BQUOTE (LOGAND (\\\, X) 49152)))))
 (ACCESSFNS CODEARRAY ((STKMIN (CODELT2 DATUM 0) (CODESETA2 DATUM 0 NEWVALUE)) (NA (SIGNED (CODELT2 
 DATUM 2) BITSPERWORD) (CODESETA2 DATUM 2 (UNSIGNED NEWVALUE BITSPERWORD))) (PV (SIGNED (CODELT2 DATUM 
 4) BITSPERWORD) (CODESETA2 DATUM 4 (UNSIGNED NEWVALUE BITSPERWORD))) (STARTPC (CODELT2 DATUM 6) (
 CODESETA2 DATUM 6 NEWVALUE)) (ARGTYPE (LOGAND (LRSH (CODELT DATUM 8) 4) 3) (CODESETA DATUM 8 (LOGOR (
-LOGAND (CODELT DATUM 8) 207) (LLSH (LOGAND NEWVALUE 3) 4)))) (FRAMENAME (\VAG2 (LOGAND (CODELT2 DATUM 
-8) 4095) (CODELT2 DATUM 10)) (\FIXCODEPTR DATUM 11 (EVQ NEWVALUE))) (NTSIZE (CODELT2 DATUM 12) (
+LOGAND (CODELT DATUM 8) 207) (LLSH (LOGAND NEWVALUE 3) 4)))) (FRAMENAME (\\VAG2 (LOGAND (CODELT2 DATUM
+ 8) 4095) (CODELT2 DATUM 10)) (\\FIXCODEPTR DATUM 11 (EVQ NEWVALUE))) (NTSIZE (CODELT2 DATUM 12) (
 CODESETA2 DATUM 12 NEWVALUE)) (NLOCALS (CODELT DATUM 14) (CODESETA DATUM 14 NEWVALUE)) (FVAROFFSET (
-CODELT DATUM 15) (CODESETA DATUM 15 NEWVALUE))) (ACCESSFNS CODEARRAY ((LSTARP (ILESSP (fetch (
-CODEARRAY NA) of DATUM) 0)) (OVERHEADWORDS (PROGN 8)) (ALIGNED (IPLUS (fetch (CODEARRAY NTSIZE) of 
-DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY STKMIN) of DATUM with (
-\STKMIN DATUM))) (FRAMENAME# (PROGN 8)))))
+CODELT DATUM 15) (CODESETA DATUM 15 NEWVALUE))) (ACCESSFNS CODEARRAY ((LSTARP (ILESSP (|fetch| (
+CODEARRAY NA) |of| DATUM) 0)) (OVERHEADWORDS (PROGN 8)) (ALIGNED (IPLUS (|fetch| (CODEARRAY NTSIZE) 
+|of| DATUM) (|fetch| (CODEARRAY OVERHEADWORDS) |of| T))) (FIXED NIL (|replace| (CODEARRAY STKMIN) |of|
+ DATUM |with| (\\STKMIN DATUM))) (FRAMENAME# (PROGN 8)))))
 (RECORD OPCODE (OP# OPCODENAME OPNARGS OPPRINT LEVADJ UFNFN UNIMPL))
-(GLOBALVARS \OPCODES)
+(GLOBALVARS \\OPCODES)
 (RPAQQ PVARCODE 32768)
 (RPAQQ FVARCODE 49152)
 (RPAQQ IVARCODE 0)
 (RPAQQ VARCODEMASK 49152)
 (CONSTANTS PVARCODE FVARCODE IVARCODE VARCODEMASK)
-(RPAQQ \NT.IVARCODE 0)
-(RPAQQ \NT.PVARCODE 2)
-(RPAQQ \NT.FVARCODE 3)
-(CONSTANTS \NT.IVARCODE \NT.PVARCODE \NT.FVARCODE)
-(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+(RPAQQ \\NT.IVARCODE 0)
+(RPAQQ \\NT.PVARCODE 2)
+(RPAQQ \\NT.FVARCODE 3)
+(CONSTANTS \\NT.IVARCODE \\NT.PVARCODE \\NT.FVARCODE)
+(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(RPAQQ \ERRORMESSAGELIST ("SYSTEM ERROR" " " "STACK OVERFLOW" "ILLEGAL RETURN" "ARG NOT LIST" 
+(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" 
 "FILE WON'T OPEN" "NON-NUMERIC ARG" "ATOM TOO LONG" "ATOM HASH TABLE FULL" "FILE NOT OPEN" 
 "ARG NOT LITATOM" "! too many files open" "END OF FILE" "ERROR" "BREAK" "ILLEGAL STACK ARG" 
@@ -730,632 +748,656 @@ DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY S
 "ILLEGAL TERMINAL TABLE" "! swapblock too big for buffer" "PROTECTION VIOLATION" "BAD FILE NAME" 
 "USER BREAK" "UNBOUND ATOM" "UNDEFINED CAR OF FORM" "UNDEFINED FUNCTION" "CONTROL-E" 
 "FLOATING UNDERFLOW" "FLOATING OVERFLOW" "OVERFLOW" "ARG NOT HARRAY" "TOO MANY ARGUMENTS"))
-(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-Apr-2021 20:06:09"))
+(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 " 6-May-2021 15:25:40"))
 
-(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 (
-STREAM FW7) of DATUM with NEWVALUE)) (WRITEXTENSIONFN (fetch (STREAM F1) of DATUM) (replace (STREAM F1
-) of DATUM with NEWVALUE)))))
-(PUTPROPS \INSTREAMARG MACRO ((STRM NOERRORFLG) (\GETSTREAM STRM (QUOTE INPUT) NOERRORFLG)))
-(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-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| (STREAM FW7) |of| DATUM |with| NEWVALUE)) (WRITEXTENSIONFN (|fetch| (STREAM F1) |of|
+ DATUM) (|replace| (STREAM F1) |of| DATUM |with| NEWVALUE)))))
+(PUTPROPS \\INSTREAMARG MACRO ((STRM NOERRORFLG) (\\GETSTREAM STRM (QUOTE INPUT) NOERRORFLG)))
+(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 " 6-May-2021 15:25:40"))
 
-(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))))
-(PUTPROPS \XCCSFILEOUTCHARFN MACRO ((OUTSTREAM CHARCODE) (* ;;; 
+(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))))
+(PUTPROPS \\XCCSFILEOUTCHARFN MACRO ((OUTSTREAM CHARCODE) (* |;;;| 
 "Encoder for XCCS format.  Default decoder.") (COND ((EQ CHARCODE (CHARCODE EOL)) (COND ((NOT (
-\RUNCODED OUTSTREAM)) (* ; "Charset is a constant 0") (\BOUT OUTSTREAM (\CHARSET (CHARCODE EOL)))) ((
-EQ (\CHARSET (CHARCODE EOL)) (ffetch (STREAM CHARSET) of OUTSTREAM))) (T (\BOUT OUTSTREAM 
-NSCHARSETSHIFT) (\BOUT OUTSTREAM (freplace (STREAM CHARSET) of OUTSTREAM with (\CHARSET (CHARCODE EOL)
-))))) (\BOUT OUTSTREAM (SELECTC (ffetch EOLCONVENTION of OUTSTREAM) (CR.EOLC (CHARCODE CR)) (LF.EOLC (
-CHARCODE LF)) (CRLF.EOLC (\BOUT OUTSTREAM (CHARCODE CR)) (* ;; 
+\\RUNCODED OUTSTREAM)) (* \; "Charset is a constant 0") (\\BOUT OUTSTREAM (\\CHARSET (CHARCODE EOL))))
+ ((EQ (\\CHARSET (CHARCODE EOL)) (|ffetch| (STREAM CHARSET) |of| OUTSTREAM))) (T (\\BOUT OUTSTREAM 
+NSCHARSETSHIFT) (\\BOUT OUTSTREAM (|freplace| (STREAM CHARSET) |of| OUTSTREAM |with| (\\CHARSET (
+CHARCODE EOL)))))) (\\BOUT OUTSTREAM (SELECTC (|ffetch| EOLCONVENTION |of| OUTSTREAM) (CR.EOLC (
+CHARCODE CR)) (LF.EOLC (CHARCODE LF)) (CRLF.EOLC (\\BOUT OUTSTREAM (CHARCODE CR)) (* |;;| 
 "Don't put out high-order byte preceding LF.  The CRLF is EOL only if the bytes are immediately adjacent in the stream, with no additional encoding bytes"
-) (CHARCODE LF)) (SHOULDNT))) (freplace CHARPOSITION of OUTSTREAM with 0)) (T (COND ((NOT (\RUNCODED 
-OUTSTREAM)) (\BOUT OUTSTREAM (\CHARSET CHARCODE)) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) ((EQ (
-\CHARSET CHARCODE) (ffetch (STREAM CHARSET) of OUTSTREAM)) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE))) (T
- (\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 "27-Apr-2021 20:06:09"))
+) (CHARCODE LF)) (SHOULDNT))) (|freplace| CHARPOSITION |of| OUTSTREAM |with| 0)) (T (COND ((NOT (
+\\RUNCODED OUTSTREAM)) (\\BOUT OUTSTREAM (\\CHARSET CHARCODE)) (\\BOUT OUTSTREAM (\\CHAR8CODE CHARCODE
+))) ((EQ (\\CHARSET CHARCODE) (|ffetch| (STREAM CHARSET) |of| OUTSTREAM)) (\\BOUT OUTSTREAM (
+\\CHAR8CODE CHARCODE))) (T (\\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 " 6-May-2021 15:25:40"))
 
-(GLOBALVARS \BCPLDISPLAY)
-(ACCESSFNS LINEBUFFER ((LPARCOUNT (fetch FW6 of DATUM) (replace FW6 of DATUM with NEWVALUE)) (
-LBRKCOUNT (fetch FW7 of DATUM) (replace FW7 of DATUM with NEWVALUE)) (LINEBUFSTATE (fetch F5 of DATUM)
- (replace F5 of DATUM with NEWVALUE)) (* ; "F4 is free.  EJS, 7/8/85") (KEYBOARDSTREAM (fetch F2 of 
-DATUM) (replace F2 of DATUM with NEWVALUE)) (PEEKEDCHAR (fetch F3 of DATUM) (replace F3 of DATUM with 
-NEWVALUE)) (* ; "Character read by PEEKC") (LBFLAGS (fetch FW9 of DATUM) (replace FW9 of DATUM with 
-NEWVALUE)) (* ;; 
+(GLOBALVARS \\BCPLDISPLAY)
+(ACCESSFNS LINEBUFFER ((LPARCOUNT (|fetch| FW6 |of| DATUM) (|replace| FW6 |of| DATUM |with| NEWVALUE))
+ (LBRKCOUNT (|fetch| FW7 |of| DATUM) (|replace| FW7 |of| DATUM |with| NEWVALUE)) (LINEBUFSTATE (
+|fetch| F5 |of| DATUM) (|replace| F5 |of| DATUM |with| NEWVALUE)) (* \; "F4 is free.  EJS, 7/8/85") (
+KEYBOARDSTREAM (|fetch| F2 |of| DATUM) (|replace| F2 |of| DATUM |with| NEWVALUE)) (PEEKEDCHAR (|fetch|
+ F3 |of| DATUM) (|replace| F3 |of| DATUM |with| NEWVALUE)) (* \; "Character read by PEEKC") (LBFLAGS (
+|fetch| FW9 |of| DATUM) (|replace| FW9 |of| DATUM |with| NEWVALUE)) (* |;;| 
 "True if peeked char was echoed when peeked.  Could use this to determine whether to echo later or not, but that would be incompatible with Interlisp-10, so this field not used"
-)) (ACCESSFNS LINEBUFFER ((LBFLAGBASE (LOCF (fetch LBFLAGS of DATUM)))) (BLOCKRECORD LBFLAGBASE ((
+)) (ACCESSFNS LINEBUFFER ((LBFLAGBASE (LOCF (|fetch| LBFLAGS |of| DATUM)))) (BLOCKRECORD LBFLAGBASE ((
 PEEKEDECHOFLG FLAG) (INSTRINGP FLAG)))))
 (RPAQQ LINEBUFFERSTATES (FILLING.LBS READING.LBS RETYPING.LBS))
 (RPAQQ FILLING.LBS 0)
 (RPAQQ READING.LBS 1)
 (RPAQQ RETYPING.LBS 2)
 (CONSTANTS FILLING.LBS READING.LBS RETYPING.LBS)
-(PUTPROPS \INTERMP MACRO ((OFD) (EQ OFD \LINEBUF.OFD)))
-(PUTPROPS \OUTTERMP MACRO ((OFD) (EQ OFD \TERM.OFD)))
-(GLOBALVARS \DEFAULTLINEBUF)
-(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "29-Apr-2021 09:38:58"))
+(PUTPROPS \\INTERMP MACRO ((OFD) (EQ OFD \\LINEBUF.OFD)))
+(PUTPROPS \\OUTTERMP MACRO ((OFD) (EQ OFD \\TERM.OFD)))
+(GLOBALVARS \\DEFAULTLINEBUF)
+(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(DATATYPE HARRAYP ((NULLSLOTS WORD) (* ; "Number of NIL-NIL slots, which break chains") (LASTINDEX 
-WORD) (* ; 
-"Slot offset of last slot.  Used in probe computations computations.  Microcode support for \ADDBASE4 would help"
-) (HARRAYPBASE POINTER) (RECLAIMABLE FLAG) (* ; "True if keys can go away when no other refs") (
-OVERFLOWACTION POINTER) (NUMSLOTS WORD) (* ; 
-"The maximum number of logical slots--returned by HARRAYSIZE") (NUMKEYS WORD) (* ; 
+(DATATYPE HARRAYP ((NULLSLOTS WORD) (* \; "Number of NIL-NIL slots, which break chains") (LASTINDEX 
+WORD) (* \; 
+"Slot offset of last slot.  Used in probe computations computations.  Microcode support for \\ADDBASE4 would help"
+) (HARRAYPBASE POINTER) (RECLAIMABLE FLAG) (* \; "True if keys can go away when no other refs") (
+OVERFLOWACTION POINTER) (NUMSLOTS WORD) (* \; 
+"The maximum number of logical slots--returned by HARRAYSIZE") (NUMKEYS WORD) (* \; 
 "The number of distinct keys in the array") (HASHBITSFN POINTER) (EQUIVFN POINTER) (HASHUSERDATA 
 POINTER)))
-(PUTPROPS \EQHASHINGBITS MACRO (OPENLAMBDA (X) (* ; 
-"Spread out objects whose low bits are in small arithmetic progression, esp atoms") (LOGXOR (\HILOC X)
- (LOGXOR (LLSH (LOGAND (\LOLOC X) 8191) 3) (LRSH (\LOLOC X) 9)))))
-(PUTPROPS \ADDBASE2 MACRO (OPENLAMBDA (BASE N) (\ADDBASE (\ADDBASE BASE N) N)))
-(PUTPROPS \ADDBASE4 MACRO (OPENLAMBDA (BASE N) (\ADDBASE2 (\ADDBASE2 BASE N) N)))
-(PUTPROPS HUNKSIZEFROMNUMBER MACRO ((NTYPX) (FOLDLO (fetch DTDSIZE of (\GETDTD NTYPX)) WORDSPERCELL)))
-(PUTPROPS \BYTELT DMACRO (OPENLAMBDA (A J) (\GETBASEBYTE (fetch (ARRAYP BASE) of A) (IPLUS (fetch (
-ARRAYP OFFST) of A) J))))
-(PUTPROPS \BYTESETA DMACRO (OPENLAMBDA (A J V) (\PUTBASEBYTE (fetch (ARRAYP BASE) of A) (IPLUS (fetch 
-(ARRAYP OFFST) of A) J) V)))
-(PUTPROPS \WORDELT DMACRO (OPENLAMBDA (A J) (CHECK (AND (ARRAYP A) (EQ 0 (fetch (ARRAYP ORIG) of A)) (
-EQ \ST.POS16 (fetch (ARRAYP TYP) of A)))) (CHECK (IGREATERP (fetch (ARRAYP LENGTH) of A) J)) (\GETBASE
- (fetch (ARRAYP BASE) of A) (IPLUS (fetch (ARRAYP OFFST) of A) J))))
+(PUTPROPS \\EQHASHINGBITS MACRO (OPENLAMBDA (X) (* \; 
+"Spread out objects whose low bits are in small arithmetic progression, esp atoms") (LOGXOR (\\HILOC X
+) (LOGXOR (LLSH (LOGAND (\\LOLOC X) 8191) 3) (LRSH (\\LOLOC X) 9)))))
+(PUTPROPS \\ADDBASE2 MACRO (OPENLAMBDA (BASE N) (\\ADDBASE (\\ADDBASE BASE N) N)))
+(PUTPROPS \\ADDBASE4 MACRO (OPENLAMBDA (BASE N) (\\ADDBASE2 (\\ADDBASE2 BASE N) N)))
+(PUTPROPS HUNKSIZEFROMNUMBER MACRO ((NTYPX) (FOLDLO (|fetch| DTDSIZE |of| (\\GETDTD NTYPX)) 
+WORDSPERCELL)))
+(PUTPROPS \\BYTELT DMACRO (OPENLAMBDA (A J) (\\GETBASEBYTE (|fetch| (ARRAYP BASE) |of| A) (IPLUS (
+|fetch| (ARRAYP OFFST) |of| A) J))))
+(PUTPROPS \\BYTESETA DMACRO (OPENLAMBDA (A J V) (\\PUTBASEBYTE (|fetch| (ARRAYP BASE) |of| A) (IPLUS (
+|fetch| (ARRAYP OFFST) |of| A) J) V)))
+(PUTPROPS \\WORDELT DMACRO (OPENLAMBDA (A J) (CHECK (AND (ARRAYP A) (EQ 0 (|fetch| (ARRAYP ORIG) |of| 
+A)) (EQ \\ST.POS16 (|fetch| (ARRAYP TYP) |of| A)))) (CHECK (IGREATERP (|fetch| (ARRAYP LENGTH) |of| A)
+ J)) (\\GETBASE (|fetch| (ARRAYP BASE) |of| A) (IPLUS (|fetch| (ARRAYP OFFST) |of| A) J))))
 (RPAQQ BLOCKGCTYPECONSTANTS ((CODEBLOCK.GCT 2) (PTRBLOCK.GCT 1) (UNBOXEDBLOCK.GCT 0)))
 (RPAQQ CODEBLOCK.GCT 2)
 (RPAQQ PTRBLOCK.GCT 1)
 (RPAQQ UNBOXEDBLOCK.GCT 0)
 (CONSTANTS (CODEBLOCK.GCT 2) (PTRBLOCK.GCT 1) (UNBOXEDBLOCK.GCT 0))
-(RPAQQ ARRAYCONSTANTS (\ArrayBlockHeaderCells \ArrayBlockHeaderWords \ArrayBlockTrailerCells 
-\ArrayBlockTrailerWords (\ArrayBlockOverheadCells (IPLUS \ArrayBlockHeaderCells 
-\ArrayBlockTrailerCells)) (\ArrayBlockOverheadWords (IPLUS \ArrayBlockHeaderWords 
-\ArrayBlockTrailerWords)) \ArrayBlockLinkingCells (\MinArrayBlockSize (IPLUS \ArrayBlockOverheadCells 
-\ArrayBlockLinkingCells)) (\MaxArrayBlockSize 65535) (\MaxArrayNCells (IDIFFERENCE \MaxArrayBlockSize 
-\ArrayBlockOverheadCells)) \MaxArrayLen (\ABPASSWORDSHIFT 3) (\ArrayBlockPassword (LRSH 43690 
-\ABPASSWORDSHIFT)) (\FreeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH 
-UNBOXEDBLOCK.GCT 1))) (\UsedArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) 1)) (
-\CodeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1))))
-(RPAQQ \ArrayBlockHeaderCells 1)
-(RPAQQ \ArrayBlockHeaderWords 2)
-(RPAQQ \ArrayBlockTrailerCells 1)
-(RPAQQ \ArrayBlockTrailerWords 2)
-(RPAQ \ArrayBlockOverheadCells (IPLUS \ArrayBlockHeaderCells \ArrayBlockTrailerCells))
-(RPAQ \ArrayBlockOverheadWords (IPLUS \ArrayBlockHeaderWords \ArrayBlockTrailerWords))
-(RPAQQ \ArrayBlockLinkingCells 2)
-(RPAQ \MinArrayBlockSize (IPLUS \ArrayBlockOverheadCells \ArrayBlockLinkingCells))
-(RPAQQ \MaxArrayBlockSize 65535)
-(RPAQ \MaxArrayNCells (IDIFFERENCE \MaxArrayBlockSize \ArrayBlockOverheadCells))
-(RPAQQ \MaxArrayLen 65535)
-(RPAQQ \ABPASSWORDSHIFT 3)
-(RPAQ \ArrayBlockPassword (LRSH 43690 \ABPASSWORDSHIFT))
-(RPAQ \FreeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH UNBOXEDBLOCK.GCT 1))
-)
-(RPAQ \UsedArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) 1))
-(RPAQ \CodeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1))
-(CONSTANTS \ArrayBlockHeaderCells \ArrayBlockHeaderWords \ArrayBlockTrailerCells 
-\ArrayBlockTrailerWords (\ArrayBlockOverheadCells (IPLUS \ArrayBlockHeaderCells 
-\ArrayBlockTrailerCells)) (\ArrayBlockOverheadWords (IPLUS \ArrayBlockHeaderWords 
-\ArrayBlockTrailerWords)) \ArrayBlockLinkingCells (\MinArrayBlockSize (IPLUS \ArrayBlockOverheadCells 
-\ArrayBlockLinkingCells)) (\MaxArrayBlockSize 65535) (\MaxArrayNCells (IDIFFERENCE \MaxArrayBlockSize 
-\ArrayBlockOverheadCells)) \MaxArrayLen (\ABPASSWORDSHIFT 3) (\ArrayBlockPassword (LRSH 43690 
-\ABPASSWORDSHIFT)) (\FreeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH 
-UNBOXEDBLOCK.GCT 1))) (\UsedArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) 1)) (
-\CodeArrayFlagWord (LOGOR (LLSH \ArrayBlockPassword \ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1)))
-(RPAQQ ARRAYTYPES ((\ST.BYTE 0) (\ST.POS16 1) (\ST.INT32 2) (\ST.CODE 4) (\ST.PTR 6) (\ST.FLOAT 7) (
-\ST.BIT 8) (\ST.PTR2 11)))
-(RPAQQ \ST.BYTE 0)
-(RPAQQ \ST.POS16 1)
-(RPAQQ \ST.INT32 2)
-(RPAQQ \ST.CODE 4)
-(RPAQQ \ST.PTR 6)
-(RPAQQ \ST.FLOAT 7)
-(RPAQQ \ST.BIT 8)
-(RPAQQ \ST.PTR2 11)
-(CONSTANTS (\ST.BYTE 0) (\ST.POS16 1) (\ST.INT32 2) (\ST.CODE 4) (\ST.PTR 6) (\ST.FLOAT 7) (\ST.BIT 8)
- (\ST.PTR2 11))
-(RPAQQ \MAX.CELLSPERHUNK 64)
-(CONSTANTS \MAX.CELLSPERHUNK)
-(RPAQQ \IN.MAKEINIT NIL)
-(CONSTANTS (\IN.MAKEINIT))
+(RPAQQ ARRAYCONSTANTS (|\\ArrayBlockHeaderCells| |\\ArrayBlockHeaderWords| |\\ArrayBlockTrailerCells| 
+|\\ArrayBlockTrailerWords| (|\\ArrayBlockOverheadCells| (IPLUS |\\ArrayBlockHeaderCells| 
+|\\ArrayBlockTrailerCells|)) (|\\ArrayBlockOverheadWords| (IPLUS |\\ArrayBlockHeaderWords| 
+|\\ArrayBlockTrailerWords|)) |\\ArrayBlockLinkingCells| (|\\MinArrayBlockSize| (IPLUS 
+|\\ArrayBlockOverheadCells| |\\ArrayBlockLinkingCells|)) (|\\MaxArrayBlockSize| 65535) (
+|\\MaxArrayNCells| (IDIFFERENCE |\\MaxArrayBlockSize| |\\ArrayBlockOverheadCells|)) |\\MaxArrayLen| (
+\\ABPASSWORDSHIFT 3) (|\\ArrayBlockPassword| (LRSH 43690 \\ABPASSWORDSHIFT)) (|\\FreeArrayFlagWord| (
+LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH UNBOXEDBLOCK.GCT 1))) (
+|\\UsedArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) 1)) (
+|\\CodeArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1)
+)))
+(RPAQQ |\\ArrayBlockHeaderCells| 1)
+(RPAQQ |\\ArrayBlockHeaderWords| 2)
+(RPAQQ |\\ArrayBlockTrailerCells| 1)
+(RPAQQ |\\ArrayBlockTrailerWords| 2)
+(RPAQ |\\ArrayBlockOverheadCells| (IPLUS |\\ArrayBlockHeaderCells| |\\ArrayBlockTrailerCells|))
+(RPAQ |\\ArrayBlockOverheadWords| (IPLUS |\\ArrayBlockHeaderWords| |\\ArrayBlockTrailerWords|))
+(RPAQQ |\\ArrayBlockLinkingCells| 2)
+(RPAQ |\\MinArrayBlockSize| (IPLUS |\\ArrayBlockOverheadCells| |\\ArrayBlockLinkingCells|))
+(RPAQQ |\\MaxArrayBlockSize| 65535)
+(RPAQ |\\MaxArrayNCells| (IDIFFERENCE |\\MaxArrayBlockSize| |\\ArrayBlockOverheadCells|))
+(RPAQQ |\\MaxArrayLen| 65535)
+(RPAQQ \\ABPASSWORDSHIFT 3)
+(RPAQ |\\ArrayBlockPassword| (LRSH 43690 \\ABPASSWORDSHIFT))
+(RPAQ |\\FreeArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH 
+UNBOXEDBLOCK.GCT 1)))
+(RPAQ |\\UsedArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) 1))
+(RPAQ |\\CodeArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT
+ 1) 1))
+(CONSTANTS |\\ArrayBlockHeaderCells| |\\ArrayBlockHeaderWords| |\\ArrayBlockTrailerCells| 
+|\\ArrayBlockTrailerWords| (|\\ArrayBlockOverheadCells| (IPLUS |\\ArrayBlockHeaderCells| 
+|\\ArrayBlockTrailerCells|)) (|\\ArrayBlockOverheadWords| (IPLUS |\\ArrayBlockHeaderWords| 
+|\\ArrayBlockTrailerWords|)) |\\ArrayBlockLinkingCells| (|\\MinArrayBlockSize| (IPLUS 
+|\\ArrayBlockOverheadCells| |\\ArrayBlockLinkingCells|)) (|\\MaxArrayBlockSize| 65535) (
+|\\MaxArrayNCells| (IDIFFERENCE |\\MaxArrayBlockSize| |\\ArrayBlockOverheadCells|)) |\\MaxArrayLen| (
+\\ABPASSWORDSHIFT 3) (|\\ArrayBlockPassword| (LRSH 43690 \\ABPASSWORDSHIFT)) (|\\FreeArrayFlagWord| (
+LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH UNBOXEDBLOCK.GCT 1))) (
+|\\UsedArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) 1)) (
+|\\CodeArrayFlagWord| (LOGOR (LLSH |\\ArrayBlockPassword| \\ABPASSWORDSHIFT) (LLSH CODEBLOCK.GCT 1) 1)
+))
+(RPAQQ ARRAYTYPES ((\\ST.BYTE 0) (\\ST.POS16 1) (\\ST.INT32 2) (\\ST.CODE 4) (\\ST.PTR 6) (\\ST.FLOAT 
+7) (\\ST.BIT 8) (\\ST.PTR2 11)))
+(RPAQQ \\ST.BYTE 0)
+(RPAQQ \\ST.POS16 1)
+(RPAQQ \\ST.INT32 2)
+(RPAQQ \\ST.CODE 4)
+(RPAQQ \\ST.PTR 6)
+(RPAQQ \\ST.FLOAT 7)
+(RPAQQ \\ST.BIT 8)
+(RPAQQ \\ST.PTR2 11)
+(CONSTANTS (\\ST.BYTE 0) (\\ST.POS16 1) (\\ST.INT32 2) (\\ST.CODE 4) (\\ST.PTR 6) (\\ST.FLOAT 7) (
+\\ST.BIT 8) (\\ST.PTR2 11))
+(RPAQQ \\MAX.CELLSPERHUNK 64)
+(CONSTANTS \\MAX.CELLSPERHUNK)
+(RPAQQ \\IN.MAKEINIT NIL)
+(CONSTANTS (\\IN.MAKEINIT))
 (BLOCKRECORD SEQUENCEDESCRIPTOR ((ORIG BITS 1) (NIL BITS 1) (READONLY FLAG) (NIL BITS 1) (BASE POINTER
 ) (TYP BITS 4) (NIL BITS 4) (LENGTH BITS 24) (OFFST FIXP)))
-(DATATYPE ARRAYP ((* ;; "Describes an INTERLISP ARRAYP, as opposed to a CL array.") (ORIG BITS 1) (* ;
- "Origin, 0 or 1") (NIL BITS 1) (READONLY FLAG) (* ; "probably no READONLY arrays now") (NIL BITS 1) (
-BASE POINTER) (TYP BITS 4) (* ; "Type of the contents") (NIL BITS 4) (LENGTH BITS 24) (* ; 
-"Array's length") (OFFST FIXP) (* ; "Offset from BASE where the data really starts.")) (* ;; 
+(DATATYPE ARRAYP ((* |;;| "Describes an INTERLISP ARRAYP, as opposed to a CL array.") (ORIG BITS 1) (*
+ \; "Origin, 0 or 1") (NIL BITS 1) (READONLY FLAG) (* \; "probably no READONLY arrays now") (NIL BITS 
+1) (BASE POINTER) (TYP BITS 4) (* \; "Type of the contents") (NIL BITS 4) (LENGTH BITS 24) (* \; 
+"Array's length") (OFFST FIXP) (* \; "Offset from BASE where the data really starts.")) (* |;;| 
 "note that while ARRAYP is a DATATYPE, the allocation of it actually happens at MAKEINIT time under INITDATATYPE{NAMES}"
 ))
-(BLOCKRECORD ARRAYBLOCK ((PASSWORD BITS 13) (GCTYPE BITS 2) (* ; "Unboxed, Pointers, or Code") (INUSE 
-FLAG) (ARLEN WORD) (FWD FULLXPOINTER) (* ; "Only when on free list") (BKWD FULLXPOINTER)) (BLOCKRECORD
- ARRAYBLOCK ((ABFLAGS WORD) (* ; "Used for header and trailer"))) (ACCESSFNS ARRAYBLOCK ((DAT (
-\ADDBASE DATUM \ArrayBlockHeaderWords)) (TRAILER (\ADDBASE2 DATUM (IDIFFERENCE (fetch (ARRAYBLOCK 
-ARLEN) of DATUM) \ArrayBlockTrailerCells))))) (TYPE? (AND (EQ 0 (NTYPX DATUM)) (IGEQ (\HILOC DATUM) 
-\FirstArraySegment))))
-(GLOBALVARS \NxtArrayPage \FREEBLOCKBUCKETS \HUNKING?)
-(PUTPROPS HUNKSIZEFROMNUMBER MACRO ((NTYPX) (FOLDLO (fetch DTDSIZE of (\GETDTD NTYPX)) WORDSPERCELL)))
-(PUTPROP (QUOTE LLARRAYELT) (QUOTE IMPORTDATE) (IDATE "15-Sep-1994 11:08:59"))
+(BLOCKRECORD ARRAYBLOCK ((PASSWORD BITS 13) (GCTYPE BITS 2) (* \; "Unboxed, Pointers, or Code") (INUSE
+ FLAG) (ARLEN WORD) (FWD FULLXPOINTER) (* \; "Only when on free list") (BKWD FULLXPOINTER)) (
+BLOCKRECORD ARRAYBLOCK ((ABFLAGS WORD) (* \; "Used for header and trailer"))) (ACCESSFNS ARRAYBLOCK ((
+DAT (\\ADDBASE DATUM |\\ArrayBlockHeaderWords|)) (TRAILER (\\ADDBASE2 DATUM (IDIFFERENCE (|fetch| (
+ARRAYBLOCK ARLEN) |of| DATUM) |\\ArrayBlockTrailerCells|))))) (TYPE? (AND (EQ 0 (NTYPX DATUM)) (IGEQ (
+\\HILOC DATUM) |\\FirstArraySegment|))))
+(GLOBALVARS |\\NxtArrayPage| \\FREEBLOCKBUCKETS \\HUNKING?)
+(PUTPROPS HUNKSIZEFROMNUMBER MACRO ((NTYPX) (FOLDLO (|fetch| DTDSIZE |of| (\\GETDTD NTYPX)) 
+WORDSPERCELL)))
+(PUTPROP (QUOTE LLARRAYELT) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
 (DEFOPTIMIZER PUTBASEPTRX (&REST ARGS) (CONS (QUOTE (OPENLAMBDA (DATUM OFFSET NEWVALUE) (
-UNINTERRUPTABLY (\PUTBASE DATUM OFFSET (LOGOR (LOGAND 61440 (\GETBASE DATUM OFFSET)) (LOGAND (\HILOC 
-NEWVALUE) 4095))) (\PUTBASE DATUM (ADD1 OFFSET) (\LOLOC NEWVALUE)) NEWVALUE))) ARGS))
-(RPAQQ \SMALLP 1)
-(RPAQQ \FIXP 2)
-(RPAQQ \FLOATP 3)
-(RPAQQ \LITATOM 4)
-(RPAQQ \LISTP 5)
-(RPAQQ \ARRAYP 6)
-(RPAQQ \STACKP 8)
-(RPAQQ \VMEMPAGEP 10)
-(RPAQQ \STREAM 11)
-(RPAQQ \NEW-ATOM 21)
-(CONSTANTS \SMALLP \FIXP \FLOATP \LITATOM \LISTP \ARRAYP \STACKP \VMEMPAGEP \STREAM \NEW-ATOM)
-(RPAQQ \BUILT-IN-SYSTEM-TYPES ((SMALLP) (FIXP 2) (FLOATP 2) (LITATOM) (LISTP 4 (0 2)) (ARRAYP 6 (0)) (
-STRINGP 6 (0)) (STACKP 2 NIL \RECLAIMSTACKP) (CHARACTER) (VMEMPAGEP 256 NIL RELEASINGVMEMPAGE) (STREAM
-) (BITMAP) (COMPILED-CLOSURE 4 (0 2)) (ONED-ARRAY 8 (0)) (TWOD-ARRAY 10 (0)) (GENERAL-ARRAY 10 (0 8)) 
-(BIGNUM) (RATIO) (COMPLEX) (PATHNAME) (NEW-ATOM 10 (2 4 6)) (FILLER22) (FILLER23) (FILLER24) (FILLER25
-) (FILLER26) (FILLER27) (FILLER28) (FILLER29) (FILLER30)))
-(BLOCKRECORD DTD ((NIL BITS 2) (DTDOBSOLETE FLAG) (* ; 
+UNINTERRUPTABLY (\\PUTBASE DATUM OFFSET (LOGOR (LOGAND 61440 (\\GETBASE DATUM OFFSET)) (LOGAND (
+\\HILOC NEWVALUE) 4095))) (\\PUTBASE DATUM (ADD1 OFFSET) (\\LOLOC NEWVALUE)) NEWVALUE))) ARGS))
+(RPAQQ \\SMALLP 1)
+(RPAQQ \\FIXP 2)
+(RPAQQ \\FLOATP 3)
+(RPAQQ \\LITATOM 4)
+(RPAQQ \\LISTP 5)
+(RPAQQ \\ARRAYP 6)
+(RPAQQ \\STACKP 8)
+(RPAQQ \\VMEMPAGEP 10)
+(RPAQQ \\STREAM 11)
+(RPAQQ \\NEW-ATOM 21)
+(CONSTANTS \\SMALLP \\FIXP \\FLOATP \\LITATOM \\LISTP \\ARRAYP \\STACKP \\VMEMPAGEP \\STREAM 
+\\NEW-ATOM)
+(RPAQQ \\BUILT-IN-SYSTEM-TYPES ((SMALLP) (FIXP 2) (FLOATP 2) (LITATOM) (LISTP 4 (0 2)) (ARRAYP 6 (0)) 
+(STRINGP 6 (0)) (STACKP 2 NIL \\RECLAIMSTACKP) (CHARACTER) (VMEMPAGEP 256 NIL RELEASINGVMEMPAGE) (
+STREAM) (BITMAP) (COMPILED-CLOSURE 4 (0 2)) (ONED-ARRAY 8 (0)) (TWOD-ARRAY 10 (0)) (GENERAL-ARRAY 10 (
+0 8)) (BIGNUM) (RATIO) (COMPLEX) (PATHNAME) (NEW-ATOM 10 (2 4 6)) (FILLER22) (FILLER23) (FILLER24) (
+FILLER25) (FILLER26) (FILLER27) (FILLER28) (FILLER29) (FILLER30)))
+(BLOCKRECORD DTD ((NIL BITS 2) (DTDOBSOLETE FLAG) (* \; 
 "True for type of a redeclared datatype--not allowed to allocate more of these") (DTDFINALIZABLE FLAG)
- (* ; "True if finalization exists for this type") (DTDNAME POINTER) (* ; "Type name -- a symbol ") (
-DTDCNT0 WORD) (* ; "Incremental box count -- this plus DTDOLDCNT is the true box count") (DTDSIZE WORD
-) (* ; "Length of datum in words") (DTDFREE FULLXPOINTER) (* ; 
-"Pointer to first object on free chain, or NIL.  Not used for LISTP") (DTDLOCKEDP FLAG) (* ; 
-"True if objects of this type must be locked down (not pagefault)") (DTDHUNKP FLAG) (* ; 
-"True if this type is used as an array hunk type") (DTDGCTYPE BITS 2) (* ; 
+ (* \; "True if finalization exists for this type") (DTDNAME POINTER) (* \; "Type name -- a symbol ") 
+(DTDCNT0 WORD) (* \; "Incremental box count -- this plus DTDOLDCNT is the true box count") (DTDSIZE 
+WORD) (* \; "Length of datum in words") (DTDFREE FULLXPOINTER) (* \; 
+"Pointer to first object on free chain, or NIL.  Not used for LISTP") (DTDLOCKEDP FLAG) (* \; 
+"True if objects of this type must be locked down (not pagefault)") (DTDHUNKP FLAG) (* \; 
+"True if this type is used as an array hunk type") (DTDGCTYPE BITS 2) (* \; 
 "For hunk datatypes, is analogous to arrayblock's GCTYPE") (DTDDESCRS POINTER) (DTDTYPESPECS POINTER) 
-(DTDPTRS POINTER) (* ; 
+(DTDPTRS POINTER) (* \; 
 "List of word offsets inside datum where reference-counted pointers are stored -- used by GC") (
-DTDOLDCNT FIXP) (* ; "'Box count' -- number of objects of this type ever allocated") (DTDNEXTPAGE FIXP
-) (* ; "Currently only for LISTP pages -- page number of next page on chain of non-full cons pages") (
-DTDTYPEENTRY WORD) (* ;; 
+DTDOLDCNT FIXP) (* \; "'Box count' -- number of objects of this type ever allocated") (DTDNEXTPAGE 
+FIXP) (* \; 
+"Currently only for LISTP pages -- page number of next page on chain of non-full cons pages") (
+DTDTYPEENTRY WORD) (* |;;| 
 "The word stored in the type table for objects of this type.  Hi bits have numberp tags, ref countable, etc."
-) (DTDSUPERTYPE WORD) (* ; "Type number of immediate supertype, or zero if none")) (ACCESSFNS DTD ((
-DTDCNTLOC (\ADDBASE DATUM 4)) (DTDCNT (IPLUS (fetch DTDOLDCNT DATUM) (fetch DTDCNT0 DATUM)) (
-UNINTERRUPTABLY (replace DTDOLDCNT of DATUM with NEWVALUE) (replace DTDCNT0 of DATUM with 0))))))
-(PUTPROPS \GETDTD MACRO ((typeNum) (ADDBASE \DTDSpaceBase (ITIMES typeNum 18))))
-(DEFOPTIMIZER \TYPEMASK.UFN (&REST X) (LET ((CE (CONSTANTEXPRESSIONP (CADR X)))) (if CE then (BQUOTE (
-(OPCODES TYPEMASK.N (\, (CAR CE))) (\, (CAR X)))) else (QUOTE IGNOREMACRO))))
-(RPAQQ \GUARDSTORAGEFULL 128)
-(RPAQQ \GUARD1STORAGEFULL 64)
-(CONSTANTS \GUARDSTORAGEFULL \GUARD1STORAGEFULL)
-(GLOBALVARS \NxtMDSPage \LeastMDSPage \SecondArrayPage \SecondMDSPage \MDSFREELISTPAGE \MaxSysTypeNum 
-\MaxTypeNumber \STORAGEFULL \INTERRUPTSTATE \PENDINGINTERRUPT)
-(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+) (DTDSUPERTYPE WORD) (* \; "Type number of immediate supertype, or zero if none")) (ACCESSFNS DTD ((
+DTDCNTLOC (\\ADDBASE DATUM 4)) (DTDCNT (IPLUS (|fetch| DTDOLDCNT DATUM) (|fetch| DTDCNT0 DATUM)) (
+UNINTERRUPTABLY (|replace| DTDOLDCNT |of| DATUM |with| NEWVALUE) (|replace| DTDCNT0 |of| DATUM |with| 
+0))))))
+(PUTPROPS \\GETDTD MACRO ((|typeNum|) (ADDBASE |\\DTDSpaceBase| (ITIMES |typeNum| 18))))
+(DEFOPTIMIZER \\TYPEMASK.UFN (&REST X) (LET ((CE (CONSTANTEXPRESSIONP (CADR X)))) (|if| CE |then| (
+BQUOTE ((OPCODES TYPEMASK.N (\\\, (CAR CE))) (\\\, (CAR X)))) |else| (QUOTE IGNOREMACRO))))
+(RPAQQ \\GUARDSTORAGEFULL 128)
+(RPAQQ \\GUARD1STORAGEFULL 64)
+(CONSTANTS \\GUARDSTORAGEFULL \\GUARD1STORAGEFULL)
+(GLOBALVARS |\\NxtMDSPage| |\\LeastMDSPage| |\\SecondArrayPage| |\\SecondMDSPage| \\MDSFREELISTPAGE 
+|\\MaxSysTypeNum| |\\MaxTypeNumber| \\STORAGEFULL \\INTERRUPTSTATE \\PENDINGINTERRUPT)
+(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(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
- WORDINPAGE of DATUM) 1)) (SEGMENT# (\HILOC DATUM)) (WORDINSEGMENT (\LOLOC DATUM)) (CELLINSEGMENT (
-LRSH (fetch WORDINSEGMENT of DATUM) 1)) (WORD# (fetch WORDINPAGE of DATUM)) (DBLWORD# (fetch 
-CELLINPAGE of DATUM)) (PAGEBASE (\VAG2 (\HILOC DATUM) (LOGAND (\LOLOC DATUM) 65280)))) (CREATE (\VAG2 
-(LRSH PAGE# 8) (LLSH (LOGAND PAGE# 255) 8))))
+(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| WORDINPAGE |of| DATUM) 1)) (SEGMENT# (\\HILOC DATUM)) (WORDINSEGMENT (\\LOLOC DATUM)) (
+CELLINSEGMENT (LRSH (|fetch| WORDINSEGMENT |of| DATUM) 1)) (WORD# (|fetch| WORDINPAGE |of| DATUM)) (
+DBLWORD# (|fetch| CELLINPAGE |of| DATUM)) (PAGEBASE (\\VAG2 (\\HILOC DATUM) (LOGAND (\\LOLOC DATUM) 
+65280)))) (CREATE (\\VAG2 (LRSH PAGE# 8) (LLSH (LOGAND PAGE# 255) 8))))
 (ACCESSFNS WORD ((HIBYTE (LRSH DATUM 8)) (LOBYTE (LOGAND DATUM 255))) (CREATE (IPLUS (LLSH HIBYTE 8) 
 LOBYTE)))
-(PUTPROPS PTRGTP MACRO (OPENLAMBDA (X Y) (OR (IGREATERP (\HILOC X) (\HILOC Y)) (AND (EQ (\HILOC X) (
-\HILOC Y)) (IGREATERP (\LOLOC X) (\LOLOC Y))))))
-(PUTPROPS .COERCE.TO.SMALLPOSP. DMACRO (OPENLAMBDA (X) (COND ((SMALLPOSP X) X) (T (\ILLEGAL.ARG X)))))
+(PUTPROPS PTRGTP MACRO (OPENLAMBDA (X Y) (OR (IGREATERP (\\HILOC X) (\\HILOC Y)) (AND (EQ (\\HILOC X) 
+(\\HILOC Y)) (IGREATERP (\\LOLOC X) (\\LOLOC Y))))))
+(PUTPROPS .COERCE.TO.SMALLPOSP. DMACRO (OPENLAMBDA (X) (COND ((SMALLPOSP X) X) (T (\\ILLEGAL.ARG X))))
+)
 (PUTPROPS .COERCE.TO.BYTE. DMACRO (OPENLAMBDA (X) (COND ((AND (SMALLPOSP X) (ILESSP X (CONSTANT (LLSH 
-1 BITSPERBYTE)))) X) (T (\ILLEGAL.ARG X)))))
-(BLOCKRECORD LISTP ((* ;; "Describes a CONS cell.") (CAR POINTER) (CDR POINTER)) (CREATE (CREATECELL 
-\LISTP)) (* ;; "FOLLOWING ARE CDR-CODE FIELDS") (BLOCKRECORD LISTP ((CDRCODE BITS 4) (CARFIELD 
-XPOINTER))) (* ;; "For chaining together free cells on a page:") (BLOCKRECORD LISTP ((NEXTFREE BYTE) (
-NIL BITS 24))) (ACCESSFNS LISTP ((FULLCARFIELD NIL (\PUTBASEPTR DATUM 0 NEWVALUE)))) (* ;; 
+1 BITSPERBYTE)))) X) (T (\\ILLEGAL.ARG X)))))
+(BLOCKRECORD LISTP ((* |;;| "Describes a CONS cell.") (CAR POINTER) (CDR POINTER)) (CREATE (CREATECELL
+ \\LISTP)) (* |;;| "FOLLOWING ARE CDR-CODE FIELDS") (BLOCKRECORD LISTP ((CDRCODE BITS 4) (CARFIELD 
+XPOINTER))) (* |;;| "For chaining together free cells on a page:") (BLOCKRECORD LISTP ((NEXTFREE BYTE)
+ (NIL BITS 24))) (ACCESSFNS LISTP ((FULLCARFIELD NIL (\\PUTBASEPTR DATUM 0 NEWVALUE)))) (* |;;| 
 "because replace of XPOINTER is slow, the CAR field is stored with PUTBASEPTR, even though that smashes the hi byte"
 ))
-(BLOCKRECORD CONSPAGE ((* ;; 
+(BLOCKRECORD CONSPAGE ((* |;;| 
 "Describes a page of CONS cells, which (when free) are chained together thru the top byte.") (NIL 2 
-FIXP) (* ; "Empty cells, space for another 2 CONS cells if we can figure out how.") (CNT BYTE) (* ; 
-"# of cells free on this page") (NEXTCELL BYTE) (* ; 
-"WORD offset of next free cell (not guaranteed to be 0 if no free cells)") (NIL WORD) (* ; "Padding") 
-(NEXTPAGE FIXP) (* ; "Next CONS page on the DTD's free list, for searching for cells.")))
-(RPAQQ CONSCONSTANTS (\CDR.ONPAGE \CDR.NIL \CDR.INDIRECT \CDR.MAXINDIRECT \CONSPAGE.LAST))
-(RPAQQ \CDR.ONPAGE 8)
-(RPAQQ \CDR.NIL 8)
-(RPAQQ \CDR.INDIRECT 0)
-(RPAQQ \CDR.MAXINDIRECT 7)
-(RPAQQ \CONSPAGE.LAST 65535)
-(CONSTANTS \CDR.ONPAGE \CDR.NIL \CDR.INDIRECT \CDR.MAXINDIRECT \CONSPAGE.LAST)
+FIXP) (* \; "Empty cells, space for another 2 CONS cells if we can figure out how.") (CNT BYTE) (* \; 
+"# of cells free on this page") (NEXTCELL BYTE) (* \; 
+"WORD offset of next free cell (not guaranteed to be 0 if no free cells)") (NIL WORD) (* \; "Padding")
+ (NEXTPAGE FIXP) (* \; "Next CONS page on the DTD's free list, for searching for cells.")))
+(RPAQQ CONSCONSTANTS (\\CDR.ONPAGE \\CDR.NIL \\CDR.INDIRECT \\CDR.MAXINDIRECT \\CONSPAGE.LAST))
+(RPAQQ \\CDR.ONPAGE 8)
+(RPAQQ \\CDR.NIL 8)
+(RPAQQ \\CDR.INDIRECT 0)
+(RPAQQ \\CDR.MAXINDIRECT 7)
+(RPAQQ \\CONSPAGE.LAST 65535)
+(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-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(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 (
-CONS COMMENTFLG ARGS)))))
-(PUTPROPS \StatsZero BYTEMACRO (OPENLAMBDA (N) (\PUTBASE N 0 0) (\PUTBASE N 1 0)))
-(PUTPROPS \StatsAdd1 DMACRO (OPENLAMBDA (A) (PROG ((LO (IPLUS16 (\GETBASE A 1) 1))) (DECLARE (
-LOCALVARS LO)) (* ; "Increment double word at A by 1") (\PUTBASE A 1 LO) (COND ((EQ LO 0) (\PUTBASE A 
-0 (ADD1 (\GETBASE A 0))))))))
-(PUTPROPS IPLUS16 MACRO ((X Y) (* ; "Kludge to do 16-bit plus") (\LOLOC (\ADDBASE X Y))))
+(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 (CONS COMMENTFLG ARGS)))))
+(PUTPROPS |\\StatsZero| BYTEMACRO (OPENLAMBDA (N) (\\PUTBASE N 0 0) (\\PUTBASE N 1 0)))
+(PUTPROPS |\\StatsAdd1| DMACRO (OPENLAMBDA (A) (PROG ((LO (IPLUS16 (\\GETBASE A 1) 1))) (DECLARE (
+LOCALVARS LO)) (* \; "Increment double word at A by 1") (\\PUTBASE A 1 LO) (COND ((EQ LO 0) (\\PUTBASE
+ A 0 (ADD1 (\\GETBASE A 0))))))))
+(PUTPROPS IPLUS16 MACRO ((X Y) (* \; "Kludge to do 16-bit plus") (\\LOLOC (\\ADDBASE X Y))))
 (PUTPROPS SMALLPOSP MACRO (OPENLAMBDA (X) (AND (SMALLP X) (IGEQ X 0))))
-(PROGN (PUTPROPS SETXVAR MACRO (X (BQUOTE (SETQ.NOREF %, (CADAR X) %, (CADR X))))) (PUTPROPS SETXVAR 
-DMACRO (X (OR (AND (EQ (CAAR X) (QUOTE QUOTE)) (LITATOM (CADAR X))) (SHOULDNT)) (GLOBALVARS \VALSPACE)
- (LIST (QUOTE SETQ.NOREF) (CADAR X) (CADR X)))))
-(PUTPROPS SETQ.NOREF DMACRO ((VAR VAL) (\PUTBASEPTR (LOCF (fetch (LITATOM VALUE) of (QUOTE VAR))) 0 
-VAL)))
+(PROGN (PUTPROPS SETXVAR MACRO (X (BQUOTE (SETQ.NOREF \, (CADAR X) \, (CADR X))))) (PUTPROPS SETXVAR 
+DMACRO (X (OR (AND (EQ (CAAR X) (QUOTE QUOTE)) (LITATOM (CADAR X))) (SHOULDNT)) (GLOBALVARS \\VALSPACE
+) (LIST (QUOTE SETQ.NOREF) (CADAR X) (CADR X)))))
+(PUTPROPS SETQ.NOREF DMACRO ((VAR VAL) (\\PUTBASEPTR (LOCF (|fetch| (LITATOM VALUE) |of| (QUOTE VAR)))
+ 0 VAL)))
 (PROGN (PUTPROPS IEQ MACRO ((X Y) (IEQP X Y))) (PUTPROPS IEQ DMACRO (= . EQ)))
-(RPAQQ WordsPerPage 256)
-(CONSTANTS WordsPerPage)
-(ACCESSFNS LITATOM ((DEFINITIONCELL (\DEFCELL DATUM)) (PROPCELL (\PROPCELL DATUM)) (VCELL (\VALCELL 
-DATUM)) (PNAMECELL (\PNAMECELL DATUM))) (* ;; 
-"VCELL can also be accessed directly from a value index via the record VALINDEX (as in \SETGLOBALVAL.UFN) --- Similarly, PNAMEINDEX accesses PNAMECELL for use by \MKATOM and UNCOPYATOM"
-) (TYPE? (LITATOM DATUM)) (BLOCKRECORD PROPCELL ((NIL BITS 4) (* ; "former flags locations") (PROPLIST
- POINTER) (NIL BITS 8) (* ; "Package byte") (NIL BITS 8) (* ; "Flags from defcell") (* ;; 
-"PROPCell flags:") (NIL BITS 1) (GENSYMP FLAG) (FATPNAMEP FLAG) (NIL BITS 5) (* ;; 
+(RPAQQ |WordsPerPage| 256)
+(CONSTANTS |WordsPerPage|)
+(ACCESSFNS LITATOM ((DEFINITIONCELL (\\DEFCELL DATUM)) (PROPCELL (\\PROPCELL DATUM)) (VCELL (\\VALCELL
+ DATUM)) (PNAMECELL (\\PNAMECELL DATUM))) (* |;;| 
+"VCELL can also be accessed directly from a value index via the record VALINDEX (as in \\SETGLOBALVAL.UFN) --- Similarly, PNAMEINDEX accesses PNAMECELL for use by \\MKATOM and UNCOPYATOM"
+) (TYPE? (LITATOM DATUM)) (BLOCKRECORD PROPCELL ((NIL BITS 4) (* \; "former flags locations") (
+PROPLIST POINTER) (NIL BITS 8) (* \; "Package byte") (NIL BITS 8) (* \; "Flags from defcell") (* |;;| 
+"PROPCell flags:") (NIL BITS 1) (GENSYMP FLAG) (FATPNAMEP FLAG) (NIL BITS 5) (* |;;| 
 "Filler for final cell:") (NIL BITS 8))))
 (SYNONYM CL:SYMBOL (LITATOM))
-(ACCESSFNS VALINDEX ((VCELL (COND ((AND (FIXP DATUM) (ILESSP DATUM 65535)) (* ; 
-"Xerox Lisp traditional symbol") (\ADDBASE2 \PNPSPACE (IPLUS \NEWATOM-VALOFFSET (ITIMES 10 DATUM)))) (
-T (* ; "New symbol") (* ; "'90/07/19 ON") (\ADDBASE DATUM \NEWATOM-VALOFFSET))))))
+(ACCESSFNS VALINDEX ((VCELL (COND ((AND (FIXP DATUM) (ILESSP DATUM 65535)) (* \; 
+"Xerox Lisp traditional symbol") (\\ADDBASE2 \\PNPSPACE (IPLUS \\NEWATOM-VALOFFSET (ITIMES 10 DATUM)))
+) (T (* \; "New symbol") (* \; "'90/07/19 ON") (\\ADDBASE DATUM \\NEWATOM-VALOFFSET))))))
 (BLOCKRECORD VCELL ((VALUE FULLPOINTER)))
-(BLOCKRECORD DEFINITIONCELL ((CCODEP FLAG) (FASTP FLAG) (ARGTYPE BITS 2) (* ; "Former flag location") 
-(DEFPOINTER POINTER) (NIL POINTER) (* ; "Proplist cell") (NIL BITS 8) (* ; "package") (* ;; 
+(BLOCKRECORD DEFINITIONCELL ((CCODEP FLAG) (FASTP FLAG) (ARGTYPE BITS 2) (* \; "Former flag location")
+ (DEFPOINTER POINTER) (NIL POINTER) (* \; "Proplist cell") (NIL BITS 8) (* \; "package") (* |;;| 
 "DEFCELL flags overflow from top 4 bits of the real cell:") (NIL BITS 4) (PSEUDOCODEP FLAG) (NIL BITS 
-3) (* ;; "proplist falgs and filler:") (NIL BITS 16)) (BLOCKRECORD DEFINITIONCELL ((DEFCELLFLAGS BITS 
-4) (NIL POINTER) (* ; "defn ptr") (NIL BITS 4) (NIL POINTER) (* ; "filler for proplist ptr") (NIL BITS
- 8) (AUXDEFCELLFLAGS BYTE) (NIL BITS 16))))
+3) (* |;;| "proplist falgs and filler:") (NIL BITS 16)) (BLOCKRECORD DEFINITIONCELL ((DEFCELLFLAGS 
+BITS 4) (NIL POINTER) (* \; "defn ptr") (NIL BITS 4) (NIL POINTER) (* \; "filler for proplist ptr") (
+NIL BITS 8) (AUXDEFCELLFLAGS BYTE) (NIL BITS 16))))
 (BLOCKRECORD FNHEADER ((STKMIN WORD) (NA SIGNEDWORD) (PV SIGNEDWORD) (STARTPC WORD) (CLOSUREP FLAG) (*
- ; "T if this is a %"compiled closure%"") (BYTESWAPPED FLAG) (* ; 
+ \; "T if this is a \"compiled closure\"") (BYTESWAPPED FLAG) (* \; 
 "T if, on 386, we reswapped the code section of this function for faster access.") (ARGTYPE BITS 2) (*
- ; "0 = LAMBDA") (* ; "2 = LAMBDA nospread") (* ; "1 = NLAMBDA") (* ; "3 = NLAMBDA nospread") (* ;; 
-"4 NIL BITS USED TO BE HERE.") (%#FRAMENAME XPOINTER) (NTSIZE WORD) (* ; 
+ \; "0 = LAMBDA") (* \; "2 = LAMBDA nospread") (* \; "1 = NLAMBDA") (* \; "3 = NLAMBDA nospread") (* 
+|;;| "4 NIL BITS USED TO BE HERE.") (\#FRAMENAME XPOINTER) (NTSIZE WORD) (* \; 
 "Size of the Name Table, IN WORDS.  This value is always rounded up to the next Quad-word in size, and there' guaranteed to be one entry of zeros in the length."
-) (NLOCALS BYTE) (FVAROFFSET BYTE)) (ACCESSFNS FNHEADER ((LSTARP (ILESSP (fetch (FNHEADER NA) of DATUM
-) 0)) (OVERHEADWORDS (PROGN 8)) (NATIVE (PROGN NIL)) (* ; 
-"T if this is a NATIVE-code function (never true!)") (ALIGNED (IPLUS (fetch (FNHEADER NTSIZE) of DATUM
-) (fetch (FNHEADER OVERHEADWORDS) of T))) (FIXED NIL (replace (FNHEADER STKMIN) of DATUM with (\STKMIN
- DATUM T))) (NPVARWORDS (UNFOLD (ADD1 (fetch (FNHEADER PV) of DATUM)) WORDSPERQUAD)) (FRAMENAME (fetch
- (FNHEADER %#FRAMENAME) of DATUM) (UNINTERRUPTABLY (CHECK (NEQ (\HILOC DATUM) \STACKHI)) (\DELREF (
-fetch (FNHEADER %#FRAMENAME) of DATUM)) (\ADDREF NEWVALUE) (replace (FNHEADER %#FRAMENAME) of DATUM 
-with NEWVALUE))))))
-(BLOCKRECORD PNAMECELL ((NIL BITS 4) (PNAMEBASE XPOINTER) (NIL POINTER) (* ; "val, def, prop cells") (
-NIL POINTER) (NIL POINTER) (PACKAGEINDEX BYTE) (NIL BITS 24) (* ; "filler for other flags")) (
-BLOCKRECORD PNAMECELL ((FULLPNAMEBASE FULLXPOINTER) (* ; "Replacing this smashes PACKAGEINDEX to 0")))
- (ACCESSFNS PNAMECELL ((PACKAGE (LET ((I (FETCH (PNAMECELL PACKAGEINDEX) OF DATUM))) (* ; 
+) (NLOCALS BYTE) (FVAROFFSET BYTE)) (ACCESSFNS FNHEADER ((LSTARP (ILESSP (|fetch| (FNHEADER NA) |of| 
+DATUM) 0)) (OVERHEADWORDS (PROGN 8)) (NATIVE (PROGN NIL)) (* \; 
+"T if this is a NATIVE-code function (never true!)") (ALIGNED (IPLUS (|fetch| (FNHEADER NTSIZE) |of| 
+DATUM) (|fetch| (FNHEADER OVERHEADWORDS) |of| T))) (FIXED NIL (|replace| (FNHEADER STKMIN) |of| DATUM 
+|with| (\\STKMIN DATUM T))) (NPVARWORDS (UNFOLD (ADD1 (|fetch| (FNHEADER PV) |of| DATUM)) WORDSPERQUAD
+)) (FRAMENAME (|fetch| (FNHEADER \#FRAMENAME) |of| DATUM) (UNINTERRUPTABLY (CHECK (NEQ (\\HILOC DATUM)
+ \\STACKHI)) (\\DELREF (|fetch| (FNHEADER \#FRAMENAME) |of| DATUM)) (\\ADDREF NEWVALUE) (|replace| (
+FNHEADER \#FRAMENAME) |of| DATUM |with| NEWVALUE))))))
+(BLOCKRECORD PNAMECELL ((NIL BITS 4) (PNAMEBASE XPOINTER) (NIL POINTER) (* \; "val, def, prop cells") 
+(NIL POINTER) (NIL POINTER) (PACKAGEINDEX BYTE) (NIL BITS 24) (* \; "filler for other flags")) (
+BLOCKRECORD PNAMECELL ((FULLPNAMEBASE FULLXPOINTER) (* \; "Replacing this smashes PACKAGEINDEX to 0"))
+) (ACCESSFNS PNAMECELL ((PACKAGE (LET ((I (FETCH (PNAMECELL PACKAGEINDEX) OF DATUM))) (* \; 
 "This ugly construct allows cl:symbol-package to run in the init, where *PACKAGE-FROM-INDEX* is not yet bound."
 ) (COND ((EQ 0 I) NIL) (T (CL:AREF *PACKAGE-FROM-INDEX* I)))) (REPLACE (PNAMECELL PACKAGEINDEX) OF 
-DATUM WITH (IF (NULL NEWVALUE) THEN *UNINTERNED-PACKAGE-INDEX* ELSE (CL::%%PACKAGE-INDEX NEWVALUE)))))
-))
-(ACCESSFNS PACKAGEINDEX ((PACKAGE (IF (EQ 0 DATUM) (* ; 
+DATUM WITH (IF (NULL NEWVALUE) THEN *UNINTERNED-PACKAGE-INDEX* ELSE (CL::%PACKAGE-INDEX NEWVALUE))))))
+)
+(ACCESSFNS PACKAGEINDEX ((PACKAGE (IF (EQ 0 DATUM) (* \; 
 "This ugly construct allows cl:symbol-package to run in the init, where *PACKAGE-FROM-INDEX* is not yet bound."
 ) THEN NIL ELSE (CL:AREF *PACKAGE-FROM-INDEX* DATUM)))))
-(BLOCKRECORD PNAMEBASE ((PNAMELENGTH BYTE) (* ; "Length is always here, be the pname thin or fat") (
-PNAMEFATPADDINGBYTE BYTE) (* ; 
+(BLOCKRECORD PNAMEBASE ((PNAMELENGTH BYTE) (* \; "Length is always here, be the pname thin or fat") (
+PNAMEFATPADDINGBYTE BYTE) (* \; 
 "This byte is zero for fat pnames so that the pname chars are word-aligned")))
-(ACCESSFNS PNAMEINDEX ((PNAMECELL (COND ((AND (FIXP DATUM) (ILESSP DATUM 65535)) (* ; 
-"Xerox Lisp traditional symbol") (\ADDBASE \OLDATOMSPACE (IPLUS \NEWATOM-PNAMEOFFSET (ITIMES 10 DATUM)
-))) (T (* ; "New symbol") (* ; "'90/07/19 ON") (\ADDBASE DATUM \NEWATOM-PNAMEOFFSET))))))
-(BLOCKRECORD NEW-ATOM ((* ;; 
-"An extended symbol, for expanding atom space.  Kept in its own datatype.") (PNAME XPOINTER) (* ; 
-"PNAME, same as litatom.") (VALUE POINTER) (DEF POINTER) (PROPLIST POINTER) (* ;; 
+(ACCESSFNS PNAMEINDEX ((PNAMECELL (COND ((AND (FIXP DATUM) (ILESSP DATUM 65535)) (* \; 
+"Xerox Lisp traditional symbol") (\\ADDBASE \\OLDATOMSPACE (IPLUS \\NEWATOM-PNAMEOFFSET (ITIMES 10 
+DATUM)))) (T (* \; "New symbol") (* \; "'90/07/19 ON") (\\ADDBASE DATUM \\NEWATOM-PNAMEOFFSET))))))
+(BLOCKRECORD NEW-ATOM ((* |;;| 
+"An extended symbol, for expanding atom space.  Kept in its own datatype.") (PNAME XPOINTER) (* \; 
+"PNAME, same as litatom.") (VALUE POINTER) (DEF POINTER) (PROPLIST POINTER) (* |;;| 
 "Flags that used to be above the pointers, e.g. package, ccodep, gensymp:") (NIL BITS 32)))
-(PUTPROPS \DEFCELL MACRO ((ATOM) (\ATOMCELL ATOM \DEF.HI)))
-(PUTPROPS \VALCELL MACRO ((ATOM) (\ATOMCELL ATOM \VAL.HI)))
-(PUTPROPS \PNAMECELL MACRO ((ATOM) (\ATOMCELL ATOM \PNAME.HI)))
-(PUTPROPS \ATOMVALINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \LITATOM) (* ; "Original litatoms"
-) (\LOLOC X)) ((EQ (NTYPX X) \NEW-ATOM) (* ; "new 3-byte symbols") X) (T (SHOULDNT)))))
-(PUTPROPS \ATOMDEFINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \LITATOM) (* ; "Original litatoms"
-) (\LOLOC X)) ((EQ (NTYPX X) \NEW-ATOM) (* ; "new 3-byte symbols") X) (T (SHOULDNT)))))
-(PUTPROPS \ATOMPNAMEINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \LITATOM) (* ; 
-"Original litatoms") (\LOLOC X)) ((EQ (NTYPX X) \NEW-ATOM) (* ; "new 3-byte symbols") X) (T (SHOULDNT)
-))))
-(PUTPROPS \ATOMPROPINDEX DMACRO ((X) (COND ((EQ (NTYPX X) \LITATOM) (* ; "Original litatoms") (\LOLOC 
-X)) ((EQ (NTYPX X) \NEW-ATOM) (* ; "new 3-byte symbols") X) (T (SHOULDNT)))))
-(PUTPROPS \INDEXATOMPNAME DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* ; "Xerox Lisp traditional symbol")
- (COND ((SMALLP X) (\VAG2 \AtomHI X)) (T (\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* ; "New symbol")
- X))))
-(PUTPROPS \INDEXATOMVAL DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* ; "Xerox Lisp traditional symbol") (
-COND ((SMALLP X) (\VAG2 \AtomHI X)) (T (\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* ; "New symbol") X
-))))
-(PUTPROPS \INDEXATOMDEF DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* ; "Xerox Lisp traditional symbol") (
-COND ((SMALLP X) (\VAG2 \AtomHI X)) (T (\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* ; "New symbol") X
-))))
-(PUTPROPS \ATOMNUMBER DMACRO (= . \LOLOC))
-(GLOBALVARS \NxtPnByte \CurPnPage \NxtAtomPage \AtomFrLst \OneCharAtomBase \PNAMES.IN.BLOCKS? 
-\SCRATCHSTRING COMPILEATPUTDFLG)
-(RPAQQ \PNAMELIMIT 255)
-(RPAQQ \CharsPerPnPage 512)
-(CONSTANTS (\PNAMELIMIT 255) (\CharsPerPnPage 512))
-(RPAQQ \NEWATOM-PNAMEOFFSET 0)
-(RPAQQ \NEWATOM-VALOFFSET 2)
-(RPAQQ \NEWATOM-DEFOFFSET 4)
-(RPAQQ \NEWATOM-PLISTOFFSET 6)
-(RPAQQ \NEWATOM-TYPE# 21)
-(CONSTANTS (\NEWATOM-PNAMEOFFSET 0) (\NEWATOM-VALOFFSET 2) (\NEWATOM-DEFOFFSET 4) (
-\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 "31-Jan-1998 09:55:50"))
+(PUTPROPS \\DEFCELL MACRO ((ATOM) (\\ATOMCELL ATOM \\DEF.HI)))
+(PUTPROPS \\VALCELL MACRO ((ATOM) (\\ATOMCELL ATOM \\VAL.HI)))
+(PUTPROPS \\PNAMECELL MACRO ((ATOM) (\\ATOMCELL ATOM \\PNAME.HI)))
+(PUTPROPS \\ATOMVALINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \\LITATOM) (* \; 
+"Original litatoms") (\\LOLOC X)) ((EQ (NTYPX X) \\NEW-ATOM) (* \; "new 3-byte symbols") X) (T (
+SHOULDNT)))))
+(PUTPROPS \\ATOMDEFINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \\LITATOM) (* \; 
+"Original litatoms") (\\LOLOC X)) ((EQ (NTYPX X) \\NEW-ATOM) (* \; "new 3-byte symbols") X) (T (
+SHOULDNT)))))
+(PUTPROPS \\ATOMPNAMEINDEX DMACRO (OPENLAMBDA (X) (COND ((EQ (NTYPX X) \\LITATOM) (* \; 
+"Original litatoms") (\\LOLOC X)) ((EQ (NTYPX X) \\NEW-ATOM) (* \; "new 3-byte symbols") X) (T (
+SHOULDNT)))))
+(PUTPROPS \\ATOMPROPINDEX DMACRO ((X) (COND ((EQ (NTYPX X) \\LITATOM) (* \; "Original litatoms") (
+\\LOLOC X)) ((EQ (NTYPX X) \\NEW-ATOM) (* \; "new 3-byte symbols") X) (T (SHOULDNT)))))
+(PUTPROPS \\INDEXATOMPNAME DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* \; 
+"Xerox Lisp traditional symbol") (COND ((SMALLP X) (\\VAG2 |\\AtomHI| X)) (T (\\VAG2 (LRSH X 16) (
+LOGAND X 65535))))) (T (* \; "New symbol") X))))
+(PUTPROPS \\INDEXATOMVAL DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* \; "Xerox Lisp traditional symbol")
+ (COND ((SMALLP X) (\\VAG2 |\\AtomHI| X)) (T (\\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* \; 
+"New symbol") X))))
+(PUTPROPS \\INDEXATOMDEF DMACRO (OPENLAMBDA (X) (COND ((FIXP X) (* \; "Xerox Lisp traditional symbol")
+ (COND ((SMALLP X) (\\VAG2 |\\AtomHI| X)) (T (\\VAG2 (LRSH X 16) (LOGAND X 65535))))) (T (* \; 
+"New symbol") X))))
+(PUTPROPS \\ATOMNUMBER DMACRO (= . \\LOLOC))
+(GLOBALVARS |\\NxtPnByte| |\\CurPnPage| |\\NxtAtomPage| |\\AtomFrLst| |\\OneCharAtomBase| 
+\\PNAMES.IN.BLOCKS? \\SCRATCHSTRING COMPILEATPUTDFLG)
+(RPAQQ \\PNAMELIMIT 255)
+(RPAQQ |\\CharsPerPnPage| 512)
+(CONSTANTS (\\PNAMELIMIT 255) (|\\CharsPerPnPage| 512))
+(RPAQQ \\NEWATOM-PNAMEOFFSET 0)
+(RPAQQ \\NEWATOM-VALOFFSET 2)
+(RPAQQ \\NEWATOM-DEFOFFSET 4)
+(RPAQQ \\NEWATOM-PLISTOFFSET 6)
+(RPAQQ \\NEWATOM-TYPE# 21)
+(CONSTANTS (\\NEWATOM-PNAMEOFFSET 0) (\\NEWATOM-VALOFFSET 2) (\\NEWATOM-DEFOFFSET 4) (
+\\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 " 6-May-2021 15:25:40"))
 
-(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 (ARRAY-HEADER 
-INDIRECT-P) of STRING) (%%ARRAY-BASE STRING)) (T (fetch (ARRAY-HEADER BASE) of STRING)))) DATUM) ((
-OPENLAMBDA (STRING NV) (replace (ARRAY-HEADER INDIRECT-P) of STRING with NIL) (replace (ARRAY-HEADER 
-BASE) of STRING with NV) NV) DATUM NEWVALUE)) (TYP ((OPENLAMBDA (STRING) (SELECTC (COND ((fetch (
-ARRAY-HEADER INDIRECT-P) of STRING) (%%ARRAY-TYPE-NUMBER STRING)) (T (fetch (ARRAY-HEADER TYPE-NUMBER)
- of STRING))) (%%THIN-CHAR-TYPENUMBER \ST.BYTE) (%%FAT-CHAR-TYPENUMBER \ST.POS16) (SHOULDNT 
-"Unknown type-number"))) DATUM) ((OPENLAMBDA (STRING NV) (LET ((%%NEW-TYPE-NUMBER (SELECTC NV (
-\ST.BYTE %%THIN-CHAR-TYPENUMBER) (\ST.POS16 %%FAT-CHAR-TYPENUMBER) (SHOULDNT "Unknown typ value")))) (
-COND ((fetch (ARRAY-HEADER INDIRECT-P) of STRING) (%%SET-ARRAY-TYPE-NUMBER STRING %%NEW-TYPE-NUMBER)) 
-(T (replace (ARRAY-HEADER TYPE-NUMBER) of STRING with %%NEW-TYPE-NUMBER))))) DATUM NEWVALUE)) (LENGTH 
-(fetch (ARRAY-HEADER FILL-POINTER) of DATUM) ((OPENLAMBDA (STRING NV) (replace (ARRAY-HEADER 
-FILL-POINTER) of STRING with NV) (replace (ARRAY-HEADER TOTAL-SIZE) of STRING with NV) (COND ((
-%%GENERAL-ARRAY-P STRING) (freplace (GENERAL-ARRAY DIMS) of STRING with (LIST NV)))) NV) DATUM 
-NEWVALUE)) (OFFST ((OPENLAMBDA (STRING) (COND ((fetch (ARRAY-HEADER INDIRECT-P) of STRING) (
-%%ARRAY-OFFSET STRING)) (T (fetch (ARRAY-HEADER OFFSET) of STRING)))) DATUM) ((OPENLAMBDA (STRING NV) 
-(COND ((NOT (EQ 0 NV)) (replace (ARRAY-HEADER DISPLACED-P) of STRING with T))) (COND ((fetch (
-ARRAY-HEADER INDIRECT-P) of STRING) (%%SET-ARRAY-OFFSET STRING NV)) (T (replace (ARRAY-HEADER OFFSET) 
-of STRING with NV)))) DATUM NEWVALUE)) (* ;; "The rest of these fields only appear when smashing") (
-XFLAGS (LOGAND (fetch (ARRAY-HEADER FLAGS) of DATUM) 15) ((OPENLAMBDA (STRING) (replace (ARRAY-HEADER 
-ADJUSTABLE-P) of STRING with NIL) (replace (ARRAY-HEADER DISPLACED-P) of STRING with NIL) (replace (
-ARRAY-HEADER FILL-POINTER-P) of STRING with NIL) (replace (ARRAY-HEADER EXTENDABLE-P) of STRING with 
-NIL)) DATUM))) (ACCESSFNS STRINGP ((ORIG ((OPENLAMBDA (STRING) 1) DATUM) ((OPENLAMBDA (STRING NV) (
-COND ((NOT (EQ NV 1)) (ERROR "Il:stringp's are always origin 1"))) NV) DATUM NEWVALUE)) (* ; 
-"An inoperative field") (SUBSTRINGED ((OPENLAMBDA (STRING) NIL) DATUM) ((OPENLAMBDA (STRING NV) (OR (
-NULL NV) (ERROR "Substringed field not supported"))) DATUM NEWVALUE)) (READONLY (ffetch (STRINGP 
-XREADONLY) of DATUM) (freplace (STRINGP XREADONLY) of DATUM with NEWVALUE)) (FATSTRINGP ((OPENLAMBDA (
-STRING) (EQ (COND ((fetch (ARRAY-HEADER INDIRECT-P) of STRING) (%%ARRAY-TYPE-NUMBER STRING)) (T (fetch
- (ARRAY-HEADER TYPE-NUMBER) of STRING))) %%FAT-CHAR-TYPENUMBER)) DATUM) ((OPENLAMBDA (STRING NV) (LET 
-((%%NEW-TYPE-NUMBER (COND (NV %%FAT-CHAR-TYPENUMBER) (T %%THIN-CHAR-TYPENUMBER)))) (COND ((fetch (
-ARRAY-HEADER INDIRECT-P) of STRING) (%%SET-ARRAY-TYPE-NUMBER STRING %%NEW-TYPE-NUMBER)) (T (replace (
-ARRAY-HEADER TYPE-NUMBER) of STRING with %%NEW-TYPE-NUMBER))))) DATUM NEWVALUE)) (BASE (ffetch (
-STRINGP XBASE) of DATUM) (freplace (STRINGP XBASE) of DATUM with NEWVALUE)))) (CREATE (create 
-ONED-ARRAY BASE _ XBASE READ-ONLY-P _ XREADONLY STRING-P _ T DISPLACED-P _ (NOT (EQ OFFST 0)) 
-TYPE-NUMBER _ (COND ((EQ TYP \ST.POS16) %%FAT-CHAR-TYPENUMBER) (T %%THIN-CHAR-TYPENUMBER)) OFFSET _ 
-OFFST FILL-POINTER _ LENGTH TOTAL-SIZE _ LENGTH)) (TYPE? (CL:STRINGP DATUM)) OFFST _ 0 TYP _ \ST.BYTE 
-LENGTH _ 0)
-(GLOBALVARS \OneCharAtomBase)
-(PUTDEF (QUOTE \NUMSTR) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING 128))))
-(PUTDEF (QUOTE \NUMSTR1) (QUOTE RESOURCES) (QUOTE (NEW (CONCAT))))
-(PUTDEF (QUOTE \PNAMESTRING) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING \PNAMELIMIT NIL NIL 
-\FATPNAMESTRINGP))))
-(RPAQQ \FATPNAMESTRINGP T)
-(CONSTANTS (\FATPNAMESTRINGP T))
-(PUTPROPS \PNAMESTRINGPUTCHAR MACRO ((BASE OFFSET CODE) (* ; 
-"For stuffing chars into resource \PNAMESTRING") (\PUTBASECHAR \FATPNAMESTRINGP BASE OFFSET CODE)))
-(DEFOPTIMIZER FCHARACTER (NUM) (BQUOTE ((OPENLAMBDA (N) (COND ((IGREATERP N \MAXTHINCHAR) (* ; 
+(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| (
+ARRAY-HEADER INDIRECT-P) |of| STRING) (%ARRAY-BASE STRING)) (T (|fetch| (ARRAY-HEADER BASE) |of| 
+STRING)))) DATUM) ((OPENLAMBDA (STRING NV) (|replace| (ARRAY-HEADER INDIRECT-P) |of| STRING |with| NIL
+) (|replace| (ARRAY-HEADER BASE) |of| STRING |with| NV) NV) DATUM NEWVALUE)) (TYP ((OPENLAMBDA (STRING
+) (SELECTC (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) (%ARRAY-TYPE-NUMBER STRING)) (T (
+|fetch| (ARRAY-HEADER TYPE-NUMBER) |of| STRING))) (%THIN-CHAR-TYPENUMBER \\ST.BYTE) (
+%FAT-CHAR-TYPENUMBER \\ST.POS16) (SHOULDNT "Unknown type-number"))) DATUM) ((OPENLAMBDA (STRING NV) (
+LET ((%NEW-TYPE-NUMBER (SELECTC NV (\\ST.BYTE %THIN-CHAR-TYPENUMBER) (\\ST.POS16 %FAT-CHAR-TYPENUMBER)
+ (SHOULDNT "Unknown typ value")))) (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) (
+%SET-ARRAY-TYPE-NUMBER STRING %NEW-TYPE-NUMBER)) (T (|replace| (ARRAY-HEADER TYPE-NUMBER) |of| STRING 
+|with| %NEW-TYPE-NUMBER))))) DATUM NEWVALUE)) (LENGTH (|fetch| (ARRAY-HEADER FILL-POINTER) |of| DATUM)
+ ((OPENLAMBDA (STRING NV) (|replace| (ARRAY-HEADER FILL-POINTER) |of| STRING |with| NV) (|replace| (
+ARRAY-HEADER TOTAL-SIZE) |of| STRING |with| NV) (COND ((%GENERAL-ARRAY-P STRING) (|freplace| (
+GENERAL-ARRAY DIMS) |of| STRING |with| (LIST NV)))) NV) DATUM NEWVALUE)) (OFFST ((OPENLAMBDA (STRING) 
+(COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) (%ARRAY-OFFSET STRING)) (T (|fetch| (
+ARRAY-HEADER OFFSET) |of| STRING)))) DATUM) ((OPENLAMBDA (STRING NV) (COND ((NOT (EQ 0 NV)) (|replace|
+ (ARRAY-HEADER DISPLACED-P) |of| STRING |with| T))) (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| 
+STRING) (%SET-ARRAY-OFFSET STRING NV)) (T (|replace| (ARRAY-HEADER OFFSET) |of| STRING |with| NV)))) 
+DATUM NEWVALUE)) (* |;;| "The rest of these fields only appear when smashing") (XFLAGS (LOGAND (
+|fetch| (ARRAY-HEADER FLAGS) |of| DATUM) 15) ((OPENLAMBDA (STRING) (|replace| (ARRAY-HEADER 
+ADJUSTABLE-P) |of| STRING |with| NIL) (|replace| (ARRAY-HEADER DISPLACED-P) |of| STRING |with| NIL) (
+|replace| (ARRAY-HEADER FILL-POINTER-P) |of| STRING |with| NIL) (|replace| (ARRAY-HEADER EXTENDABLE-P)
+ |of| STRING |with| NIL)) DATUM))) (ACCESSFNS STRINGP ((ORIG ((OPENLAMBDA (STRING) 1) DATUM) ((
+OPENLAMBDA (STRING NV) (COND ((NOT (EQ NV 1)) (ERROR "Il:stringp's are always origin 1"))) NV) DATUM 
+NEWVALUE)) (* \; "An inoperative field") (SUBSTRINGED ((OPENLAMBDA (STRING) NIL) DATUM) ((OPENLAMBDA (
+STRING NV) (OR (NULL NV) (ERROR "Substringed field not supported"))) DATUM NEWVALUE)) (READONLY (
+|ffetch| (STRINGP XREADONLY) |of| DATUM) (|freplace| (STRINGP XREADONLY) |of| DATUM |with| NEWVALUE)) 
+(FATSTRINGP ((OPENLAMBDA (STRING) (EQ (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) (
+%ARRAY-TYPE-NUMBER STRING)) (T (|fetch| (ARRAY-HEADER TYPE-NUMBER) |of| STRING))) %FAT-CHAR-TYPENUMBER
+)) DATUM) ((OPENLAMBDA (STRING NV) (LET ((%NEW-TYPE-NUMBER (COND (NV %FAT-CHAR-TYPENUMBER) (T 
+%THIN-CHAR-TYPENUMBER)))) (COND ((|fetch| (ARRAY-HEADER INDIRECT-P) |of| STRING) (
+%SET-ARRAY-TYPE-NUMBER STRING %NEW-TYPE-NUMBER)) (T (|replace| (ARRAY-HEADER TYPE-NUMBER) |of| STRING 
+|with| %NEW-TYPE-NUMBER))))) DATUM NEWVALUE)) (BASE (|ffetch| (STRINGP XBASE) |of| DATUM) (|freplace| 
+(STRINGP XBASE) |of| DATUM |with| NEWVALUE)))) (CREATE (|create| ONED-ARRAY BASE _ XBASE READ-ONLY-P _
+ XREADONLY STRING-P _ T DISPLACED-P _ (NOT (EQ OFFST 0)) TYPE-NUMBER _ (COND ((EQ TYP \\ST.POS16) 
+%FAT-CHAR-TYPENUMBER) (T %THIN-CHAR-TYPENUMBER)) OFFSET _ OFFST FILL-POINTER _ LENGTH TOTAL-SIZE _ 
+LENGTH)) (TYPE? (CL:STRINGP DATUM)) OFFST _ 0 TYP _ \\ST.BYTE LENGTH _ 0)
+(GLOBALVARS |\\OneCharAtomBase|)
+(PUTDEF (QUOTE \\NUMSTR) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING 128))))
+(PUTDEF (QUOTE \\NUMSTR1) (QUOTE RESOURCES) (QUOTE (NEW (CONCAT))))
+(PUTDEF (QUOTE \\PNAMESTRING) (QUOTE RESOURCES) (QUOTE (NEW (ALLOCSTRING \\PNAMELIMIT NIL NIL 
+\\FATPNAMESTRINGP))))
+(RPAQQ \\FATPNAMESTRINGP T)
+(CONSTANTS (\\FATPNAMESTRINGP T))
+(PUTPROPS \\PNAMESTRINGPUTCHAR MACRO ((BASE OFFSET CODE) (* \; 
+"For stuffing chars into resource \\PNAMESTRING") (\\PUTBASECHAR \\FATPNAMESTRINGP BASE OFFSET CODE)))
+(DEFOPTIMIZER FCHARACTER (NUM) (BQUOTE ((OPENLAMBDA (N) (COND ((IGREATERP N \\MAXTHINCHAR) (* \; 
 "The character we're getting is NOT a thin character -- do it the hard way") (CHARACTER N)) ((
-IGREATERP N (CHARCODE 9)) (\ADDBASE \OneCharAtomBase (IDIFFERENCE N 10))) ((IGEQ N (CHARCODE 0)) (
-IDIFFERENCE N (CHARCODE 0))) (T (* ; "The common case -- just add on the one-atom base.") (\ADDBASE 
-\OneCharAtomBase N)))) (\, NUM))))
-(I.S.OPR (QUOTE inpname) NIL (QUOTE (SUBPAIR (QUOTE ($$END $$BODY $$FATP $$BASE $$OFFSET)) (LIST (
-GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (BQUOTE (bind $$OFFSET _ 0 
-$$BODY _ BODY $$BASE $$END $$FATP declare (LOCALVARS $$END $$BODY $$FATP $$BASE $$OFFSET) first (PROG 
-NIL $$RETRY (COND ((STRINGP $$BODY) (SETQ $$BASE (ffetch (STRINGP BASE) of $$BODY)) (SETQ $$OFFSET (
-SUB1 (ffetch (STRINGP OFFST) of $$BODY))) (SETQ $$END (IPLUS $$OFFSET (ffetch (STRINGP LENGTH) of 
-$$BODY))) (SETQ $$FATP (ffetch (STRINGP FATSTRINGP) of $$BODY))) ((LITATOM $$BODY) (SETQ $$BASE (
-ffetch (LITATOM PNAMEBASE) of $$BODY)) (SETQ $$END (ffetch (PNAMEBASE PNAMELENGTH) of $$BASE)) (SETQ 
-$$FATP (ffetch (LITATOM FATPNAMEP) of $$BODY))) (T (SETQ $$BODY (MKSTRING $$BODY)) (GO $$RETRY)))) 
-eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (COND 
-($$FATP (\GETBASEFAT $$BASE $$OFFSET)) (T (\GETBASETHIN $$BASE $$OFFSET)))))))) T)
-(I.S.OPR (QUOTE inatom) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END $$FATP)) (LIST (
-GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$OFFSET _ 0 $$BODY
- _ BODY $$BASE $$END $$FATP declare (LOCALVARS $$OFFSET $$BODY $$BASE $$END $$FATP) first (SETQ $$BASE
- (ffetch (LITATOM PNAMEBASE) of $$BODY)) (SETQ $$END (ffetch (PNAMEBASE PNAMELENGTH) of $$BASE)) (SETQ
- $$FATP (ffetch (LITATOM FATPNAMEP) of $$BODY)) eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (
-IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (COND ($$FATP (\GETBASEFAT $$BASE $$OFFSET)) (T (
-\GETBASETHIN $$BASE $$OFFSET)))))))) T)
-(I.S.OPR (QUOTE instring) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE $$FATP)) (LIST (
-GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$BODY _ BODY $$END
- $$OFFSET $$BASE $$FATP declare (LOCALVARS $$BODY $$END $$OFFSET $$BASE $$FATP) first (SETQ $$OFFSET (
-SUB1 (ffetch (STRINGP OFFST) of $$BODY))) (SETQ $$BASE (ffetch (STRINGP BASE) of $$BODY)) (SETQ $$END 
-(IPLUS $$OFFSET (ffetch (STRINGP LENGTH) of $$BODY))) (SETQ $$FATP (ffetch (STRINGP FATSTRINGP) of 
-$$BODY)) eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ 
-I.V. (COND ($$FATP (\GETBASEFAT $$BASE $$OFFSET)) (T (\GETBASETHIN $$BASE $$OFFSET)))))))) T)
-(I.S.OPR (QUOTE infatatom) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END)) (LIST (
-GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$OFFSET _ 0 $$BODY _ BODY $$BASE
- $$END declare (LOCALVARS $$OFFSET $$BODY $$BASE $$END) first (SETQ $$BASE (ffetch (LITATOM PNAMEBASE)
- of $$BODY)) (SETQ $$END (ffetch (PNAMEBASE PNAMELENGTH) of $$BASE)) eachtime (SETQ $$OFFSET (ADD1 
-$$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (\GETBASEFAT $$BASE $$OFFSET)))))) T
-)
-(I.S.OPR (QUOTE inthinatom) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END)) (LIST (
-GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$OFFSET _ 0 $$BODY _ BODY $$BASE
- $$END declare (LOCALVARS $$OFFSET $$BODY $$BASE $$END) first (SETQ $$BASE (ffetch (LITATOM PNAMEBASE)
- of $$BODY)) (SETQ $$END (ffetch (PNAMEBASE PNAMELENGTH) of $$BASE)) eachtime (SETQ $$OFFSET (ADD1 
-$$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (\GETBASETHIN $$BASE $$OFFSET)))))) 
-T)
-(I.S.OPR (QUOTE infatstring) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE)) (LIST (
-GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$BODY _ BODY $$END $$OFFSET 
-$$BASE declare (LOCALVARS $$BODY $$END $$OFFSET $$BASE) first (SETQ $$OFFSET (SUB1 (ffetch (STRINGP 
-OFFST) of $$BODY))) (SETQ $$BASE (ffetch (STRINGP BASE) of $$BODY)) (SETQ $$END (IPLUS $$OFFSET (
-ffetch (STRINGP LENGTH) of $$BODY))) eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET
- $$END) (GO $$OUT)) (SETQ I.V. (\GETBASEFAT $$BASE $$OFFSET)))))) T)
-(I.S.OPR (QUOTE inthinstring) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE)) (LIST (
-GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (bind $$BODY _ BODY $$END $$OFFSET 
-$$BASE declare (LOCALVARS $$BODY $$END $$OFFSET $$BASE) first (SETQ $$OFFSET (SUB1 (ffetch (STRINGP 
-OFFST) of $$BODY))) (SETQ $$BASE (ffetch (STRINGP BASE) of $$BODY)) (SETQ $$END (IPLUS $$OFFSET (
-ffetch (STRINGP LENGTH) of $$BODY))) eachtime (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET
- $$END) (GO $$OUT)) (SETQ I.V. (\GETBASETHIN $$BASE $$OFFSET)))))) T)
-(PUTPROPS \CHARCODEP DMACRO (OPENLAMBDA (X) (* ; 
-"used to also say (ILEQ X \MAXFATCHAR), but that's implied by the first two clauses") (AND (SMALLP X) 
-(IGEQ X 0))))
-(PUTPROPS \FATCHARCODEP DMACRO (OPENLAMBDA (X) (* ; 
-"Used to also say (ILEQ X \MAXFATCHAR), but that's implied by the first two clauses") (AND (SMALLP X) 
-(IGREATERP X \MAXTHINCHAR))))
-(PUTPROPS \THINCHARCODEP DMACRO (OPENLAMBDA (X) (AND (SMALLP X) (IGEQ X 0) (ILEQ X \MAXTHINCHAR))))
-(PUTPROPS \GETBASEFAT MACRO (= . \GETBASE))
-(PUTPROPS \GETBASETHIN MACRO (= . \GETBASEBYTE))
-(PUTPROPS \PUTBASEFAT MACRO (= . \PUTBASE))
-(PUTPROPS \PUTBASETHIN MACRO (= . \PUTBASEBYTE))
-(PUTPROPS \PUTBASECHAR MACRO (OPENLAMBDA (FATP BASE OFFSET CODE) (COND (FATP (\PUTBASEFAT BASE OFFSET 
-CODE)) (T (\PUTBASETHIN BASE OFFSET CODE)))))
-(PUTPROPS \GETBASECHAR MACRO ((FATP BASE N) (COND (FATP (\GETBASEFAT BASE N)) (T (\GETBASETHIN BASE N)
-))))
-(PUTPROPS \CHARSET MACRO ((CHARCODE) (LRSH CHARCODE 8)))
-(PUTPROPS \CHAR8CODE MACRO ((CHARCODE) (LOGAND CHARCODE 255)))
-(RPAQQ \CHARMASK 255)
-(RPAQQ \MAXCHAR 255)
-(RPAQQ \MAXTHINCHAR 255)
-(RPAQQ \MAXFATCHAR 65535)
-(RPAQQ \MAXCHARSET 255)
+IGREATERP N (CHARCODE 9)) (\\ADDBASE |\\OneCharAtomBase| (IDIFFERENCE N 10))) ((IGEQ N (CHARCODE 0)) (
+IDIFFERENCE N (CHARCODE 0))) (T (* \; "The common case -- just add on the one-atom base.") (\\ADDBASE 
+|\\OneCharAtomBase| N)))) (\\\, NUM))))
+(I.S.OPR (QUOTE |inpname|) NIL (QUOTE (SUBPAIR (QUOTE ($$END $$BODY $$FATP $$BASE $$OFFSET)) (LIST (
+GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (BQUOTE (|bind| $$OFFSET _ 0 
+$$BODY _ BODY $$BASE $$END $$FATP |declare| (LOCALVARS $$END $$BODY $$FATP $$BASE $$OFFSET) |first| (
+PROG NIL $$RETRY (COND ((STRINGP $$BODY) (SETQ $$BASE (|ffetch| (STRINGP BASE) |of| $$BODY)) (SETQ 
+$$OFFSET (SUB1 (|ffetch| (STRINGP OFFST) |of| $$BODY))) (SETQ $$END (IPLUS $$OFFSET (|ffetch| (STRINGP
+ LENGTH) |of| $$BODY))) (SETQ $$FATP (|ffetch| (STRINGP FATSTRINGP) |of| $$BODY))) ((LITATOM $$BODY) (
+SETQ $$BASE (|ffetch| (LITATOM PNAMEBASE) |of| $$BODY)) (SETQ $$END (|ffetch| (PNAMEBASE PNAMELENGTH) 
+|of| $$BASE)) (SETQ $$FATP (|ffetch| (LITATOM FATPNAMEP) |of| $$BODY))) (T (SETQ $$BODY (MKSTRING 
+$$BODY)) (GO $$RETRY)))) |eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (
+GO $$OUT)) (SETQ I.V. (COND ($$FATP (\\GETBASEFAT $$BASE $$OFFSET)) (T (\\GETBASETHIN $$BASE $$OFFSET)
+))))))) T)
+(I.S.OPR (QUOTE |inatom|) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END $$FATP)) (LIST (
+GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$OFFSET _ 0 
+$$BODY _ BODY $$BASE $$END $$FATP |declare| (LOCALVARS $$OFFSET $$BODY $$BASE $$END $$FATP) |first| (
+SETQ $$BASE (|ffetch| (LITATOM PNAMEBASE) |of| $$BODY)) (SETQ $$END (|ffetch| (PNAMEBASE PNAMELENGTH) 
+|of| $$BASE)) (SETQ $$FATP (|ffetch| (LITATOM FATPNAMEP) |of| $$BODY)) |eachtime| (SETQ $$OFFSET (ADD1
+ $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (COND ($$FATP (\\GETBASEFAT $$BASE 
+$$OFFSET)) (T (\\GETBASETHIN $$BASE $$OFFSET)))))))) T)
+(I.S.OPR (QUOTE |instring|) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE $$FATP)) (LIST (
+GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$BODY _ BODY 
+$$END $$OFFSET $$BASE $$FATP |declare| (LOCALVARS $$BODY $$END $$OFFSET $$BASE $$FATP) |first| (SETQ 
+$$OFFSET (SUB1 (|ffetch| (STRINGP OFFST) |of| $$BODY))) (SETQ $$BASE (|ffetch| (STRINGP BASE) |of| 
+$$BODY)) (SETQ $$END (IPLUS $$OFFSET (|ffetch| (STRINGP LENGTH) |of| $$BODY))) (SETQ $$FATP (|ffetch| 
+(STRINGP FATSTRINGP) |of| $$BODY)) |eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET
+ $$END) (GO $$OUT)) (SETQ I.V. (COND ($$FATP (\\GETBASEFAT $$BASE $$OFFSET)) (T (\\GETBASETHIN $$BASE 
+$$OFFSET)))))))) T)
+(I.S.OPR (QUOTE |infatatom|) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END)) (LIST (
+GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$OFFSET _ 0 $$BODY _ BODY 
+$$BASE $$END |declare| (LOCALVARS $$OFFSET $$BODY $$BASE $$END) |first| (SETQ $$BASE (|ffetch| (
+LITATOM PNAMEBASE) |of| $$BODY)) (SETQ $$END (|ffetch| (PNAMEBASE PNAMELENGTH) |of| $$BASE)) 
+|eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (
+\\GETBASEFAT $$BASE $$OFFSET)))))) T)
+(I.S.OPR (QUOTE |inthinatom|) NIL (QUOTE (SUBPAIR (QUOTE ($$OFFSET $$BODY $$BASE $$END)) (LIST (
+GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$OFFSET _ 0 $$BODY _ BODY 
+$$BASE $$END |declare| (LOCALVARS $$OFFSET $$BODY $$BASE $$END) |first| (SETQ $$BASE (|ffetch| (
+LITATOM PNAMEBASE) |of| $$BODY)) (SETQ $$END (|ffetch| (PNAMEBASE PNAMELENGTH) |of| $$BASE)) 
+|eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (
+\\GETBASETHIN $$BASE $$OFFSET)))))) T)
+(I.S.OPR (QUOTE |infatstring|) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE)) (LIST (
+GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$BODY _ BODY $$END $$OFFSET 
+$$BASE |declare| (LOCALVARS $$BODY $$END $$OFFSET $$BASE) |first| (SETQ $$OFFSET (SUB1 (|ffetch| (
+STRINGP OFFST) |of| $$BODY))) (SETQ $$BASE (|ffetch| (STRINGP BASE) |of| $$BODY)) (SETQ $$END (IPLUS 
+$$OFFSET (|ffetch| (STRINGP LENGTH) |of| $$BODY))) |eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (
+IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (\\GETBASEFAT $$BASE $$OFFSET)))))) T)
+(I.S.OPR (QUOTE |inthinstring|) NIL (QUOTE (SUBPAIR (QUOTE ($$BODY $$END $$OFFSET $$BASE)) (LIST (
+GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR) (GETDUMMYVAR)) (QUOTE (|bind| $$BODY _ BODY $$END $$OFFSET 
+$$BASE |declare| (LOCALVARS $$BODY $$END $$OFFSET $$BASE) |first| (SETQ $$OFFSET (SUB1 (|ffetch| (
+STRINGP OFFST) |of| $$BODY))) (SETQ $$BASE (|ffetch| (STRINGP BASE) |of| $$BODY)) (SETQ $$END (IPLUS 
+$$OFFSET (|ffetch| (STRINGP LENGTH) |of| $$BODY))) |eachtime| (SETQ $$OFFSET (ADD1 $$OFFSET)) (AND (
+IGREATERP $$OFFSET $$END) (GO $$OUT)) (SETQ I.V. (\\GETBASETHIN $$BASE $$OFFSET)))))) T)
+(PUTPROPS \\CHARCODEP DMACRO (OPENLAMBDA (X) (* \; 
+"used to also say (ILEQ X \\MAXFATCHAR), but that's implied by the first two clauses") (AND (SMALLP X)
+ (IGEQ X 0))))
+(PUTPROPS \\FATCHARCODEP DMACRO (OPENLAMBDA (X) (* \; 
+"Used to also say (ILEQ X \\MAXFATCHAR), but that's implied by the first two clauses") (AND (SMALLP X)
+ (IGREATERP X \\MAXTHINCHAR))))
+(PUTPROPS \\THINCHARCODEP DMACRO (OPENLAMBDA (X) (AND (SMALLP X) (IGEQ X 0) (ILEQ X \\MAXTHINCHAR))))
+(PUTPROPS \\GETBASEFAT MACRO (= . \\GETBASE))
+(PUTPROPS \\GETBASETHIN MACRO (= . \\GETBASEBYTE))
+(PUTPROPS \\PUTBASEFAT MACRO (= . \\PUTBASE))
+(PUTPROPS \\PUTBASETHIN MACRO (= . \\PUTBASEBYTE))
+(PUTPROPS \\PUTBASECHAR MACRO (OPENLAMBDA (FATP BASE OFFSET CODE) (COND (FATP (\\PUTBASEFAT BASE 
+OFFSET CODE)) (T (\\PUTBASETHIN BASE OFFSET CODE)))))
+(PUTPROPS \\GETBASECHAR MACRO ((FATP BASE N) (COND (FATP (\\GETBASEFAT BASE N)) (T (\\GETBASETHIN BASE
+ N)))))
+(PUTPROPS \\CHARSET MACRO ((CHARCODE) (LRSH CHARCODE 8)))
+(PUTPROPS \\CHAR8CODE MACRO ((CHARCODE) (LOGAND CHARCODE 255)))
+(RPAQQ \\CHARMASK 255)
+(RPAQQ \\MAXCHAR 255)
+(RPAQQ \\MAXTHINCHAR 255)
+(RPAQQ \\MAXFATCHAR 65535)
+(RPAQQ \\MAXCHARSET 255)
 (RPAQQ NSCHARSETSHIFT 255)
-(RPAQQ %#STRINGPWORDS 4)
-(CONSTANTS (\CHARMASK 255) (\MAXCHAR 255) (\MAXTHINCHAR 255) (\MAXFATCHAR 65535) (\MAXCHARSET 255) (
-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 "27-Apr-2021 20:06:09"))
+(RPAQQ \#STRINGPWORDS 4)
+(CONSTANTS (\\CHARMASK 255) (\\MAXCHAR 255) (\\MAXTHINCHAR 255) (\\MAXFATCHAR 65535) (\\MAXCHARSET 255
+) (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 " 6-May-2021 15:25:40"))
 
-(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) (
-USECNT BITS 8) (IVAR WORD))) (TYPE? (IEQ (fetch (BF FLAGS) of DATUM) \STK.BF)) (ACCESSFNS BF ((NARGS (
-IDIFFERENCE (FOLDLO (IDIFFERENCE DATUM (fetch (BF IVAR) of DATUM)) WORDSPERCELL) (fetch (BF PADDING) 
-of DATUM))) (SIZE (IPLUS 2 (IDIFFERENCE DATUM (fetch (BF IVAR) of DATUM)))) (CHECKED (AND (type? BF 
-DATUM) (for I from (fetch (BF IVAR) of DATUM) to (IDIFFERENCE DATUM 2) by 2 always (IEQ \STK.NOTFLAG (
-fetch (BF FLAGS) of I))))))))
-(ACCESSFNS FX ((FXBLOCK (ADDSTACKBASE DATUM))) (* ; "frame extension index") (BLOCKRECORD FXBLOCK ((
-FLAGS BITS 3) (* ; "= \STK.FX") (FAST FLAG) (NIL FLAG) (INCALL FLAG) (* ; 
-"set when fncall microcode has to punt") (VALIDNAMETABLE FLAG) (* ; 
-"if on, NAMETABLE field is filled in.  If off, is same as FNHEADER") (NOPUSH FLAG) (* ; 
-"when returning to this frame, don't push a value.  Set by interrupt code") (USECNT BITS 8) (%#ALINK 
-WORD) (* ; "low bit is SLOWP") (FNHEADER FULLXPOINTER) (NEXTBLOCK WORD) (PC WORD) (NAMETABLE# 
-FULLXPOINTER) (%#BLINK WORD) (%#CLINK WORD))) (BLOCKRECORD FXBLOCK ((FLAGBYTE BYTE) (NIL BYTE) (NIL 
-BITS 15) (* ; "most of the bits of #ALINK") (SLOWP FLAG) (* ; 
+(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) (
+USECNT BITS 8) (IVAR WORD))) (TYPE? (IEQ (|fetch| (BF FLAGS) |of| DATUM) \\STK.BF)) (ACCESSFNS BF ((
+NARGS (IDIFFERENCE (FOLDLO (IDIFFERENCE DATUM (|fetch| (BF IVAR) |of| DATUM)) WORDSPERCELL) (|fetch| (
+BF PADDING) |of| DATUM))) (SIZE (IPLUS 2 (IDIFFERENCE DATUM (|fetch| (BF IVAR) |of| DATUM)))) (CHECKED
+ (AND (|type?| BF DATUM) (|for| I |from| (|fetch| (BF IVAR) |of| DATUM) |to| (IDIFFERENCE DATUM 2) 
+|by| 2 |always| (IEQ \\STK.NOTFLAG (|fetch| (BF FLAGS) |of| I))))))))
+(ACCESSFNS FX ((FXBLOCK (ADDSTACKBASE DATUM))) (* \; "frame extension index") (BLOCKRECORD FXBLOCK ((
+FLAGS BITS 3) (* \; "= \\STK.FX") (FAST FLAG) (NIL FLAG) (INCALL FLAG) (* \; 
+"set when fncall microcode has to punt") (VALIDNAMETABLE FLAG) (* \; 
+"if on, NAMETABLE field is filled in.  If off, is same as FNHEADER") (NOPUSH FLAG) (* \; 
+"when returning to this frame, don't push a value.  Set by interrupt code") (USECNT BITS 8) (\#ALINK 
+WORD) (* \; "low bit is SLOWP") (FNHEADER FULLXPOINTER) (NEXTBLOCK WORD) (PC WORD) (NAMETABLE# 
+FULLXPOINTER) (\#BLINK WORD) (\#CLINK WORD))) (BLOCKRECORD FXBLOCK ((FLAGBYTE BYTE) (NIL BYTE) (NIL 
+BITS 15) (* \; "most of the bits of #ALINK") (SLOWP FLAG) (* \; 
 "if on, then BLINK and CLINK fields are valid.  If off, they are implicit") (NIL FULLXPOINTER 2) (
-NAMETABHI WORD) (NAMETABLO WORD))) (TYPE? (IEQ (fetch (FX FLAGS) of DATUM) \STK.FX)) (ACCESSFNS FX ((
-NAMETABLE (COND ((fetch (FX VALIDNAMETABLE) of DATUM) (fetch (FX NAMETABLE#) of DATUM)) (T (fetch (FX 
-FNHEADER) of DATUM))) (PROGN (replace (FX FAST) of DATUM with NIL) (replace (FX NAMETABLE#) of DATUM 
-with NEWVALUE) (replace (FX VALIDNAMETABLE) of DATUM with T))) (FRAMENAME (fetch (FNHEADER FRAMENAME) 
-of (fetch (FX NAMETABLE) of DATUM))) (INVALIDP (EQ DATUM 0)) (* ; 
-"true when A/CLink points at nobody, i.e. FX is bottom of stack") (FASTP (NOT (fetch (FX SLOWP) of 
-DATUM)) (PROGN (CHECK (NULL NEWVALUE)) (COND ((fetch (FX FASTP) of DATUM) (replace (FX %#BLINK) of 
-DATUM with (fetch (FX DUMMYBF) of DATUM)) (replace (FX %#CLINK) of DATUM with (fetch (FX %#ALINK) of 
-DATUM)) (replace (FX SLOWP) of DATUM with T))))) (BLINK (COND ((fetch (FX FASTP) of DATUM) (fetch (FX 
-DUMMYBF) of DATUM)) (T (fetch (FX %#BLINK) of DATUM))) (PROGN (replace (FX %#BLINK) of DATUM with 
-NEWVALUE) (COND ((fetch (FX FASTP) of DATUM) (replace (FX %#CLINK) of DATUM with (fetch (FX %#ALINK) 
-of DATUM)) (replace (FX SLOWP) of DATUM with T))))) (CLINK (IDIFFERENCE (COND ((fetch (FX FASTP) of 
-DATUM) (fetch (FX %#ALINK) of DATUM)) (T (fetch (FX %#CLINK) of DATUM))) \#ALINK.OFFSET) (PROGN (
-replace (FX %#CLINK) of DATUM with (IPLUS NEWVALUE \#ALINK.OFFSET)) (COND ((fetch (FX FASTP) of DATUM)
- (replace (FX %#BLINK) of DATUM with (fetch (FX DUMMYBF) of DATUM)) (replace (FX SLOWP) of DATUM with 
-T))))) (ALINK (IDIFFERENCE (FLOOR (fetch (FX %#ALINK) of DATUM) WORDSPERCELL) \#ALINK.OFFSET) (PROGN (
-COND ((fetch (FX FASTP) of DATUM) (replace (FX %#BLINK) of DATUM with (fetch (FX DUMMYBF) of DATUM)) (
-replace (FX %#CLINK) of DATUM with (fetch (FX %#ALINK) of DATUM)))) (replace (FX %#ALINK) of DATUM 
-with (IPLUS NEWVALUE \#ALINK.OFFSET (SUB1 WORDSPERCELL))))) (ACLINK (SHOULDNT) (PROGN (COND ((fetch (
-FX FASTP) of DATUM) (replace (FX %#BLINK) of DATUM with (fetch (FX DUMMYBF) of DATUM)))) (replace (FX 
-%#CLINK) of DATUM with (IPLUS NEWVALUE \#ALINK.OFFSET)) (replace (FX %#ALINK) of DATUM with (IPLUS 
-NEWVALUE \#ALINK.OFFSET (SUB1 WORDSPERCELL))))) (* ; 
+NAMETABHI WORD) (NAMETABLO WORD))) (TYPE? (IEQ (|fetch| (FX FLAGS) |of| DATUM) \\STK.FX)) (ACCESSFNS 
+FX ((NAMETABLE (COND ((|fetch| (FX VALIDNAMETABLE) |of| DATUM) (|fetch| (FX NAMETABLE#) |of| DATUM)) (
+T (|fetch| (FX FNHEADER) |of| DATUM))) (PROGN (|replace| (FX FAST) |of| DATUM |with| NIL) (|replace| (
+FX NAMETABLE#) |of| DATUM |with| NEWVALUE) (|replace| (FX VALIDNAMETABLE) |of| DATUM |with| T))) (
+FRAMENAME (|fetch| (FNHEADER FRAMENAME) |of| (|fetch| (FX NAMETABLE) |of| DATUM))) (INVALIDP (EQ DATUM
+ 0)) (* \; "true when A/CLink points at nobody, i.e. FX is bottom of stack") (FASTP (NOT (|fetch| (FX 
+SLOWP) |of| DATUM)) (PROGN (CHECK (NULL NEWVALUE)) (COND ((|fetch| (FX FASTP) |of| DATUM) (|replace| (
+FX \#BLINK) |of| DATUM |with| (|fetch| (FX DUMMYBF) |of| DATUM)) (|replace| (FX \#CLINK) |of| DATUM 
+|with| (|fetch| (FX \#ALINK) |of| DATUM)) (|replace| (FX SLOWP) |of| DATUM |with| T))))) (BLINK (COND 
+((|fetch| (FX FASTP) |of| DATUM) (|fetch| (FX DUMMYBF) |of| DATUM)) (T (|fetch| (FX \#BLINK) |of| 
+DATUM))) (PROGN (|replace| (FX \#BLINK) |of| DATUM |with| NEWVALUE) (COND ((|fetch| (FX FASTP) |of| 
+DATUM) (|replace| (FX \#CLINK) |of| DATUM |with| (|fetch| (FX \#ALINK) |of| DATUM)) (|replace| (FX 
+SLOWP) |of| DATUM |with| T))))) (CLINK (IDIFFERENCE (COND ((|fetch| (FX FASTP) |of| DATUM) (|fetch| (
+FX \#ALINK) |of| DATUM)) (T (|fetch| (FX \#CLINK) |of| DATUM))) \\#ALINK.OFFSET) (PROGN (|replace| (FX
+ \#CLINK) |of| DATUM |with| (IPLUS NEWVALUE \\#ALINK.OFFSET)) (COND ((|fetch| (FX FASTP) |of| DATUM) (
+|replace| (FX \#BLINK) |of| DATUM |with| (|fetch| (FX DUMMYBF) |of| DATUM)) (|replace| (FX SLOWP) |of|
+ DATUM |with| T))))) (ALINK (IDIFFERENCE (FLOOR (|fetch| (FX \#ALINK) |of| DATUM) WORDSPERCELL) 
+\\#ALINK.OFFSET) (PROGN (COND ((|fetch| (FX FASTP) |of| DATUM) (|replace| (FX \#BLINK) |of| DATUM 
+|with| (|fetch| (FX DUMMYBF) |of| DATUM)) (|replace| (FX \#CLINK) |of| DATUM |with| (|fetch| (FX 
+\#ALINK) |of| DATUM)))) (|replace| (FX \#ALINK) |of| DATUM |with| (IPLUS NEWVALUE \\#ALINK.OFFSET (
+SUB1 WORDSPERCELL))))) (ACLINK (SHOULDNT) (PROGN (COND ((|fetch| (FX FASTP) |of| DATUM) (|replace| (FX
+ \#BLINK) |of| DATUM |with| (|fetch| (FX DUMMYBF) |of| DATUM)))) (|replace| (FX \#CLINK) |of| DATUM 
+|with| (IPLUS NEWVALUE \\#ALINK.OFFSET)) (|replace| (FX \#ALINK) |of| DATUM |with| (IPLUS NEWVALUE 
+\\#ALINK.OFFSET (SUB1 WORDSPERCELL))))) (* \; 
 "replaces A & C Links at once more efficiently than separately") (DUMMYBF (IDIFFERENCE DATUM 
-WORDSPERCELL)) (* ;; 
-"This is either an actual BF or %"residual%" BF that provides enough BF to find its IVAR slot.  This means that when a FX is copied, the cell preceding the FX is copied too."
-) (IVAR (fetch (BF IVAR) of (fetch (FX DUMMYBF) of DATUM))) (CHECKED (AND (type? FX DATUM) (OR (IEQ (
-fetch (FX DUMMYBF) of DATUM) (fetch (FX BLINK) of DATUM)) (AND (fetch (BF RESIDUAL) of (fetch (FX 
-DUMMYBF) of DATUM)) (IEQ (fetch (BF IVAR) of (fetch (FX DUMMYBF) of DATUM)) (fetch (BF IVAR) of (fetch
- (FX BLINK) of DATUM))))))) (FIRSTPVAR (IPLUS DATUM (fetch (FX FXSIZE) of T))) (* ; 
-"stack offset of PVAR0") (FXSIZE (PROGN 10)) (* ; "fixed overhead from flags thru clink") (PADDING (
-PROGN 4)) (* ; "doublecell of garbage for microcode use") (FIRSTTEMP (IPLUS (fetch (FX FIRSTPVAR) of 
-DATUM) (fetch (FX NPVARWORDS) of DATUM) (fetch (FX PADDING) of DATUM))) (* ; 
-"note that NPVARWORDS is obtained from the FNHEADER") (SIZE (IDIFFERENCE (fetch (FX NEXTBLOCK) of 
+WORDSPERCELL)) (* |;;| 
+"This is either an actual BF or \"residual\" BF that provides enough BF to find its IVAR slot.  This means that when a FX is copied, the cell preceding the FX is copied too."
+) (IVAR (|fetch| (BF IVAR) |of| (|fetch| (FX DUMMYBF) |of| DATUM))) (CHECKED (AND (|type?| FX DATUM) (
+OR (IEQ (|fetch| (FX DUMMYBF) |of| DATUM) (|fetch| (FX BLINK) |of| DATUM)) (AND (|fetch| (BF RESIDUAL)
+ |of| (|fetch| (FX DUMMYBF) |of| DATUM)) (IEQ (|fetch| (BF IVAR) |of| (|fetch| (FX DUMMYBF) |of| DATUM
+)) (|fetch| (BF IVAR) |of| (|fetch| (FX BLINK) |of| DATUM))))))) (FIRSTPVAR (IPLUS DATUM (|fetch| (FX 
+FXSIZE) |of| T))) (* \; "stack offset of PVAR0") (FXSIZE (PROGN 10)) (* \; 
+"fixed overhead from flags thru clink") (PADDING (PROGN 4)) (* \; 
+"doublecell of garbage for microcode use") (FIRSTTEMP (IPLUS (|fetch| (FX FIRSTPVAR) |of| DATUM) (
+|fetch| (FX NPVARWORDS) |of| DATUM) (|fetch| (FX PADDING) |of| DATUM))) (* \; 
+"note that NPVARWORDS is obtained from the FNHEADER") (SIZE (IDIFFERENCE (|fetch| (FX NEXTBLOCK) |of| 
 DATUM) DATUM)))))
-(ACCESSFNS FSB (* ;; "FREE STACK BLOCK -- ") (* ;; " A piece of stack space that's free.") (* ;; 
-"The first word contains 120000Q") (* ;; "The 2nd word is the size of the block, in words.") ((
-FSBBLOCK (ADDSTACKBASE DATUM)) (CHECKED (IEQ (fetch (FSB FLAGWORD) of DATUM) \STK.FSB.WORD))) (
+(ACCESSFNS FSB (* |;;| "FREE STACK BLOCK -- ") (* |;;| " A piece of stack space that's free.") (* |;;|
+ "The first word contains 120000Q") (* |;;| "The 2nd word is the size of the block, in words.") ((
+FSBBLOCK (ADDSTACKBASE DATUM)) (CHECKED (IEQ (|fetch| (FSB FLAGWORD) |of| DATUM) \\STK.FSB.WORD))) (
 BLOCKRECORD FSBBLOCK ((FLAGS BITS 3) (DUMMY BITS 13) (SIZE WORD))) (BLOCKRECORD FSBBLOCK ((FLAGWORD 
-WORD) (SIZE WORD))) (* ; "free stack block") (TYPE? (IEQ (fetch (FSB FLAGS) of DATUM) \STK.FSB)))
-(ACCESSFNS STK ((STKBLOCK (ADDSTACKBASE DATUM))) (* ; "unspecified stack block") (BLOCKRECORD STKBLOCK
- ((FLAGS BITS 3))) (BLOCKRECORD STKBLOCK ((FLAGWORD WORD))))
-(RPAQQ \#ALINK.OFFSET 10)
-(CONSTANTS \#ALINK.OFFSET)
-(GLOBALVARS \PENDINGINTERRUPT \KBDSTACKBASE \MISCSTACKBASE \STACKOVERFLOW)
-(PUTPROPS \MYALINK DMACRO (NIL ((OPCODES MYALINK))))
+WORD) (SIZE WORD))) (* \; "free stack block") (TYPE? (IEQ (|fetch| (FSB FLAGS) |of| DATUM) \\STK.FSB))
+)
+(ACCESSFNS STK ((STKBLOCK (ADDSTACKBASE DATUM))) (* \; "unspecified stack block") (BLOCKRECORD 
+STKBLOCK ((FLAGS BITS 3))) (BLOCKRECORD STKBLOCK ((FLAGWORD WORD))))
+(RPAQQ \\#ALINK.OFFSET 10)
+(CONSTANTS \\#ALINK.OFFSET)
+(GLOBALVARS \\PENDINGINTERRUPT \\KBDSTACKBASE \\MISCSTACKBASE \\STACKOVERFLOW)
+(PUTPROPS \\MYALINK DMACRO (NIL ((OPCODES MYALINK))))
 (PUTPROPS ADDSTACKBASE DMACRO (= . STACKADDBASE))
-(PUTPROPS STACKADDBASE DMACRO ((N) (VAG2 \STACKHI N)))
-(PUTPROPS STACKGETBASE DMACRO ((N) (\GETBASE (STACKADDBASE N) 0)))
-(PUTPROPS STACKGETBASEPTR DMACRO ((N) (\GETBASEPTR (STACKADDBASE N) 0)))
-(PUTPROPS STACKPUTBASE DMACRO ((N V) (\PUTBASE (STACKADDBASE N) 0 V)))
-(PUTPROPS STACKPUTBASEPTR DMACRO ((N V) (\PUTBASEPTR (STACKADDBASE N) 0 V)))
-(PUTPROPS \MISCAPPLY* MACRO ((FN ARG1 ARG2) (UNINTERRUPTABLY (replace (IFPAGE MISCSTACKFN) of 
-\InterfacePage with FN) (replace (IFPAGE MISCSTACKARG1) of \InterfacePage with ARG1) (replace (IFPAGE 
-MISCSTACKARG2) of \InterfacePage with ARG2) (\CONTEXTSWITCH \MiscFXP) (fetch (IFPAGE MISCSTACKRESULT) 
-of \InterfacePage))))
+(PUTPROPS STACKADDBASE DMACRO ((N) (VAG2 \\STACKHI N)))
+(PUTPROPS STACKGETBASE DMACRO ((N) (\\GETBASE (STACKADDBASE N) 0)))
+(PUTPROPS STACKGETBASEPTR DMACRO ((N) (\\GETBASEPTR (STACKADDBASE N) 0)))
+(PUTPROPS STACKPUTBASE DMACRO ((N V) (\\PUTBASE (STACKADDBASE N) 0 V)))
+(PUTPROPS STACKPUTBASEPTR DMACRO ((N V) (\\PUTBASEPTR (STACKADDBASE N) 0 V)))
+(PUTPROPS \\MISCAPPLY* MACRO ((FN ARG1 ARG2) (UNINTERRUPTABLY (|replace| (IFPAGE MISCSTACKFN) |of| 
+|\\InterfacePage| |with| FN) (|replace| (IFPAGE MISCSTACKARG1) |of| |\\InterfacePage| |with| ARG1) (
+|replace| (IFPAGE MISCSTACKARG2) |of| |\\InterfacePage| |with| ARG2) (\\CONTEXTSWITCH |\\MiscFXP|) (
+|fetch| (IFPAGE MISCSTACKRESULT) |of| |\\InterfacePage|))))
 (BLOCKRECORD STACKP ((STACKP0 WORD) (EDFXP WORD)) (BLOCKRECORD STACKP ((STACKPOINTER FULLXPOINTER))) (
 TYPE? (STACKP DATUM)))
-(RPAQQ STACKTYPES (\STK.GUARD \STK.FX \STK.BF \STK.NOTFLAG \STK.FSB \STK.FLAGS.SHIFT (\STK.FSB.WORD (
-LLSH \STK.FSB \STK.FLAGS.SHIFT)) (\STK.GUARD.WORD (LLSH \STK.GUARD \STK.FLAGS.SHIFT)) (\STK.BF.WORD (
-LLSH \STK.BF \STK.FLAGS.SHIFT))))
-(RPAQQ \STK.GUARD 7)
-(RPAQQ \STK.FX 6)
-(RPAQQ \STK.BF 4)
-(RPAQQ \STK.NOTFLAG 0)
-(RPAQQ \STK.FSB 5)
-(RPAQQ \STK.FLAGS.SHIFT 13)
-(RPAQ \STK.FSB.WORD (LLSH \STK.FSB \STK.FLAGS.SHIFT))
-(RPAQ \STK.GUARD.WORD (LLSH \STK.GUARD \STK.FLAGS.SHIFT))
-(RPAQ \STK.BF.WORD (LLSH \STK.BF \STK.FLAGS.SHIFT))
-(CONSTANTS \STK.GUARD \STK.FX \STK.BF \STK.NOTFLAG \STK.FSB \STK.FLAGS.SHIFT (\STK.FSB.WORD (LLSH 
-\STK.FSB \STK.FLAGS.SHIFT)) (\STK.GUARD.WORD (LLSH \STK.GUARD \STK.FLAGS.SHIFT)) (\STK.BF.WORD (LLSH 
-\STK.BF \STK.FLAGS.SHIFT)))
-(RPAQQ \StackAreaSize 768)
-(RPAQ \InitStackSize (ITIMES \StackAreaSize 12))
-(CONSTANTS \StackAreaSize (\InitStackSize (ITIMES \StackAreaSize 12)))
-(RPAQQ \MAXSAFEUSECOUNT 200)
-(CONSTANTS \MAXSAFEUSECOUNT)
+(RPAQQ STACKTYPES (\\STK.GUARD \\STK.FX \\STK.BF \\STK.NOTFLAG \\STK.FSB \\STK.FLAGS.SHIFT (
+\\STK.FSB.WORD (LLSH \\STK.FSB \\STK.FLAGS.SHIFT)) (\\STK.GUARD.WORD (LLSH \\STK.GUARD 
+\\STK.FLAGS.SHIFT)) (\\STK.BF.WORD (LLSH \\STK.BF \\STK.FLAGS.SHIFT))))
+(RPAQQ \\STK.GUARD 7)
+(RPAQQ \\STK.FX 6)
+(RPAQQ \\STK.BF 4)
+(RPAQQ \\STK.NOTFLAG 0)
+(RPAQQ \\STK.FSB 5)
+(RPAQQ \\STK.FLAGS.SHIFT 13)
+(RPAQ \\STK.FSB.WORD (LLSH \\STK.FSB \\STK.FLAGS.SHIFT))
+(RPAQ \\STK.GUARD.WORD (LLSH \\STK.GUARD \\STK.FLAGS.SHIFT))
+(RPAQ \\STK.BF.WORD (LLSH \\STK.BF \\STK.FLAGS.SHIFT))
+(CONSTANTS \\STK.GUARD \\STK.FX \\STK.BF \\STK.NOTFLAG \\STK.FSB \\STK.FLAGS.SHIFT (\\STK.FSB.WORD (
+LLSH \\STK.FSB \\STK.FLAGS.SHIFT)) (\\STK.GUARD.WORD (LLSH \\STK.GUARD \\STK.FLAGS.SHIFT)) (
+\\STK.BF.WORD (LLSH \\STK.BF \\STK.FLAGS.SHIFT)))
+(RPAQQ |\\StackAreaSize| 768)
+(RPAQ |\\InitStackSize| (ITIMES |\\StackAreaSize| 12))
+(CONSTANTS |\\StackAreaSize| (|\\InitStackSize| (ITIMES |\\StackAreaSize| 12)))
+(RPAQQ \\MAXSAFEUSECOUNT 200)
+(CONSTANTS \\MAXSAFEUSECOUNT)
 (BLOCKRECORD NAMETABLESLOT ((VARTYPE BYTE) (VAROFFSET BYTE)))
-(BLOCKRECORD FVARSLOT ((BINDLO WORD) (BINDHI WORD)) (ACCESSFNS FVARSLOT ((LOOKEDUP (EVENP (fetch 
-BINDLO of DATUM))) (BINDINGPTR (\VAG2 (fetch BINDHI of DATUM) (fetch BINDLO of DATUM)) (PROGN (replace
- BINDLO of DATUM with (\LOLOC NEWVALUE)) (replace BINDHI of DATUM with (\HILOC NEWVALUE)))))))
-(BLOCKRECORD PVARSLOT ((PVHI BITS 4) (PVVALUE XPOINTER)) (ACCESSFNS PVARSLOT ((BOUND (EQ (fetch (
-PVARSLOT PVHI) of DATUM) 0) (if (NULL NEWVALUE) then (replace (PVARSLOT PVHI) of DATUM with 255) else 
-(ERROR "Illegal replace" NEWVALUE))))))
+(BLOCKRECORD FVARSLOT ((BINDLO WORD) (BINDHI WORD)) (ACCESSFNS FVARSLOT ((LOOKEDUP (EVENP (|fetch| 
+BINDLO |of| DATUM))) (BINDINGPTR (\\VAG2 (|fetch| BINDHI |of| DATUM) (|fetch| BINDLO |of| DATUM)) (
+PROGN (|replace| BINDLO |of| DATUM |with| (\\LOLOC NEWVALUE)) (|replace| BINDHI |of| DATUM |with| (
+\\HILOC NEWVALUE)))))))
+(BLOCKRECORD PVARSLOT ((PVHI BITS 4) (PVVALUE XPOINTER)) (ACCESSFNS PVARSLOT ((BOUND (EQ (|fetch| (
+PVARSLOT PVHI) |of| DATUM) 0) (|if| (NULL NEWVALUE) |then| (|replace| (PVARSLOT PVHI) |of| DATUM 
+|with| 255) |else| (ERROR "Illegal replace" NEWVALUE))))))
 (BLOCKRECORD STKTEMPSLOT ((STKTMPHI BITS 4) (VALUE XPOINTER)) (ACCESSFNS STKTEMPSLOT ((BINDINGPTRP (
-NEQ (fetch STKTMPHI of DATUM) 0)))))
+NEQ (|fetch| STKTMPHI |of| DATUM) 0)))))
 (BLOCKRECORD BINDMARKSLOT ((BINDMARKP FLAG) (NIL BITS 15)) (BLOCKRECORD BINDMARKSLOT ((BINDNEGVALUES 
-WORD) (BINDLASTPVAR WORD))) (ACCESSFNS BINDMARKSLOT ((BINDNVALUES (PROGN (* ; 
-"Value stored in high half is one's complement of number of values bound") (LOGXOR (fetch 
-BINDNEGVALUES of DATUM) 65535))))))
-(RPAQQ \NT.IVAR 0)
-(RPAQQ \NT.PVAR 128)
-(RPAQQ \NT.FVAR 192)
-(CONSTANTS \NT.IVAR \NT.PVAR \NT.FVAR)
-(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+WORD) (BINDLASTPVAR WORD))) (ACCESSFNS BINDMARKSLOT ((BINDNVALUES (PROGN (* \; 
+"Value stored in high half is one's complement of number of values bound") (LOGXOR (|fetch| 
+BINDNEGVALUES |of| DATUM) 65535))))))
+(RPAQQ \\NT.IVAR 0)
+(RPAQQ \\NT.PVAR 128)
+(RPAQQ \\NT.FVAR 192)
+(CONSTANTS \\NT.IVAR \\NT.PVAR \\NT.FVAR)
+(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(PUTPROPS WORDCONTENTS BYTEMACRO ((PTR) (\GETBASE PTR 0)))
-(PUTPROPS SETWORDCONTENTS BYTEMACRO ((PTR N) (\PUTBASE PTR 0 N)))
-(PUTPROPS WORDOFFSET BYTEMACRO ((PTR N) (\ADDBASE PTR N)))
-(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 "27-Apr-2021 20:06:09"))
+(PUTPROPS WORDCONTENTS BYTEMACRO ((PTR) (\\GETBASE PTR 0)))
+(PUTPROPS SETWORDCONTENTS BYTEMACRO ((PTR N) (\\PUTBASE PTR 0 N)))
+(PUTPROPS WORDOFFSET BYTEMACRO ((PTR N) (\\ADDBASE PTR N)))
+(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 " 6-May-2021 15:25:40"))
 
-(PUTPROPS ADDREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\ADDREF PTR))))
-(PUTPROPS \ADDREF DMACRO ((X) ((OPCODES GCREF 0) X)))
-(PUTPROPS DELETEREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\DELREF PTR))))
-(PUTPROPS \DELREF DMACRO ((X) ((OPCODES GCREF 1) X)))
-(PUTPROPS SCANREF MACRO (= . \STKREF))
-(PUTPROPS \STKREF DMACRO ((X) ((OPCODES GCREF 2) X)))
-(PUTPROPS UNSCANREF MACRO ((PTR) (\HTFIND PTR 3)))
-(PUTPROPS CREATEREF MACRO (= . \CREATEREF))
-(PUTPROPS \CREATEREF MACRO (OPENLAMBDA (PTR) (PROG1 (\DELREF PTR) (.INCREMENT.ALLOCATION.COUNT. 1))))
-(PUTPROPS .INCREMENT.ALLOCATION.COUNT. MACRO (OPENLAMBDA (N) (DECLARE (GLOBALVARS \RECLAIM.COUNTDOWN))
- (AND \RECLAIM.COUNTDOWN (COND ((IGREATERP \RECLAIM.COUNTDOWN N) (SETQ \RECLAIM.COUNTDOWN (IDIFFERENCE
- \RECLAIM.COUNTDOWN N))) (T (SETQ \RECLAIM.COUNTDOWN) (\DORECLAIM))))))
-(PUTPROPS .CHECK.ALLOCATION.COUNT. MACRO (OPENLAMBDA (N) (DECLARE (GLOBALVARS \RECLAIM.COUNTDOWN)) (
-AND \RECLAIM.COUNTDOWN (COND ((NOT (IGREATERP \RECLAIM.COUNTDOWN N)) (SETQ \RECLAIM.COUNTDOWN) (
-\DORECLAIM))))))
-(PUTPROPS \GCDISABLED MACRO (NIL (PROGN (DECLARE (GLOBALVARS \GCDISABLED)) \GCDISABLED)))
-(BLOCKRECORD HTOVERFLOW ((CASE BITS 4) (PTR XPOINTER)) (ACCESSFNS HTOVERFLOW ((CLEAR NIL (\PUTBASEPTR 
-DATUM 0 NIL)))))
+(PUTPROPS ADDREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\\ADDREF PTR))))
+(PUTPROPS \\ADDREF DMACRO ((X) ((OPCODES GCREF 0) X)))
+(PUTPROPS DELETEREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\\DELREF PTR))))
+(PUTPROPS \\DELREF DMACRO ((X) ((OPCODES GCREF 1) X)))
+(PUTPROPS SCANREF MACRO (= . \\STKREF))
+(PUTPROPS \\STKREF DMACRO ((X) ((OPCODES GCREF 2) X)))
+(PUTPROPS UNSCANREF MACRO ((PTR) (\\HTFIND PTR 3)))
+(PUTPROPS CREATEREF MACRO (= . \\CREATEREF))
+(PUTPROPS \\CREATEREF MACRO (OPENLAMBDA (PTR) (PROG1 (\\DELREF PTR) (.INCREMENT.ALLOCATION.COUNT. 1)))
+)
+(PUTPROPS .INCREMENT.ALLOCATION.COUNT. MACRO (OPENLAMBDA (N) (DECLARE (GLOBALVARS \\RECLAIM.COUNTDOWN)
+) (AND \\RECLAIM.COUNTDOWN (COND ((IGREATERP \\RECLAIM.COUNTDOWN N) (SETQ \\RECLAIM.COUNTDOWN (
+IDIFFERENCE \\RECLAIM.COUNTDOWN N))) (T (SETQ \\RECLAIM.COUNTDOWN) (\\DORECLAIM))))))
+(PUTPROPS .CHECK.ALLOCATION.COUNT. MACRO (OPENLAMBDA (N) (DECLARE (GLOBALVARS \\RECLAIM.COUNTDOWN)) (
+AND \\RECLAIM.COUNTDOWN (COND ((NOT (IGREATERP \\RECLAIM.COUNTDOWN N)) (SETQ \\RECLAIM.COUNTDOWN) (
+\\DORECLAIM))))))
+(PUTPROPS \\GCDISABLED MACRO (NIL (PROGN (DECLARE (GLOBALVARS \\GCDISABLED)) \\GCDISABLED)))
+(BLOCKRECORD HTOVERFLOW ((CASE BITS 4) (PTR XPOINTER)) (ACCESSFNS HTOVERFLOW ((CLEAR NIL (\\PUTBASEPTR
+ DATUM 0 NIL)))))
 (BLOCKRECORD GC ((CNT BITS 15) (STKBIT FLAG) (HIBITS BITS 15) (LINKP FLAG) (NXTPTR FIXP)) (BLOCKRECORD
- GC ((STKCNT WORD))) (ACCESSFNS GC ((EMPTY (EQ 0 (\GETBASEFIXP DATUM 0)) (\PUTBASEFIXP DATUM 0 0)) (
-CONTENTS (\GETBASEFIXP DATUM 0) (\PUTBASEFIXP DATUM 0 NEWVALUE)) (LINKPTR (LOGAND (\GETBASEFIXP DATUM 
-0) -2) (\PUTBASEFIXP DATUM 0 (LOGOR NEWVALUE 1))))))
-(BLOCKRECORD HTCOLL ((* ;; 
+ GC ((STKCNT WORD))) (ACCESSFNS GC ((EMPTY (EQ 0 (\\GETBASEFIXP DATUM 0)) (\\PUTBASEFIXP DATUM 0 0)) (
+CONTENTS (\\GETBASEFIXP DATUM 0) (\\PUTBASEFIXP DATUM 0 NEWVALUE)) (LINKPTR (LOGAND (\\GETBASEFIXP 
+DATUM 0) -2) (\\PUTBASEFIXP DATUM 0 (LOGOR NEWVALUE 1))))))
+(BLOCKRECORD HTCOLL ((* |;;| 
 "An entry in the GC collision table.  NEXTFREE is initialized to 2 by INITGC, as part of the MAKEINIT."
-) (FREEPTR FIXP) (* ; "The GC table entry") (NEXTFREE FIXP) (* ; 
+) (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-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(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 (
-CHARTABLE NSCHARHASH) of TABLE) (GETHASH CHAR (fetch (CHARTABLE NSCHARHASH) of TABLE))) 0)) (T (
-\GETBASEBYTE TABLE CHAR)))))
-(PUTPROPS \SETSYNCODE DMACRO (LAMBDA (TABLE CHAR CODE) (CHECK (type? CHARTABLE TABLE)) (* ; 
-"0 is REAL.CCE, NONE.TC, OTHER.RC") (COND ((ILEQ CHAR \MAXTHINCHAR) (\PUTBASEBYTE TABLE CHAR CODE)) (T
- (\SETFATSYNCODE TABLE CHAR CODE)))))
+(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| 
+(CHARTABLE NSCHARHASH) |of| TABLE) (GETHASH CHAR (|fetch| (CHARTABLE NSCHARHASH) |of| TABLE))) 0)) (T 
+(\\GETBASEBYTE TABLE CHAR)))))
+(PUTPROPS \\SETSYNCODE DMACRO (LAMBDA (TABLE CHAR CODE) (CHECK (|type?| CHARTABLE TABLE)) (* \; 
+"0 is REAL.CCE, NONE.TC, OTHER.RC") (COND ((ILEQ CHAR \\MAXTHINCHAR) (\\PUTBASEBYTE TABLE CHAR CODE)) 
+(T (\\SETFATSYNCODE TABLE CHAR CODE)))))
 (DATATYPE CHARTABLE ((CHARSET0 256 BYTE) (NSCHARHASH FULLPOINTER)))
 (RPAQQ CCECHOMODES (REAL.CCE IGNORE.CCE SIMULATE.CCE INDICATE.CCE))
 (RPAQQ REAL.CCE 0)
@@ -1374,16 +1416,16 @@ CTRLV.TC))
 (RPAQQ RETYPE.TC 4)
 (RPAQQ CTRLV.TC 5)
 (CONSTANTS NONE.TC EOL.TC CHARDELETE.TC WORDDELETE.TC WORDSEPR.TC LINEDELETE.TC RETYPE.TC CTRLV.TC)
-(ACCESSFNS TERMCODE ((CCECHO (LOGAND DATUM 24)) (TERMCLASS (LOGAND DATUM 7))) (* ; 
+(ACCESSFNS TERMCODE ((CCECHO (LOGAND DATUM 24)) (TERMCLASS (LOGAND DATUM 7))) (* \; 
 "We assume that values are appropriately shifted") (CREATE (LOGOR CCECHO TERMCLASS)))
 (DATATYPE TERMTABLEP (TERMSA RAISEFLG DELCHARECHO LINEDELETE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL (
-CONTROLFLG FLAG) (ECHOFLG FLAG)) TERMSA _ (create CHARTABLE))
-(PUTPROPS \GETREADMACRODEF MACRO ((C TBL) (GETHASH C (fetch READMACRODEFS of TBL))))
-(PUTPROPS \GTREADTABLE MACRO (ARGS (COND ((LITATOM (CAR ARGS)) (SUBPAIR (QUOTE (X . FLG)) ARGS (QUOTE 
-(SELECTQ X ((NIL T) (\DTEST *READTABLE* (QUOTE READTABLEP))) (\GTREADTABLE1 X . FLG))))) (T (QUOTE 
+CONTROLFLG FLAG) (ECHOFLG FLAG)) TERMSA _ (|create| CHARTABLE))
+(PUTPROPS \\GETREADMACRODEF MACRO ((C TBL) (GETHASH C (|fetch| READMACRODEFS |of| TBL))))
+(PUTPROPS \\GTREADTABLE MACRO (ARGS (COND ((LITATOM (CAR ARGS)) (SUBPAIR (QUOTE (X . FLG)) ARGS (QUOTE
+ (SELECTQ X ((NIL T) (\\DTEST *READTABLE* (QUOTE READTABLEP))) (\\GTREADTABLE1 X . FLG))))) (T (QUOTE 
 IGNOREMACRO)))))
-(PUTPROPS \GTREADTABLE1 DMACRO (ARGS (COND ((NULL (CDR ARGS)) (LIST (QUOTE \DTEST) (CAR ARGS) (QUOTE (
-QUOTE READTABLEP)))) (T (QUOTE IGNOREMACRO)))))
+(PUTPROPS \\GTREADTABLE1 DMACRO (ARGS (COND ((NULL (CDR ARGS)) (LIST (QUOTE \\DTEST) (CAR ARGS) (QUOTE
+ (QUOTE READTABLEP)))) (T (QUOTE IGNOREMACRO)))))
 (RPAQQ MACROBIT 8)
 (RPAQQ BREAKBIT 16)
 (RPAQQ STOPATOMBIT 32)
@@ -1438,552 +1480,567 @@ INNERESCAPEBIT 7)) (PACKAGEDELIM.RC (LOGOR ESCAPEBIT INNERESCAPEBIT 1)))
 MACROCONTEXT (LOGAND DATUM CONTEXTMASK)) (MACROP (BITTEST DATUM MACROBIT)) (WAKEUP (LOGAND DATUM 
 WAKEUPMASK)) (BREAK (BITTEST DATUM BREAKBIT))))
 (RECORD READMACRODEF (MACROTYPE . MACROFN))
-(DATATYPE READTABLEP ((READSA POINTER) (* ; "A CHARTABLE defining syntax of each char") (READMACRODEFS
- POINTER) (* ; "A hash table associating macro chars with macro definitions") (READMACROFLG FLAG) (* ;
- "True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)") (ESCAPEFLG 
-FLAG) (* ; 
+(DATATYPE READTABLEP ((READSA POINTER) (* \; "A CHARTABLE defining syntax of each char") (
+READMACRODEFS POINTER) (* \; "A hash table associating macro chars with macro definitions") (
+READMACROFLG FLAG) (* \; 
+"True if read macros are enabled (turned off by Interlisp's crufty READMACROS function)") (ESCAPEFLG 
+FLAG) (* \; 
 "True if the char(s) with escape syntax are enabled (turned off by Interlisp's crufty ESCAPE function)"
-) (COMMONLISP FLAG) (* ; 
+) (COMMONLISP FLAG) (* \; 
 "True if table is a Common Lisp read table and hence must obey Common Lisp syntax rules") (NUMBERBASE 
-BITS 5) (* ; "Not used") (CASEINSENSITIVE FLAG) (* ; 
+BITS 5) (* \; "Not used") (CASEINSENSITIVE FLAG) (* \; 
 "If true, unescaped lowercase chars are converted to uppercase in symbols") (COMMONNUMSYNTAX FLAG) (* 
-; 
+\; 
 "True if number notation includes Common Lisp numbers: rationals as a/b, and the dfls exponent markers"
-) (USESILPACKAGE FLAG) (* ; "If true, IL:READ ignores *PACKAGE* and reads in the IL package") (NIL 5 
-FLAG) (DISPATCHMACRODEFS POINTER) (* ; 
-"An a-list of dispatching macro char and its dispatch definitions") (HASHMACROCHAR BYTE) (* ; 
-"The character code used in this read table for the # dispatch macro") (ESCAPECHAR BYTE) (* ; 
-"The character code used in this read table for single escape") (MULTESCAPECHAR BYTE) (* ; 
-"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-Apr-2021 20:06:09"))
+) (USESILPACKAGE FLAG) (* \; "If true, IL:READ ignores *PACKAGE* and reads in the IL package") (NIL 5 
+FLAG) (DISPATCHMACRODEFS POINTER) (* \; 
+"An a-list of dispatching macro char and its dispatch definitions") (HASHMACROCHAR BYTE) (* \; 
+"The character code used in this read table for the # dispatch macro") (ESCAPECHAR BYTE) (* \; 
+"The character code used in this read table for single escape") (MULTESCAPECHAR BYTE) (* \; 
+"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 " 6-May-2021 15:25:40"))
 
-(DATATYPE STREAM ((* ;; 
+(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."
-) (COFFSET WORD) (* ; "Offset in CPPTR of next bin or bout") (CBUFSIZE WORD) (* ; 
-"Offset past last byte in that buffer") (PEEKEDCHARP FLAG) (* ; 
-"if true, PEEKEDCHAR contains value of recent call to unread-char") (ACCESSBITS BITS 3) (* ; 
-"What kind of access file is open for (read, write, append)") (CBUFPTR POINTER) (* ; 
-"Pointer to current buffer") (BYTESIZE BYTE) (* ; "Byte size of stream, always 8 for now") (CHARSET 
-BYTE) (* ; 
+) (COFFSET WORD) (* \; "Offset in CPPTR of next bin or bout") (CBUFSIZE WORD) (* \; 
+"Offset past last byte in that buffer") (PEEKEDCHARP FLAG) (* \; 
+"if true, PEEKEDCHAR contains value of recent call to unread-char") (ACCESSBITS BITS 3) (* \; 
+"What kind of access file is open for (read, write, append)") (CBUFPTR POINTER) (* \; 
+"Pointer to current buffer") (BYTESIZE BYTE) (* \; "Byte size of stream, always 8 for now") (CHARSET 
+BYTE) (* \; 
 "the current character set for this stream.  If 255, stream is not runcoded, so read-char consumes two bytes every time"
-) (PEEKEDCHAR WORD) (* ; "value of unread-char call") (CHARPOSITION WORD) (* ; "Used by POSITION etc."
-) (CBUFMAXSIZE WORD) (* ; "on output, the size of the physical buffer--can't extend beyond this") (* 
-;; "-------- Above fields (8 words) potentially known to microcode.  --------") (NONDEFAULTDATEFLG 
-FLAG) (REVALIDATEFLG FLAG) (MULTIBUFFERHINT FLAG) (* ; 
-"True if stream likes to read and write more than one buffer at a time") (USERCLOSEABLE FLAG) (* ; 
-"Can be closed by CLOSEF;  NIL for terminal, dribble...") (FULLFILENAME POINTER) (* ; 
-"Name by which file is known to user") (BINABLE FLAG) (* ; "BIN punts unless this bit on") (BOUTABLE 
-FLAG) (* ; "BOUT punts unless this bit on") (EXTENDABLE FLAG) (* ; 
-"BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512") (CBUFDIRTY FLAG) (* ; 
-"true if BOUT has sullied the current buffer") (DEVICE POINTER) (* ; "FDEV of this guy") (USERVISIBLE 
-FLAG) (* ; "Listed by OPENP;  NIL for terminal, dribble ...") (EOLCONVENTION BITS 2) (* ; 
-"End-of-line convention") (NOTXCCS FLAG) (* ; "True if the character encoding format is not XCCS.") (
-VALIDATION POINTER) (* ; 
+) (PEEKEDCHAR WORD) (* \; "value of unread-char call") (CHARPOSITION WORD) (* \; 
+"Used by POSITION etc.") (CBUFMAXSIZE WORD) (* \; 
+"on output, the size of the physical buffer--can't extend beyond this") (* |;;| 
+"-------- Above fields (8 words) potentially known to microcode.  --------") (NONDEFAULTDATEFLG FLAG) 
+(REVALIDATEFLG FLAG) (MULTIBUFFERHINT FLAG) (* \; 
+"True if stream likes to read and write more than one buffer at a time") (USERCLOSEABLE FLAG) (* \; 
+"Can be closed by CLOSEF;  NIL for terminal, dribble...") (FULLFILENAME POINTER) (* \; 
+"Name by which file is known to user") (BINABLE FLAG) (* \; "BIN punts unless this bit on") (BOUTABLE 
+FLAG) (* \; "BOUT punts unless this bit on") (EXTENDABLE FLAG) (* \; 
+"BOUT punts when COFFSET ge CBUFFSIZE unless this bit set and COFFSET lt 512") (CBUFDIRTY FLAG) (* \; 
+"true if BOUT has sullied the current buffer") (DEVICE POINTER) (* \; "FDEV of this guy") (USERVISIBLE
+ FLAG) (* \; "Listed by OPENP;  NIL for terminal, dribble ...") (EOLCONVENTION BITS 2) (* \; 
+"End-of-line convention") (NOTXCCS FLAG) (* \; "True if the character encoding format is not XCCS.") (
+VALIDATION POINTER) (* \; 
 "A number somehow identifying file, used to determine if file has changed in our absence") (CPAGE 
-POINTER) (* ; "CPAGE,,COFFSET constitutes current file pointer for most randaccess streams") (EPAGE 
-POINTER) (EOFFSET WORD) (* ; "Page, byte offset of eof") (LINELENGTH WORD) (* ; 
-"LINELENGTH of stream, or -1 for no line length") (* ;; "----Following are device-specific fields----"
-) (* ;; "Available for device-specific uses, NOT for application use.") (F1 POINTER) (F2 POINTER) (F3 
-POINTER) (F4 POINTER) (F5 POINTER) (FW6 WORD) (FW7 WORD) (FW8 WORD) (FW9 WORD) (F10 POINTER) (* ;; 
-"----Following only filled in for open streams----") (STRMBINFN POINTER) (* ; 
-"Either the BIN fn from the FDEV, or a trap") (STRMBOUTFN POINTER) (* ; 
-"Either the BIN fn from the FDEV, or a trap") (OUTCHARFN POINTER) (* ; 
-"Called by \OUTCHAR, the normal character printer.") (ENDOFSTREAMOP POINTER) (* ; 
-"Called if EOF and we try to read.") (OTHERPROPS POINTER) (* ; "PROP LIST for holding other info.") (
-IMAGEOPS POINTER) (* ; "Image operations vector") (IMAGEDATA POINTER) (* ; 
-"Image instance variables--format depends on IMAGEOPS value") (BUFFS POINTER) (* ; 
-"Buffer chain for pmapped streams") (MAXBUFFERS WORD) (* ; 
-"Max # of buffers the system will allocate.") (LASTCCODE WORD) (* ; 
+POINTER) (* \; "CPAGE,,COFFSET constitutes current file pointer for most randaccess streams") (EPAGE 
+POINTER) (EOFFSET WORD) (* \; "Page, byte offset of eof") (LINELENGTH WORD) (* \; 
+"LINELENGTH of stream, or -1 for no line length") (* |;;| 
+"----Following are device-specific fields----") (* |;;| 
+"Available for device-specific uses, NOT for application use.") (F1 POINTER) (F2 POINTER) (F3 POINTER)
+ (F4 POINTER) (F5 POINTER) (FW6 WORD) (FW7 WORD) (FW8 WORD) (FW9 WORD) (F10 POINTER) (* |;;| 
+"----Following only filled in for open streams----") (STRMBINFN POINTER) (* \; 
+"Either the BIN fn from the FDEV, or a trap") (STRMBOUTFN POINTER) (* \; 
+"Either the BIN fn from the FDEV, or a trap") (OUTCHARFN POINTER) (* \; 
+"Called by \\OUTCHAR, the normal character printer.") (ENDOFSTREAMOP POINTER) (* \; 
+"Called if EOF and we try to read.") (OTHERPROPS POINTER) (* \; "PROP LIST for holding other info.") (
+IMAGEOPS POINTER) (* \; "Image operations vector") (IMAGEDATA POINTER) (* \; 
+"Image instance variables--format depends on IMAGEOPS value") (BUFFS POINTER) (* \; 
+"Buffer chain for pmapped streams") (MAXBUFFERS WORD) (* \; 
+"Max # of buffers the system will allocate.") (LASTCCODE WORD) (* \; 
 "After READ, RATOM, etc, the charcode that will be returned (as a character) by LASTC.  If there is none, this field is 65535."
-) (EXTRASTREAMOP POINTER) (* ; "For use of applications programs, not devices") (INCCODEFN POINTER) (*
- ; "Set by \EXTERNALFORMAT") (PEEKCCODEFN POINTER) (BACKCHARFN POINTER)) (BLOCKRECORD STREAM ((NIL 2 
-WORD) (UCODEFLAGS1 BITS 1) (* ;; "respecification of access bits:") (RANDOMWRITEABLE FLAG) (* ; 
-"File open for output (access = OUTPUT or BOTH)") (APPENDABLE FLAG) (* ; 
-"File open for append (OUTPUT or APPEND or BOTH)") (READABLE FLAG) (* ; 
+) (EXTRASTREAMOP POINTER) (* \; "For use of applications programs, not devices") (INCCODEFN POINTER) (
+* \; "Set by \\EXTERNALFORMAT") (PEEKCCODEFN POINTER) (BACKCHARFN POINTER)) (BLOCKRECORD STREAM ((NIL 
+2 WORD) (UCODEFLAGS1 BITS 1) (* |;;| "respecification of access bits:") (RANDOMWRITEABLE FLAG) (* \; 
+"File open for output (access = OUTPUT or BOTH)") (APPENDABLE FLAG) (* \; 
+"File open for append (OUTPUT or APPEND or BOTH)") (READABLE FLAG) (* \; 
 "File open for read (READ or BOTH)") (NIL POINTER))) (BLOCKRECORD STREAM ((NIL 4 WORD) (NIL BITS 14) (
-* ;; "JIS character encoding format specific, overrides CHARSET field.") (IN.KANJIIN FLAG) (* ; 
-"True if input stream is in Kanji-in mode.") (OUT.KANJIIN FLAG) (* ; 
-"True if output stream is in Kanji-in mode."))) (ACCESSFNS STREAM ((ACCESS \GETACCESS \SETACCESS) (
-FULLNAME (OR (fetch (STREAM FULLFILENAME) of DATUM) DATUM)) (NAMEDP (AND (fetch (STREAM FULLFILENAME) 
-of DATUM) T)))) (ACCESSFNS STREAM (EXTERNALFORMAT (LISTGET (ffetch (STREAM OTHERPROPS) of DATUM) (
-QUOTE EXTERNALFORMAT)) (LET ((PROPS (ffetch (STREAM OTHERPROPS) of DATUM))) (freplace (STREAM NOTXCCS)
- of DATUM with T) (COND (PROPS (LISTPUT PROPS (QUOTE EXTERNALFORMAT) NEWVALUE)) (T (freplace (STREAM 
-OTHERPROPS) of DATUM with (LIST (QUOTE EXTERNALFORMAT) NEWVALUE)))) (freplace (STREAM OUTCHARFN) of 
-DATUM with (ffetch (EXTERNALFORMAT FILEOUTCHARFN) of NEWVALUE)) (AND (ffetch (EXTERNALFORMAT EOLVALID)
- of NEWVALUE) (freplace (STREAM EOLCONVENTION) of DATUM with (ffetch (EXTERNALFORMAT EOL) of NEWVALUE)
-))))) (ACCESSFNS STREAM (EXTERNALFORMAT.NAME (LISTGET (ffetch (STREAM OTHERPROPS) of DATUM) (QUOTE 
-EXTERNALFORMAT.NAME)) (LET ((PROPS (ffetch (STREAM OTHERPROPS) of DATUM)) (NAME (COND ((LITATOM 
-NEWVALUE) NEWVALUE) (T (MKATOM NEWVALUE))))) (freplace (STREAM NOTXCCS) of DATUM with T) (COND (PROPS 
-(LISTPUT PROPS (QUOTE EXTERNALFORMAT.NAME) NAME)) (T (freplace (STREAM OTHERPROPS) of DATUM with (LIST
- (QUOTE EXTERNALFORMAT.NAME) NAME))))))) (ACCESSFNS STREAM (FILEOUTCHARFN (ffetch (STREAM OUTCHARFN) 
-of DATUM))) (SYNONYM CBUFPTR (CPPTR)) USERCLOSEABLE _ T USERVISIBLE _ T ACCESSBITS _ NoBits CPAGE _ 0 
+* |;;| "JIS character encoding format specific, overrides CHARSET field.") (IN.KANJIIN FLAG) (* \; 
+"True if input stream is in Kanji-in mode.") (OUT.KANJIIN FLAG) (* \; 
+"True if output stream is in Kanji-in mode."))) (ACCESSFNS STREAM ((ACCESS \\GETACCESS \\SETACCESS) (
+FULLNAME (OR (|fetch| (STREAM FULLFILENAME) |of| DATUM) DATUM)) (NAMEDP (AND (|fetch| (STREAM 
+FULLFILENAME) |of| DATUM) T)))) (ACCESSFNS STREAM (EXTERNALFORMAT (LISTGET (|ffetch| (STREAM 
+OTHERPROPS) |of| DATUM) (QUOTE EXTERNALFORMAT)) (LET ((PROPS (|ffetch| (STREAM OTHERPROPS) |of| DATUM)
+)) (|freplace| (STREAM NOTXCCS) |of| DATUM |with| T) (COND (PROPS (LISTPUT PROPS (QUOTE EXTERNALFORMAT
+) NEWVALUE)) (T (|freplace| (STREAM OTHERPROPS) |of| DATUM |with| (LIST (QUOTE EXTERNALFORMAT) 
+NEWVALUE)))) (|freplace| (STREAM OUTCHARFN) |of| DATUM |with| (|ffetch| (EXTERNALFORMAT FILEOUTCHARFN)
+ |of| NEWVALUE)) (AND (|ffetch| (EXTERNALFORMAT EOLVALID) |of| NEWVALUE) (|freplace| (STREAM 
+EOLCONVENTION) |of| DATUM |with| (|ffetch| (EXTERNALFORMAT EOL) |of| NEWVALUE)))))) (ACCESSFNS STREAM 
+(EXTERNALFORMAT.NAME (LISTGET (|ffetch| (STREAM OTHERPROPS) |of| DATUM) (QUOTE EXTERNALFORMAT.NAME)) (
+LET ((PROPS (|ffetch| (STREAM OTHERPROPS) |of| DATUM)) (NAME (COND ((LITATOM NEWVALUE) NEWVALUE) (T (
+MKATOM NEWVALUE))))) (|freplace| (STREAM NOTXCCS) |of| DATUM |with| T) (COND (PROPS (LISTPUT PROPS (
+QUOTE EXTERNALFORMAT.NAME) NAME)) (T (|freplace| (STREAM OTHERPROPS) |of| DATUM |with| (LIST (QUOTE 
+EXTERNALFORMAT.NAME) NAME))))))) (ACCESSFNS STREAM (FILEOUTCHARFN (|ffetch| (STREAM OUTCHARFN) |of| 
+DATUM))) (SYNONYM CBUFPTR (CPPTR)) USERCLOSEABLE _ T USERVISIBLE _ T ACCESSBITS _ |NoBits| CPAGE _ 0 
 EPAGE _ 0 BUFFS _ NIL BYTESIZE _ 8 CBUFPTR _ NIL MAXBUFFERS _ (LET NIL (DECLARE (GLOBALVARS 
-\STREAM.DEFAULT.MAXBUFFERS)) \STREAM.DEFAULT.MAXBUFFERS) CHARPOSITION _ 0 LINELENGTH _ (LET NIL (
-DECLARE (GLOBALVARS FILELINELENGTH)) FILELINELENGTH) OUTCHARFN _ (FUNCTION \FILEOUTCHARFN) 
-ENDOFSTREAMOP _ (FUNCTION \EOSERROR) IMAGEOPS _ \NOIMAGEOPS EOLCONVENTION _ LF.EOLC STRMBINFN _ (
-FUNCTION \STREAM.NOT.OPEN) STRMBOUTFN _ (FUNCTION \STREAM.NOT.OPEN) LASTCCODE _ 65535 NOTXCCS _ NIL)
+\\STREAM.DEFAULT.MAXBUFFERS)) \\STREAM.DEFAULT.MAXBUFFERS) CHARPOSITION _ 0 LINELENGTH _ (LET NIL (
+DECLARE (GLOBALVARS FILELINELENGTH)) FILELINELENGTH) OUTCHARFN _ (FUNCTION \\FILEOUTCHARFN) 
+ENDOFSTREAMOP _ (FUNCTION \\EOSERROR) IMAGEOPS _ \\NOIMAGEOPS EOLCONVENTION _ LF.EOLC STRMBINFN _ (
+FUNCTION \\STREAM.NOT.OPEN) STRMBOUTFN _ (FUNCTION \\STREAM.NOT.OPEN) LASTCCODE _ 65535 NOTXCCS _ NIL)
 (PUTPROPS STREAMOP MACRO (ARGS (CONS (QUOTE SPREADAPPLY*) (CONS (COND ((EQ (CAR (LISTP (CAR ARGS))) (
-QUOTE QUOTE)) (LIST (QUOTE fetch) (CADAR ARGS) (QUOTE of) (CADR ARGS))) (T (HELP 
+QUOTE QUOTE)) (LIST (QUOTE |fetch|) (CADAR ARGS) (QUOTE |of|) (CADR ARGS))) (T (HELP 
 "STREAMOP - OPNAME not quoted:" ARGS))) (CDDR ARGS)))))
-(RPAQQ AppendBit 2)
-(RPAQQ NoBits 0)
-(RPAQQ ReadBit 1)
-(RPAQQ WriteBit 4)
-(RPAQ OutputBits (LOGOR AppendBit WriteBit))
-(RPAQ BothBits (LOGOR ReadBit OutputBits))
-(RPAQQ \NORUNCODE 255)
-(CONSTANTS AppendBit NoBits ReadBit WriteBit (OutputBits (LOGOR AppendBit WriteBit)) (BothBits (LOGOR 
-ReadBit OutputBits)) \NORUNCODE)
-(PUTPROPS TestMasked MACRO ((BITS MASK) (NEQ (LOGAND BITS MASK) 0)))
-(PUTPROPS APPENDABLE MACRO ((STREAM) (TestMasked (fetch ACCESSBITS of STREAM) AppendBit)))
-(PUTPROPS APPENDONLY MACRO ((STREAM) (EQ (fetch ACCESSBITS of STREAM) AppendBit)))
-(PUTPROPS DIRTYABLE MACRO ((STREAM) (TestMasked (fetch ACCESSBITS of STREAM) (CONSTANT (LOGOR 
-AppendBit WriteBit)))))
-(PUTPROPS OPENED MACRO ((STREAM) (NEQ (fetch ACCESSBITS of STREAM) NoBits)))
-(PUTPROPS OVERWRITEABLE MACRO ((STREAM) (TestMasked (fetch ACCESSBITS of STREAM) WriteBit)))
-(PUTPROPS READABLE MACRO ((STREAM) (TestMasked (fetch ACCESSBITS of STREAM) ReadBit)))
-(PUTPROPS READONLY MACRO ((STREAM) (EQ (fetch ACCESSBITS of STREAM) ReadBit)))
-(PUTPROPS WRITEABLE MACRO ((STREAM) (OR (OVERWRITEABLE STREAM) (AND (APPENDABLE STREAM) (\EOFP STREAM)
-))))
-(PUTPROPS \RUNCODED MACRO (OPENLAMBDA (STREAM) (* ;; 
+(RPAQQ |AppendBit| 2)
+(RPAQQ |NoBits| 0)
+(RPAQQ |ReadBit| 1)
+(RPAQQ |WriteBit| 4)
+(RPAQ |OutputBits| (LOGOR |AppendBit| |WriteBit|))
+(RPAQ |BothBits| (LOGOR |ReadBit| |OutputBits|))
+(RPAQQ \\NORUNCODE 255)
+(CONSTANTS |AppendBit| |NoBits| |ReadBit| |WriteBit| (|OutputBits| (LOGOR |AppendBit| |WriteBit|)) (
+|BothBits| (LOGOR |ReadBit| |OutputBits|)) \\NORUNCODE)
+(PUTPROPS |TestMasked| MACRO ((BITS MASK) (NEQ (LOGAND BITS MASK) 0)))
+(PUTPROPS APPENDABLE MACRO ((STREAM) (|TestMasked| (|fetch| ACCESSBITS |of| STREAM) |AppendBit|)))
+(PUTPROPS APPENDONLY MACRO ((STREAM) (EQ (|fetch| ACCESSBITS |of| STREAM) |AppendBit|)))
+(PUTPROPS DIRTYABLE MACRO ((STREAM) (|TestMasked| (|fetch| ACCESSBITS |of| STREAM) (CONSTANT (LOGOR 
+|AppendBit| |WriteBit|)))))
+(PUTPROPS OPENED MACRO ((STREAM) (NEQ (|fetch| ACCESSBITS |of| STREAM) |NoBits|)))
+(PUTPROPS OVERWRITEABLE MACRO ((STREAM) (|TestMasked| (|fetch| ACCESSBITS |of| STREAM) |WriteBit|)))
+(PUTPROPS READABLE MACRO ((STREAM) (|TestMasked| (|fetch| ACCESSBITS |of| STREAM) |ReadBit|)))
+(PUTPROPS READONLY MACRO ((STREAM) (EQ (|fetch| ACCESSBITS |of| STREAM) |ReadBit|)))
+(PUTPROPS WRITEABLE MACRO ((STREAM) (OR (OVERWRITEABLE STREAM) (AND (APPENDABLE STREAM) (\\EOFP STREAM
+)))))
+(PUTPROPS \\RUNCODED MACRO (OPENLAMBDA (STREAM) (* |;;| 
 "returns NIL is the stream is not runcoded, that is, if the stream has 16 bit bytes explicitly represented"
-) (* ; "note that neq is ok since charsets are known to be SMALLP's") (NEQ (fetch CHARSET of STREAM) 
-\NORUNCODE)))
+) (* \; "note that neq is ok since charsets are known to be SMALLP's") (NEQ (|fetch| CHARSET |of| 
+STREAM) \\NORUNCODE)))
 (RPAQQ EOLCONVENTIONS ((CR.EOLC 0) (LF.EOLC 1) (CRLF.EOLC 2)))
 (RPAQQ CR.EOLC 0)
 (RPAQQ LF.EOLC 1)
 (RPAQQ CRLF.EOLC 2)
 (CONSTANTS (CR.EOLC 0) (LF.EOLC 1) (CRLF.EOLC 2))
 (PUTPROPS FDEVOP DMACRO (ARGS (LET ((OPNAME (CAR ARGS)) (METHOD-DEVICE (CADR ARGS)) (TAIL (CDDR ARGS))
-) (COND ((AND (LISTP OPNAME) (EQ (CAR OPNAME) (QUOTE QUOTE))) (BQUOTE (SPREADAPPLY* (fetch (FDEV (\, (
-CADR OPNAME))) of (\, METHOD-DEVICE)) (\,@ TAIL)))) (T (ERROR "OPNAME not quoted: " OPNAME))))))
-(PUTPROPS \RECOGNIZE-HACK DMACRO (ARGS (LET ((NAME (CAR ARGS)) (RECOG (CADR ARGS)) (DEVICE (CADDR ARGS
-))) (BQUOTE (if (type? STREAM (\, NAME)) then (\, NAME) else (FDEVOP (QUOTE GETFILENAME) (\, DEVICE) (
-\, NAME) (\, RECOG) (\, DEVICE)))))))
-(DATATYPE FDEV ((RESETABLE FLAG) (* ; "Obsolete") (RANDOMACCESSP FLAG) (NODIRECTORIES FLAG) (
-PAGEMAPPED FLAG) (* ; "True if i/o handled by pmap routines") (FDBINABLE FLAG) (* ; 
+) (COND ((AND (LISTP OPNAME) (EQ (CAR OPNAME) (QUOTE QUOTE))) (BQUOTE (SPREADAPPLY* (|fetch| (FDEV (
+\\\, (CADR OPNAME))) |of| (\\\, METHOD-DEVICE)) (\\\,@ TAIL)))) (T (ERROR "OPNAME not quoted: " OPNAME
+))))))
+(PUTPROPS \\RECOGNIZE-HACK DMACRO (ARGS (LET ((NAME (CAR ARGS)) (RECOG (CADR ARGS)) (DEVICE (CADDR 
+ARGS))) (BQUOTE (|if| (|type?| STREAM (\\\, NAME)) |then| (\\\, NAME) |else| (FDEVOP (QUOTE 
+GETFILENAME) (\\\, DEVICE) (\\\, NAME) (\\\, RECOG) (\\\, DEVICE)))))))
+(DATATYPE FDEV ((RESETABLE FLAG) (* \; "Obsolete") (RANDOMACCESSP FLAG) (NODIRECTORIES FLAG) (
+PAGEMAPPED FLAG) (* \; "True if i/o handled by pmap routines") (FDBINABLE FLAG) (* \; 
 "Copied as a microcode flag for INPUT streams formed on this device") (FDBOUTABLE FLAG) (FDEXTENDABLE 
-FLAG) (BUFFERED FLAG) (* ; 
+FLAG) (BUFFERED FLAG) (* \; 
 "True implies that the device supports the BIN & BOUT uCode conventions, and implements the GETNEXTBUFFER method"
-) (DEVICENAME POINTER) (* ; "Identifying name somehow") (REMOTEP FLAG) (* ; 
-"true if device not local to machine") (SUBDIRECTORIES FLAG) (* ; 
-"true if device has real subdirectories") (INPUT-INDIRECTED FLAG) (* ; 
+) (DEVICENAME POINTER) (* \; "Identifying name somehow") (REMOTEP FLAG) (* \; 
+"true if device not local to machine") (SUBDIRECTORIES FLAG) (* \; 
+"true if device has real subdirectories") (INPUT-INDIRECTED FLAG) (* \; 
 "True for devices that indirect their input stream.  Method INPUTSTREAM fetches it") (
-OUTPUT-INDIRECTED FLAG) (* ; 
+OUTPUT-INDIRECTED FLAG) (* \; 
 "True for devices that indirect their output stream.  Method OUTPUTSTREAM fetches it") (DEVICEINFO 
-POINTER) (* ; "arbitrary device-specific info stored here") (OPENFILELST POINTER) (* ; 
-"Default place to keep list of streams open on this device") (* ;; 
-"-----Rest of record consists of device %"methods%"-----") (* ;; 
-"-----Following fields required of all devices-----") (HOSTNAMEP POINTER) (* ; 
+POINTER) (* \; "arbitrary device-specific info stored here") (OPENFILELST POINTER) (* \; 
+"Default place to keep list of streams open on this device") (* |;;| 
+"-----Rest of record consists of device \"methods\"-----") (* |;;| 
+"-----Following fields required of all devices-----") (HOSTNAMEP POINTER) (* \; 
 "(hostname {device}) => T if hostname is valid.  If device is given, return a FDEV for this {new} host, or T to use existing device"
-) (EVENTFN POINTER) (* ; "(device event), called before/after logout, sysout, makesys") (* ;; 
+) (EVENTFN POINTER) (* \; "(device event), called before/after logout, sysout, makesys") (* |;;| 
 "-----Following fields required of all named devices, e.g., ones that open files-----") (
-DIRECTORYNAMEP POINTER) (* ; "(host/dir) => true if directory exists on host") (OPENFILE POINTER) (* ;
- "(name access recog otherinfo device) => new stream open on this device, or NIL if name not found") (
-CLOSEFILE POINTER) (* ; "(stream) => closes stream, returns it") (REOPENFILE POINTER) (* ; 
+DIRECTORYNAMEP POINTER) (* \; "(host/dir) => true if directory exists on host") (OPENFILE POINTER) (* 
+\; "(name access recog otherinfo device) => new stream open on this device, or NIL if name not found")
+ (CLOSEFILE POINTER) (* \; "(stream) => closes stream, returns it") (REOPENFILE POINTER) (* \; 
 "(name access recog otherinfo device stream) like openfile, but called after logout to revalidate file, so optionally uses info in old stream to keep this opening like the previous"
-) (GETFILENAME POINTER) (* ; "(name recog device) => full file name") (DELETEFILE POINTER) (* ; 
+) (GETFILENAME POINTER) (* \; "(name recog device) => full file name") (DELETEFILE POINTER) (* \; 
 "(name) => deletes file so named, returning name, or NIL on failure.  RECOG=OLDEST") (GENERATEFILES 
-POINTER) (* ; 
+POINTER) (* \; 
 "(device pattern) => generator object for files matching pattern.  Car of object is generator function, cdr is arbitrary state.  Generator fn returns next file, or NIL when finished"
-) (RENAMEFILE POINTER) (* ; 
+) (RENAMEFILE POINTER) (* \; 
 "(olddevice oldfile newdevice newfile) to rename file on this (olddevice) to a potentially different device."
-) (OPENP POINTER) (* ; 
+) (OPENP POINTER) (* \; 
 "(name access dev) => stream if name is open for access, or all open streams if name = NIL") (
-REGISTERFILE POINTER) (* ; "(stream dev) => registers stream on its device") (UNREGISTERFILE POINTER) 
-(* ; "(stream dev) => unregisters a stream from its device") (FREEPAGECOUNT POINTER) (* ; 
-"(host/dir dev) => # of free pages on host/dir") (MAKEDIRECTORY POINTER) (* ; "(host/dir dev)") (
-CHECKFILENAME POINTER) (* ; "(name dev) => name if it is well-formed file name for dev") (HOSTALIVEP 
-POINTER) (* ; 
+REGISTERFILE POINTER) (* \; "(stream dev) => registers stream on its device") (UNREGISTERFILE POINTER)
+ (* \; "(stream dev) => unregisters a stream from its device") (FREEPAGECOUNT POINTER) (* \; 
+"(host/dir dev) => # of free pages on host/dir") (MAKEDIRECTORY POINTER) (* \; "(host/dir dev)") (
+CHECKFILENAME POINTER) (* \; "(name dev) => name if it is well-formed file name for dev") (HOSTALIVEP 
+POINTER) (* \; 
 "(host dev) => true if host is alive, i.e., responsive;  only defined if REMOTEP is true") (
-BREAKCONNECTION POINTER) (* ; "(host fastp dev) => closes connections to host") (* ;; 
-"-----The following are required methods for operating on open streams-----") (BIN POINTER) (* ; 
-"(stream) => next byte of input") (BOUT POINTER) (* ; "(stream byte) output byte to stream") (PEEKBIN 
-POINTER) (* ; "(stream) => next byte without advancing position in stream") (READCHAR POINTER) (* ; 
-"(stream) => next input char") (WRITECHAR POINTER) (* ; "(stream char) => writes char to stream") (
-PEEKCHAR POINTER) (UNREADCHAR POINTER) (READP POINTER) (* ; 
-"(stream flag) => T if there is input available from stream right now") (EOFP POINTER) (* ; 
-"(stream) => T if BIN would signal eof.") (BLOCKIN POINTER) (* ; "(stream buffer byteoffset nbytes)") 
-(BLOCKOUT POINTER) (* ; "(stream buffer byteoffset nbytes)") (FORCEOUTPUT POINTER) (* ; 
+BREAKCONNECTION POINTER) (* \; "(host fastp dev) => closes connections to host") (* |;;| 
+"-----The following are required methods for operating on open streams-----") (BIN POINTER) (* \; 
+"(stream) => next byte of input") (BOUT POINTER) (* \; "(stream byte) output byte to stream") (PEEKBIN
+ POINTER) (* \; "(stream) => next byte without advancing position in stream") (READCHAR POINTER) (* \;
+ "(stream) => next input char") (WRITECHAR POINTER) (* \; "(stream char) => writes char to stream") (
+PEEKCHAR POINTER) (UNREADCHAR POINTER) (READP POINTER) (* \; 
+"(stream flag) => T if there is input available from stream right now") (EOFP POINTER) (* \; 
+"(stream) => T if BIN would signal eof.") (BLOCKIN POINTER) (* \; "(stream buffer byteoffset nbytes)")
+ (BLOCKOUT POINTER) (* \; "(stream buffer byteoffset nbytes)") (FORCEOUTPUT POINTER) (* \; 
 "(stream waitForFinish) flushes out to device anything that is buffered awaiting transmission") (
-GETFILEINFO POINTER) (* ; 
+GETFILEINFO POINTER) (* \; 
 "(stream/name attribute device) => value of attribute for open stream or name of closed file") (
-SETFILEINFO POINTER) (* ; 
+SETFILEINFO POINTER) (* \; 
 "(stream/name attribute newvalue device) sets attribute of open stream or closed file of given name") 
-(CHARSETFN POINTER) (* ; 
+(CHARSETFN POINTER) (* \; 
 "(stream charset) => access function for the charset slot, for benefit of indirect streams.  See IMCHARSET for changing it on a file."
-) (INPUTSTREAM POINTER) (* ; "(stream) => indirected input stream") (OUTPUTSTREAM POINTER) (* ; 
-"(stream) => indirected output stream") (* ;; 
+) (INPUTSTREAM POINTER) (* \; "(stream) => indirected input stream") (OUTPUTSTREAM POINTER) (* \; 
+"(stream) => indirected output stream") (* |;;| 
 "-----Following are required of random-access streams-----") (GETFILEPTR POINTER) (GETEOFPTR POINTER) 
-(SETFILEPTR POINTER) (BACKFILEPTR POINTER) (* ; 
+(SETFILEPTR POINTER) (BACKFILEPTR POINTER) (* \; 
 "(stream) backs up `fileptr' by one.  Stream is only required to be able to do this once, i.e.  one-character buffer suffices"
-) (SETEOFPTR POINTER) (* ; "(stream length) => truncates or lengthens stream to indicated length") (
-LASTC POINTER) (* ; "Should be possible only if RANDOMACCESSP") (* ;; 
-"-----Following used for buffered streams-----") (GETNEXTBUFFER POINTER) (* ; 
+) (SETEOFPTR POINTER) (* \; "(stream length) => truncates or lengthens stream to indicated length") (
+LASTC POINTER) (* \; "Should be possible only if RANDOMACCESSP") (* |;;| 
+"-----Following used for buffered streams-----") (GETNEXTBUFFER POINTER) (* \; 
 "(stream whatfor noerrorflg) => Disposes of current buffer and optionally reads next.  whatfor is READ or WRITE.  Can cause EOF error unless noerrorflg"
-) (RELEASEBUFFER POINTER) (* ; "(stream) => Does whatever appropriate when CBUFPTR is released") (* ;;
- "-----Following used for pagemapped streams-----") (READPAGES POINTER) (* ; 
+) (RELEASEBUFFER POINTER) (* \; "(stream) => Does whatever appropriate when CBUFPTR is released") (* 
+|;;| "-----Following used for pagemapped streams-----") (READPAGES POINTER) (* \; 
 "(stream firstpage# buflist) => # of bytes read, starting at firstpage#, reading into buflist, a list of buffers or a single buffer (the usual case)"
-) (WRITEPAGES POINTER) (* ; 
+) (WRITEPAGES POINTER) (* \; 
 "(stream firstpage# buflist) writes from buflist to stream starting at firstpage# of stream") (
-TRUNCATEFILE POINTER) (* ; 
-"(stream page offset) make stream's eof be at page,offset, discarding anything after it") (* ;; 
-"-----For window system, argh-----") (WINDOWOPS POINTER) (* ; "window system operations") (WINDOWDATA 
-POINTER) (* ; "data for window systems") (* ;; 
-"-----For any stream (here to not recompile everything)-----") (READCHARCODE POINTER) (* ; 
+TRUNCATEFILE POINTER) (* \; 
+"(stream page offset) make stream's eof be at page,offset, discarding anything after it") (* |;;| 
+"-----For window system, argh-----") (WINDOWOPS POINTER) (* \; "window system operations") (WINDOWDATA
+ POINTER) (* \; "data for window systems") (* |;;| 
+"-----For any stream (here to not recompile everything)-----") (READCHARCODE POINTER) (* \; 
 "Read a character code from the stream (cf BIN for bytes).")) DIRECTORYNAMEP _ (FUNCTION NILL) 
-HOSTNAMEP _ (FUNCTION NILL) READP _ (FUNCTION \GENERIC.READP) SETFILEPTR _ (FUNCTION 
-\IS.NOT.RANDACCESSP) GETFILEPTR _ (FUNCTION \ILLEGAL.DEVICEOP) GETEOFPTR _ (FUNCTION 
-\IS.NOT.RANDACCESSP) EOFP _ (FUNCTION \ILLEGAL.DEVICEOP) BLOCKIN _ (FUNCTION \GENERIC.BINS) BLOCKOUT _
- (FUNCTION \GENERIC.BOUTS) RENAMEFILE _ (FUNCTION \GENERIC.RENAMEFILE) FORCEOUTPUT _ (FUNCTION NILL) 
-REGISTERFILE _ (FUNCTION NILL) OPENP _ (FUNCTION NILL) UNREGISTERFILE _ (FUNCTION NILL) READCHAR _ (
-FUNCTION \GENERIC.READCHAR) WRITECHAR _ (FUNCTION \GENERIC.WRITECHAR) PEEKCHAR _ (FUNCTION 
-\GENERIC.PEEKCHAR) UNREADCHAR _ (FUNCTION \GENERIC.UNREADCHAR) CHARSETFN _ (FUNCTION \GENERIC.CHARSET)
- BREAKCONNECTION _ (FUNCTION NILL) READCHARCODE _ (FUNCTION \GENERIC.READCCODE))
+HOSTNAMEP _ (FUNCTION NILL) READP _ (FUNCTION \\GENERIC.READP) SETFILEPTR _ (FUNCTION 
+\\IS.NOT.RANDACCESSP) GETFILEPTR _ (FUNCTION \\ILLEGAL.DEVICEOP) GETEOFPTR _ (FUNCTION 
+\\IS.NOT.RANDACCESSP) EOFP _ (FUNCTION \\ILLEGAL.DEVICEOP) BLOCKIN _ (FUNCTION \\GENERIC.BINS) 
+BLOCKOUT _ (FUNCTION \\GENERIC.BOUTS) RENAMEFILE _ (FUNCTION \\GENERIC.RENAMEFILE) FORCEOUTPUT _ (
+FUNCTION NILL) REGISTERFILE _ (FUNCTION NILL) OPENP _ (FUNCTION NILL) UNREGISTERFILE _ (FUNCTION NILL)
+ READCHAR _ (FUNCTION \\GENERIC.READCHAR) WRITECHAR _ (FUNCTION \\GENERIC.WRITECHAR) PEEKCHAR _ (
+FUNCTION \\GENERIC.PEEKCHAR) UNREADCHAR _ (FUNCTION \\GENERIC.UNREADCHAR) CHARSETFN _ (FUNCTION 
+\\GENERIC.CHARSET) BREAKCONNECTION _ (FUNCTION NILL) READCHARCODE _ (FUNCTION \\GENERIC.READCCODE))
 (RECORD FILEGENOBJ (NEXTFILEFN FILEINFOFN . GENFILESTATE))
-(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* ; 
+(DATATYPE EXTERNALFORMAT ((EOLVALID FLAG) (* \; 
 "If true, the value of EOL field will replace the EOLCONVENTION field of the resulted stream.") (EOL 
-BITS 2) (NIL BITS 1) (INCCODEFN POINTER) (* ; "Called with two arguments -- STREAM and COUNTP") (
-PEEKCCODEFN POINTER) (* ; "Called with three arguments -- STREAM, NOERROR and COUNTP") (BACKCHARFN 
-POINTER) (* ; "Called with two arguments -- STREAM and COUNTP") (FILEOUTCHARFN POINTER) (* ; 
-"Called with two arguments -- STREAM and CHARCODE") (NAME POINTER) (* ; 
-"keyword name of this format, provided to \INSTALL.EXTERNALFORMAT")) EOLVALID _ NIL)
-(PUTPROPS \OUTCHAR DMACRO (OPENLAMBDA (STREAM CHARCODE) (STREAMOP (QUOTE OUTCHARFN) STREAM STREAM 
+BITS 2) (NIL BITS 1) (INCCODEFN POINTER) (* \; "Called with two arguments -- STREAM and COUNTP") (
+PEEKCCODEFN POINTER) (* \; "Called with three arguments -- STREAM, NOERROR and COUNTP") (BACKCHARFN 
+POINTER) (* \; "Called with two arguments -- STREAM and COUNTP") (FILEOUTCHARFN POINTER) (* \; 
+"Called with two arguments -- STREAM and CHARCODE") (NAME POINTER) (* \; 
+"keyword name of this format, provided to \\INSTALL.EXTERNALFORMAT")) EOLVALID _ NIL)
+(PUTPROPS \\OUTCHAR DMACRO (OPENLAMBDA (STREAM CHARCODE) (STREAMOP (QUOTE OUTCHARFN) STREAM STREAM 
 CHARCODE)))
-(PUTPROPS \DEVICE-OPEN-STREAMS MACRO (ARGS (LET ((DEVICE (CAR ARGS))) (BQUOTE (FDEVOP (QUOTE OPENP) (
-\, DEVICE) NIL NIL (\, DEVICE))))))
-(PUTPROPS \CONVERT-PATHNAME DMACRO (OPENLAMBDA (PATHNAME?) (* ;; 
+(PUTPROPS \\DEVICE-OPEN-STREAMS MACRO (ARGS (LET ((DEVICE (CAR ARGS))) (BQUOTE (FDEVOP (QUOTE OPENP) (
+\\\, DEVICE) NIL NIL (\\\, DEVICE))))))
+(PUTPROPS \\CONVERT-PATHNAME DMACRO (OPENLAMBDA (PATHNAME?) (* |;;| 
 "Coerce pathnames to Interlisp strings, for the benefit of antediluvian Interlisp-D file fns") (
 CL:TYPECASE PATHNAME? (PATHNAME (INTERLISP-NAMESTRING PATHNAME?)) (T PATHNAME?))))
 (DEFOPTIMIZER ACCESS-CHARSET (STREAM &OPTIONAL NEWVALUE) (BQUOTE ((OPENLAMBDA (STRM) (FDEVOP (QUOTE 
-CHARSETFN) (fetch (STREAM DEVICE) of STRM) STRM (\, NEWVALUE))) (\, STREAM))))
-(PUTPROPS \DECFILEPTR MACRO ((STREAM X) (\INCFILEPTR STREAM (IMINUS X))))
-(PUTPROPS \GETFILEPTR MACRO (OPENLAMBDA (STRM) (FDEVOP (QUOTE GETFILEPTR) (fetch DEVICE of STRM) STRM)
-))
-(PUTPROPS \SIGNEDWIN MACRO ((STREAM) (SIGNED (\WIN STREAM) BITSPERWORD)))
-(PUTPROPS \SIGNEDWOUT MACRO ((STREAM N) (\WOUT STREAM (UNSIGNED N BITSPERWORD))))
-(PUTPROPS \WIN MACRO (OPENLAMBDA (STREAM) (create WORD HIBYTE _ (\BIN STREAM) LOBYTE _ (\BIN STREAM)))
-)
-(PUTPROPS \WOUT MACRO (OPENLAMBDA (STREAM W) (\BOUT STREAM (fetch HIBYTE of W)) (\BOUT STREAM (fetch 
-LOBYTE of W))))
-(PUTPROPS \BINS BYTEMACRO (OPENLAMBDA (STRM BASE OFF NBYTES) (FDEVOP (QUOTE BLOCKIN) (fetch (STREAM 
-DEVICE) of STRM) STRM BASE OFF NBYTES)))
-(PUTPROPS \BOUTS BYTEMACRO (OPENLAMBDA (STRM BASE OFF NBYTES) (FDEVOP (QUOTE BLOCKOUT) (fetch (STREAM 
-DEVICE) of STRM) STRM BASE OFF NBYTES)))
-(PUTPROPS \EOFP BYTEMACRO (OPENLAMBDA (STRM) (FDEVOP (QUOTE EOFP) (fetch (STREAM DEVICE) of STRM) STRM
-)))
+CHARSETFN) (|fetch| (STREAM DEVICE) |of| STRM) STRM (\\\, NEWVALUE))) (\\\, STREAM))))
+(PUTPROPS \\DECFILEPTR MACRO ((STREAM X) (\\INCFILEPTR STREAM (IMINUS X))))
+(PUTPROPS \\GETFILEPTR MACRO (OPENLAMBDA (STRM) (FDEVOP (QUOTE GETFILEPTR) (|fetch| DEVICE |of| STRM) 
+STRM)))
+(PUTPROPS \\SIGNEDWIN MACRO ((STREAM) (SIGNED (\\WIN STREAM) BITSPERWORD)))
+(PUTPROPS \\SIGNEDWOUT MACRO ((STREAM N) (\\WOUT STREAM (UNSIGNED N BITSPERWORD))))
+(PUTPROPS \\WIN MACRO (OPENLAMBDA (STREAM) (|create| WORD HIBYTE _ (\\BIN STREAM) LOBYTE _ (\\BIN 
+STREAM))))
+(PUTPROPS \\WOUT MACRO (OPENLAMBDA (STREAM W) (\\BOUT STREAM (|fetch| HIBYTE |of| W)) (\\BOUT STREAM (
+|fetch| LOBYTE |of| W))))
+(PUTPROPS \\BINS BYTEMACRO (OPENLAMBDA (STRM BASE OFF NBYTES) (FDEVOP (QUOTE BLOCKIN) (|fetch| (STREAM
+ DEVICE) |of| STRM) STRM BASE OFF NBYTES)))
+(PUTPROPS \\BOUTS BYTEMACRO (OPENLAMBDA (STRM BASE OFF NBYTES) (FDEVOP (QUOTE BLOCKOUT) (|fetch| (
+STREAM DEVICE) |of| STRM) STRM BASE OFF NBYTES)))
+(PUTPROPS \\EOFP BYTEMACRO (OPENLAMBDA (STRM) (FDEVOP (QUOTE EOFP) (|fetch| (STREAM DEVICE) |of| STRM)
+ STRM)))
 (PUTPROPS SIZE.FROM.LENGTH MACRO (LAMBDA (LEN) (DECLARE (LOCALVARS LEN)) (AND LEN (FOLDHI LEN 
 BYTESPERPAGE))))
-(RPAQQ BitsPerByte 8)
-(RPAQ ByteOffsetSize (SELECTQ (SYSTEMTYPE) (VAX 10) 9))
-(RPAQQ WordsPerPage 256)
-(CONSTANTS BitsPerByte (ByteOffsetSize (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) WordsPerPage)
-(RPAQ \MAXFILEPTR (SUB1 (LLSH 1 30)))
-(CONSTANTS (\MAXFILEPTR (SUB1 (LLSH 1 30))))
+(RPAQQ |BitsPerByte| 8)
+(RPAQ |ByteOffsetSize| (SELECTQ (SYSTEMTYPE) (VAX 10) 9))
+(RPAQQ |WordsPerPage| 256)
+(CONSTANTS |BitsPerByte| (|ByteOffsetSize| (SELECTQ (SYSTEMTYPE) (VAX 10) 9)) |WordsPerPage|)
+(RPAQ \\MAXFILEPTR (SUB1 (LLSH 1 30)))
+(CONSTANTS (\\MAXFILEPTR (SUB1 (LLSH 1 30))))
 (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) 
+(FIXP DATUM) (IGEQ DATUM 0) (ILEQ DATUM \\MAXFILEPTR))) (CREATE (IPLUS (UNFOLD PAGE BYTESPERPAGE) 
 OFFSET)))
-(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(BLOCKRECORD FIXP ((HINUM WORD) (LONUM WORD)) (CREATE (CREATECELL \FIXP)) (TYPE? (EQ (NTYPX DATUM) 
-\FIXP)))
+(BLOCKRECORD FIXP ((HINUM WORD) (LONUM WORD)) (CREATE (CREATECELL \\FIXP)) (TYPE? (EQ (NTYPX DATUM) 
+\\FIXP)))
 (RPAQQ MAX.SMALL.INTEGER 65535)
 (RPAQQ MAX.POS.HINUM 32767)
 (CONSTANTS (MAX.SMALL.INTEGER 65535) (MAX.POS.HINUM 32767))
 (PUTPROPS .UNBOX. MACRO (ARGS (LET ((ARG-FORM (CAR ARGS)) (HIGH-VAR (CADR ARGS)) (LOW-VAR (CADDR ARGS)
-) (BIGNUM-FORM (CADDDR ARGS))) (BQUOTE (PROG NIL UBLP (SELECTC (NTYPX (\, ARG-FORM)) (\FIXP (SETQ (\, 
-HIGH-VAR) (ffetch (FIXP HINUM) of (\, ARG-FORM))) (SETQ (\, LOW-VAR) (ffetch (FIXP LONUM) of (\, 
-ARG-FORM)))) (\SMALLP (COND ((ILEQ 0 (\, ARG-FORM)) (SETQ (\, HIGH-VAR) 0) (SETQ (\, LOW-VAR) (\, 
-ARG-FORM))) (T (SETQ (\, HIGH-VAR) 65535) (SETQ (\, LOW-VAR) (\LOLOC (\, ARG-FORM)))))) (\FLOATP (SETQ
- (\, ARG-FORM) (\FIXP.FROM.FLOATP (\, ARG-FORM))) (GO UBLP)) (COND ((TYPENAMEP (\, ARG-FORM) (QUOTE 
-RATIO)) (SETQ (\, ARG-FORM) (IQUOTIENT (CL::RATIO-NUMERATOR (\, ARG-FORM)) (CL::RATIO-DENOMINATOR (\, 
-ARG-FORM)))) (GO UBLP)) (\,@ (COND (BIGNUM-FORM (BQUOTE (((CL:INTEGERP (\, ARG-FORM)) (\, BIGNUM-FORM)
-)))) (T (BQUOTE (((CL:INTEGERP (\, ARG-FORM)) (\ILLEGAL.ARG (\, ARG-FORM)))))))) (T (
-CL::%%NOT-NONCOMPLEX-NUMBER-ERROR (\, ARG-FORM))))))))))
+) (BIGNUM-FORM (CADDDR ARGS))) (BQUOTE (PROG NIL UBLP (SELECTC (NTYPX (\\\, ARG-FORM)) (\\FIXP (SETQ (
+\\\, HIGH-VAR) (|ffetch| (FIXP HINUM) |of| (\\\, ARG-FORM))) (SETQ (\\\, LOW-VAR) (|ffetch| (FIXP 
+LONUM) |of| (\\\, ARG-FORM)))) (\\SMALLP (COND ((ILEQ 0 (\\\, ARG-FORM)) (SETQ (\\\, HIGH-VAR) 0) (
+SETQ (\\\, LOW-VAR) (\\\, ARG-FORM))) (T (SETQ (\\\, HIGH-VAR) 65535) (SETQ (\\\, LOW-VAR) (\\LOLOC (
+\\\, ARG-FORM)))))) (\\FLOATP (SETQ (\\\, ARG-FORM) (\\FIXP.FROM.FLOATP (\\\, ARG-FORM))) (GO UBLP)) (
+COND ((TYPENAMEP (\\\, ARG-FORM) (QUOTE RATIO)) (SETQ (\\\, ARG-FORM) (IQUOTIENT (CL::RATIO-NUMERATOR 
+(\\\, ARG-FORM)) (CL::RATIO-DENOMINATOR (\\\, ARG-FORM)))) (GO UBLP)) (\\\,@ (COND (BIGNUM-FORM (
+BQUOTE (((CL:INTEGERP (\\\, ARG-FORM)) (\\\, BIGNUM-FORM))))) (T (BQUOTE (((CL:INTEGERP (\\\, ARG-FORM
+)) (\\ILLEGAL.ARG (\\\, ARG-FORM)))))))) (T (CL::%NOT-NONCOMPLEX-NUMBER-ERROR (\\\, ARG-FORM))))))))))
 (PUTPROPS .NEGATE. MACRO ((HY LY) (COND ((EQ 0 LY) (AND (NEQ HY 0) (SETQ HY (ADD1 (IDIFFERENCE 
 MAX.SMALL.INTEGER HY))))) (T (SETQ HY (IDIFFERENCE MAX.SMALL.INTEGER HY)) (SETQ LY (ADD1 (IDIFFERENCE 
 MAX.SMALL.INTEGER LY)))))))
-(PUTPROPS .LLSH1. MACRO ((HI LO) (* ; "shift the pair left one, assuming no overflow") (SETQ HI (LLSH 
-HI 1)) (SETQ LO (LLSH (COND ((IGREATERP LO MAX.POS.HINUM) (add HI 1) (LOGAND LO MAX.POS.HINUM)) (T LO)
-) 1))))
+(PUTPROPS .LLSH1. MACRO ((HI LO) (* \; "shift the pair left one, assuming no overflow") (SETQ HI (LLSH
+ HI 1)) (SETQ LO (LLSH (COND ((IGREATERP LO MAX.POS.HINUM) (|add| HI 1) (LOGAND LO MAX.POS.HINUM)) (T 
+LO)) 1))))
 (PUTPROPS .LRSH1. MACRO ((HI LO) (SETQ LO (LRSH LO 1)) (COND ((NEQ (LOGAND HI 1) 0) (SETQ LO (IPLUS LO
- \SIGNBIT)))) (SETQ HI (LRSH HI 1))))
-(PUTPROPS .BOXIPLUS. MACRO (OPENLAMBDA (X Y) (PROG ((HX (\GETBASE X 0)) (LX (\GETBASE X 1)) HY LY) (
+ \\SIGNBIT)))) (SETQ HI (LRSH HI 1))))
+(PUTPROPS .BOXIPLUS. MACRO (OPENLAMBDA (X Y) (PROG ((HX (\\GETBASE X 0)) (LX (\\GETBASE X 1)) HY LY) (
 .UNBOX. Y HY LY) (SETQ HX (COND ((IGREATERP HX (IDIFFERENCE MAX.SMALL.INTEGER HY)) (IDIFFERENCE HX (
-ADD1 (IDIFFERENCE MAX.SMALL.INTEGER HY)))) (T (IPLUS HX HY)))) (* Add high parts) (\PUTBASE X 1 (COND 
-((IGREATERP LX (IDIFFERENCE MAX.SMALL.INTEGER LY)) (* Carry into high part.) (SETQ HX (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-Apr-2021 20:06:09"))
+ADD1 (IDIFFERENCE MAX.SMALL.INTEGER HY)))) (T (IPLUS HX HY)))) (* |Add| |high| |parts|) (\\PUTBASE X 1
+ (COND ((IGREATERP LX (IDIFFERENCE MAX.SMALL.INTEGER LY)) (* |Carry| |into| |high| |part.|) (SETQ HX (
+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 " 6-May-2021 15:25:40"))
 
-(PUTPROPS POLYEVAL DMACRO ((X COEFFS DEGREE) (* ; 
-"execute the POLYEVAL opcode on the value X, the array COEFFS with degree DEGREE") (\FLOATBOX ((
-OPCODES UBFLOAT3 0) (\FLOATUNBOX X) (fetch (ARRAYP BASE) of COEFFS) DEGREE))))
+(PUTPROPS POLYEVAL DMACRO ((X COEFFS DEGREE) (* \; 
+"execute the POLYEVAL opcode on the value X, the array COEFFS with degree DEGREE") (\\FLOATBOX ((
+OPCODES UBFLOAT3 0) (\\FLOATUNBOX X) (|fetch| (ARRAYP BASE) |of| COEFFS) DEGREE))))
 (BLOCKRECORD FLOATP ((SIGNBIT BITS 1) (EXPONENT BITS 8) (HIFRACTION BITS 7) (LOFRACTION BITS 16)) (
 BLOCKRECORD FLOATP ((HIWORD WORD) (LOWORD WORD))) (BLOCKRECORD FLOATP ((NIL BITS 9) (LONGFRACTION BITS
  23))) (BLOCKRECORD FLOATP ((FLOATCONTENTS BITS 32))) (BLOCKRECORD FLOATP ((NIL BITS 1) (
-HIWORDNOSIGNBIT BITS 15))) (CREATE (\FLOATBOX (\VAG2 (LOGOR (LLSH SIGNBIT (PLUS 7 8)) (LLSH EXPONENT 7
-) HIFRACTION) LOFRACTION))) LOFRACTION _ 0 HIFRACTION _ 0 EXPONENT _ 0 SIGNBIT _ 0 (ACCESSFNS FLOATP (
-(EXP (LOGAND (LRSH (\HILOC (\FLOATUNBOX DATUM)) 7) 255)) (HIFRAC (LOGAND (\HILOC (\FLOATUNBOX DATUM)) 
-127)))))
+HIWORDNOSIGNBIT BITS 15))) (CREATE (\\FLOATBOX (\\VAG2 (LOGOR (LLSH SIGNBIT (PLUS 7 8)) (LLSH EXPONENT
+ 7) HIFRACTION) LOFRACTION))) LOFRACTION _ 0 HIFRACTION _ 0 EXPONENT _ 0 SIGNBIT _ 0 (ACCESSFNS FLOATP
+ ((EXP (LOGAND (LRSH (\\HILOC (\\FLOATUNBOX DATUM)) 7) 255)) (HIFRAC (LOGAND (\\HILOC (\\FLOATUNBOX 
+DATUM)) 127)))))
 (RPAQQ MAX.DIGITS.ACCURACY 9)
 (CONSTANTS (MAX.DIGITS.ACCURACY 9))
-(PUTPROPS \CALLER.ARGS MACRO (X (LET ((ARGS (CAR X)) (FORMS (CDR X))) (BQUOTE (PROGN (\SLOWRETURN) (
-LET ((AL (\MYALINK)) NEXT (\,@ (for VAR in ARGS collect (COND ((LISTP VAR) (LIST (CAR VAR) 0)) (T VAR)
-)))) (DECLARE (\,@ (for VAR in ARGS when (LISTP VAR) collect (BQUOTE (TYPE (\, (SELECTQ (CADR VAR) ((
-FLOATING FLOATP) (CADR VAR)) (HELP))) (\, (CAR VAR))))))) (SETQ NEXT (fetch (FX NEXTBLOCK) of AL)) (
-\,@ (for X in (REVERSE ARGS) collect (LET ((FORMS (BQUOTE (\.GETBASE32 \STACKSPACE (SETQ NEXT (
-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 "27-Apr-2021 20:06:09"))
+(PUTPROPS \\CALLER.ARGS MACRO (X (LET ((ARGS (CAR X)) (FORMS (CDR X))) (BQUOTE (PROGN (\\SLOWRETURN) (
+LET ((AL (\\MYALINK)) NEXT (\\\,@ (|for| VAR |in| ARGS |collect| (COND ((LISTP VAR) (LIST (CAR VAR) 0)
+) (T VAR))))) (DECLARE (\\\,@ (|for| VAR |in| ARGS |when| (LISTP VAR) |collect| (BQUOTE (TYPE (\\\, (
+SELECTQ (CADR VAR) ((FLOATING FLOATP) (CADR VAR)) (HELP))) (\\\, (CAR VAR))))))) (SETQ NEXT (|fetch| (
+FX NEXTBLOCK) |of| AL)) (\\\,@ (|for| X |in| (REVERSE ARGS) |collect| (LET ((FORMS (BQUOTE (
+\\.GETBASE32 \\STACKSPACE (SETQ NEXT (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 " 6-May-2021 15:25:40"))
 
 (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 (
 LIST (QUOTE FONTHEIGHT) (CAR ARGS))) (QUOTE IGNOREMACRO)))
 (DATATYPE FONTCLASS ((PRETTYFONT# BYTE) DISPLAYFD PRESSFD INTERPRESSFD OTHERFDS FONTCLASSNAME))
 (DATATYPE FONTDESCRIPTOR ((FONTDEVICE POINTER) (FONTFAMILY POINTER) (FONTSIZE POINTER) (FONTFACE 
-POINTER) (\SFAscent WORD) (\SFDescent WORD) (\SFHeight WORD) (ROTATION WORD) (FBBOX SIGNEDWORD) (FBBOY
- SIGNEDWORD) (FBBDX SIGNEDWORD) (FBBDY SIGNEDWORD) (\SFLKerns POINTER) (\SFRWidths POINTER) (
-FONTDEVICESPEC POINTER) (* ; 
+POINTER) (|\\SFAscent| WORD) (|\\SFDescent| WORD) (|\\SFHeight| WORD) (ROTATION WORD) (FBBOX 
+SIGNEDWORD) (FBBOY SIGNEDWORD) (FBBDX SIGNEDWORD) (FBBDY SIGNEDWORD) (|\\SFLKerns| POINTER) (
+|\\SFRWidths| POINTER) (FONTDEVICESPEC POINTER) (* \; 
 "Holds the spec by which the font is known to the printing device, if coercion has been done") (
-OTHERDEVICEFONTPROPS POINTER) (* ; "For individual devices to hang special information") (FONTSCALE 
-POINTER) (\SFFACECODE BITS 8) (FONTAVGCHARWIDTH WORD) (* ; 
+OTHERDEVICEFONTPROPS POINTER) (* \; "For individual devices to hang special information") (FONTSCALE 
+POINTER) (\\SFFACECODE BITS 8) (FONTAVGCHARWIDTH WORD) (* \; 
 "Set in FONTCREATE, used to fix up the linelength when DSPFONT is called") (FONTIMAGEWIDTHS POINTER) (
-* ; 
+* \; 
 "This is the image width, as opposed to the advanced width;  initial hack for accents, kerning.  Fields is referenced by FONTCREATE."
-) (FONTCHARSETVECTOR POINTER) (* ; 
+) (FONTCHARSETVECTOR POINTER) (* \; 
 "A 256-pointer block, with one pointer per 'character set' --each group of 256 character codes.  Each pointer is either NIL if there's no info for that charset, or is a CHARSETINFO, containing widths, char bitmap, etc for the characters in that charset."
-) (FONTEXTRAFIELD2 POINTER)) FONTCHARSETVECTOR _ (\CREATEFONTCHARSETVECTOR))
+) (FONTEXTRAFIELD2 POINTER)) FONTCHARSETVECTOR _ (\\CREATEFONTCHARSETVECTOR))
 (RECORD FONTFACE (WEIGHT SLOPE EXPANSION) (ACCESSFNS ((COLOR (CDDDR DATUM) (RPLACD (CDDR DATUM) 
 NEWVALUE)) (BACKCOLOR (COND ((CDDDR DATUM) (CAR (CDDDR DATUM)))) (PROGN (COND ((NULL (CDDDR DATUM)) (
 RPLACD (CDDR DATUM) (LIST NIL NIL)))) (RPLACA (CDDDR DATUM) NEWVALUE))) (FORECOLOR (COND ((CDDDR DATUM
 ) (CADR (CDDDR DATUM)))) (PROGN (COND ((NULL (CDDDR DATUM)) (RPLACD (CDDR DATUM) (LIST NIL NIL)))) (
 RPLACA (CDR (CDDDR DATUM)) NEWVALUE))))) WEIGHT _ (QUOTE MEDIUM) SLOPE _ (QUOTE REGULAR) EXPANSION _ (
 QUOTE REGULAR) (TYPE? LISTP))
-(DATATYPE CHARSETINFO (WIDTHS (* ; 
+(DATATYPE CHARSETINFO (WIDTHS (* \; 
 "The advance-width of each character, an array indexed by charcode.  Usually the same as the imagewidth, but can differ for accents, kerns kerns.  This is what should be used for stringwidth calculations."
-) OFFSETS (* ; "Offset of each character into the image bitmap;  X value of left edge") IMAGEWIDTHS (*
- ; "imagewidths is not automagically allocated since it is not always needed") CHARSETBITMAP (* ; 
-"Bitmap containing the character images, indexed by OFFSETS") YWIDTHS (CHARSETASCENT WORD) (* ; 
-"Max ascent for all characters in this CHARSET") (CHARSETDESCENT WORD) (* ; 
-"Max descent for all characters in this CHARSET") LEFTKERN) WIDTHS _ (\CREATECSINFOELEMENT) OFFSETS _ 
-(\CREATECSINFOELEMENT))
-(PUTPROPS FONTASCENT MACRO ((FONTSPEC) (ffetch \SFAscent of (\GETFONTDESC FONTSPEC))))
-(PUTPROPS FONTDESCENT MACRO ((FONTSPEC) (ffetch \SFDescent of (\GETFONTDESC FONTSPEC))))
-(PUTPROPS FONTHEIGHT MACRO ((FONTSPEC) (ffetch \SFHeight of (\GETFONTDESC FONTSPEC))))
-(PUTPROPS \FGETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE) (\GETBASE OFFSETSBLOCK CHAR8CODE)))
-(PUTPROPS \FSETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE OFFSET) (\PUTBASE OFFSETSBLOCK CHAR8CODE OFFSET)
-))
-(PUTPROPS \FGETWIDTH DMACRO ((WIDTHSBLOCK CHAR8CODE) (\GETBASE WIDTHSBLOCK CHAR8CODE)))
-(PUTPROPS \FSETWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) (\PUTBASE WIDTHSBLOCK INDEX WIDTH)))
-(PUTPROPS \FGETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE) (\FGETWIDTH (ffetch (CHARSETINFO WIDTHS
-) of (\GETCHARSETINFO (\CHARSET CHARCODE) FONTDESC)) (\CHAR8CODE CHARCODE))))
-(PUTPROPS \FSETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE WIDTH) (\FSETWIDTH (ffetch (CHARSETINFO 
-WIDTHS) of (\GETCHARSETINFO (\CHARSET CHARCODE) FONTDESC)) (\CHAR8CODE CHARCODE) WIDTH)))
-(PUTPROPS \FGETIMAGEWIDTH MACRO ((IMAGEWIDTHSBLOCK CHAR8CODE) (\GETBASE IMAGEWIDTHSBLOCK CHAR8CODE)))
-(PUTPROPS \FSETIMAGEWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) (\PUTBASE WIDTHSBLOCK INDEX WIDTH)))
-(PUTPROPS \GETCHARSETINFO MACRO ((CHARSET FONTDESC NOSLUG?) (* ;; 
-"fetches the charsetinfo for charset CHARSET in fontdescriptor FONTDESC.  If NIL, then creates the required charset."
-) (* ;; 
-"NOSLUG?  means don't create an empty (slug) csinfo if the charset is not found, just return NIL") (OR
- (\GETBASEPTR (ffetch FONTCHARSETVECTOR of FONTDESC) (UNFOLD CHARSET 2)) (\CREATECHARSET CHARSET 
-FONTDESC NOSLUG?))))
-(PUTPROPS \CREATECSINFOELEMENT MACRO (NIL (\ALLOCBLOCK (FOLDHI (IPLUS \MAXTHINCHAR 3) WORDSPERCELL))))
-(PUTPROPS \CREATEFONTCHARSETVECTOR MACRO (NIL (* ; "Allocates a block for the character set records") 
-(\ALLOCBLOCK (ADD1 \MAXCHARSET) T)))
-(DEFMACRO \CREATEKERNELEMENT NIL (BQUOTE (CL:MAKE-ARRAY (IPLUS \MAXTHINCHAR 3) :ELEMENT-TYPE (QUOTE (
-SIGNED-BYTE 16)) :INITIAL-ELEMENT 0)))
-(DEFMACRO \FSETLEFTKERN (LEFTKERNBLOCK INDEX KERNVALUE) (BQUOTE (CL:SETF (CL:AREF (\, LEFTKERNBLOCK) (
-\, INDEX)) (\, KERNVALUE))))
-(DEFMACRO \FGETLEFTKERN (LEFTKERNBLOCK CHAR8CODE) (BQUOTE (CL:AREF (\, LEFTKERNBLOCK) (\, CHAR8CODE)))
+) OFFSETS (* \; "Offset of each character into the image bitmap;  X value of left edge") IMAGEWIDTHS (
+* \; "imagewidths is not automagically allocated since it is not always needed") CHARSETBITMAP (* \; 
+"Bitmap containing the character images, indexed by OFFSETS") YWIDTHS (CHARSETASCENT WORD) (* \; 
+"Max ascent for all characters in this CHARSET") (CHARSETDESCENT WORD) (* \; 
+"Max descent for all characters in this CHARSET") LEFTKERN) WIDTHS _ (\\CREATECSINFOELEMENT) OFFSETS _
+ (\\CREATECSINFOELEMENT))
+(PUTPROPS FONTASCENT MACRO ((FONTSPEC) (|ffetch| |\\SFAscent| |of| (\\GETFONTDESC FONTSPEC))))
+(PUTPROPS FONTDESCENT MACRO ((FONTSPEC) (|ffetch| |\\SFDescent| |of| (\\GETFONTDESC FONTSPEC))))
+(PUTPROPS FONTHEIGHT MACRO ((FONTSPEC) (|ffetch| |\\SFHeight| |of| (\\GETFONTDESC FONTSPEC))))
+(PUTPROPS \\FGETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE) (\\GETBASE OFFSETSBLOCK CHAR8CODE)))
+(PUTPROPS \\FSETOFFSET DMACRO ((OFFSETSBLOCK CHAR8CODE OFFSET) (\\PUTBASE OFFSETSBLOCK CHAR8CODE 
+OFFSET)))
+(PUTPROPS \\FGETWIDTH DMACRO ((WIDTHSBLOCK CHAR8CODE) (\\GETBASE WIDTHSBLOCK CHAR8CODE)))
+(PUTPROPS \\FSETWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) (\\PUTBASE WIDTHSBLOCK INDEX WIDTH)))
+(PUTPROPS \\FGETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE) (\\FGETWIDTH (|ffetch| (CHARSETINFO 
+WIDTHS) |of| (\\GETCHARSETINFO (\\CHARSET CHARCODE) FONTDESC)) (\\CHAR8CODE CHARCODE))))
+(PUTPROPS \\FSETCHARWIDTH MACRO (OPENLAMBDA (FONTDESC CHARCODE WIDTH) (\\FSETWIDTH (|ffetch| (
+CHARSETINFO WIDTHS) |of| (\\GETCHARSETINFO (\\CHARSET CHARCODE) FONTDESC)) (\\CHAR8CODE CHARCODE) 
+WIDTH)))
+(PUTPROPS \\FGETIMAGEWIDTH MACRO ((IMAGEWIDTHSBLOCK CHAR8CODE) (\\GETBASE IMAGEWIDTHSBLOCK CHAR8CODE))
 )
-(RPAQQ \MAXNSCHAR 65535)
-(CONSTANTS (\MAXNSCHAR 65535))
-(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+(PUTPROPS \\FSETIMAGEWIDTH DMACRO ((WIDTHSBLOCK INDEX WIDTH) (\\PUTBASE WIDTHSBLOCK INDEX WIDTH)))
+(PUTPROPS \\GETCHARSETINFO MACRO ((CHARSET FONTDESC NOSLUG?) (* |;;| 
+"fetches the charsetinfo for charset CHARSET in fontdescriptor FONTDESC.  If NIL, then creates the required charset."
+) (* |;;| 
+"NOSLUG?  means don't create an empty (slug) csinfo if the charset is not found, just return NIL") (OR
+ (\\GETBASEPTR (|ffetch| FONTCHARSETVECTOR |of| FONTDESC) (UNFOLD CHARSET 2)) (\\CREATECHARSET CHARSET
+ FONTDESC NOSLUG?))))
+(PUTPROPS \\CREATECSINFOELEMENT MACRO (NIL (\\ALLOCBLOCK (FOLDHI (IPLUS \\MAXTHINCHAR 3) WORDSPERCELL)
+)))
+(PUTPROPS \\CREATEFONTCHARSETVECTOR MACRO (NIL (* \; "Allocates a block for the character set records"
+) (\\ALLOCBLOCK (ADD1 \\MAXCHARSET) T)))
+(DEFMACRO \\CREATEKERNELEMENT NIL (BQUOTE (CL:MAKE-ARRAY (IPLUS \\MAXTHINCHAR 3) :ELEMENT-TYPE (QUOTE 
+(SIGNED-BYTE 16)) :INITIAL-ELEMENT 0)))
+(DEFMACRO \\FSETLEFTKERN (LEFTKERNBLOCK INDEX KERNVALUE) (BQUOTE (CL:SETF (CL:AREF (\\\, LEFTKERNBLOCK
+) (\\\, INDEX)) (\\\, KERNVALUE))))
+(DEFMACRO \\FGETLEFTKERN (LEFTKERNBLOCK CHAR8CODE) (BQUOTE (CL:AREF (\\\, LEFTKERNBLOCK) (\\\, 
+CHAR8CODE))))
+(RPAQQ \\MAXNSCHAR 65535)
+(CONSTANTS (\\MAXNSCHAR 65535))
+(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(BLOCKRECORD KEYACTION ((* ;; 
+(BLOCKRECORD KEYACTION ((* |;;| 
 "KEYACTION Table:  For interpreting keystrokes.  Stored as a 8-cell block of untyped pointer hunk storage."
-) FLAGS (* ; 
+) FLAGS (* \; 
 "Flag byte per key# (one for down-transtion, 1 for up-.) to describe whether lockshifting occrrs, you ignore the transition, etc."
-) CODES (* ; "Table of character codes generated by each key when no shift key is pressed.") 
-SHIFTCODES (* ; "Table of character codes generated by each key when the shift key is pressed.") ARMED
- (* ; "Not sure...") INTERRUPTLIST (* ; "List of armed interrupts?") ALTGRAPHCODES (* ; 
-"Table of codes to be generated when the ALT-GRAPH key is pressed.") DEADKEYLIST (* ; 
-"Block of dead-key handlers, with the nominal up-transition fields filled by the shifted-case tables.  Each %"table%" is an ALIST of orignal code => accented code.  no entry means punt the accent.."
-)) FLAGS _ (\ALLOCBLOCK (FOLDHI (IPLUS \NKEYS \NKEYS) BYTESPERCELL)) CODES _ (\ALLOCBLOCK (FOLDHI (
-PLUS \NKEYS \NKEYS) WORDSPERCELL)) SHIFTCODES _ (\ALLOCBLOCK (FOLDHI (PLUS \NKEYS \NKEYS) WORDSPERCELL
-)) ARMED _ (\ALLOCBLOCK (FOLDHI (ADD1 \MAXTHINCHAR) BITSPERCELL)) ALTGRAPHCODES _ (\ALLOCBLOCK (FOLDHI
- (PLUS \NKEYS \NKEYS) WORDSPERCELL)) DEADKEYLIST _ (\ALLOCBLOCK (PLUS \NKEYS \NKEYS \NKEYS \NKEYS) T) 
-(CREATE (\ALLOCBLOCK 7 PTRBLOCK.GCT)) (TYPE? (AND (\BLOCKDATAP DATUM) (IGEQ (\#BLOCKDATACELLS DATUM) 5
-) (OR (NULL (FETCH (KEYACTION INTERRUPTLIST) OF DATUM)) (LISTP (FETCH INTERRUPTLIST OF DATUM))) (
-\BLOCKDATAP (FETCH (KEYACTION FLAGS) DATUM)) (\BLOCKDATAP (FETCH (KEYACTION CODES) DATUM)) (
-\BLOCKDATAP (FETCH (KEYACTION ARMED) DATUM)))))
-(RPAQQ \NKEYS 112)
-(CONSTANTS \NKEYS)
-(DEFOPTIMIZER KEYDOWNP (KEYNAME) (BQUOTE (\NEWKEYDOWNP (\KEYNAMETONUMBER (\, KEYNAME)))))
-(PUTPROPS XKEYDOWNP MACRO ((KEYNAME) (KEYDOWNP1 (\KEYNAMETONUMBER KEYNAME))))
-(PUTPROPS KEYDOWNP1 MACRO (OPENLAMBDA (KEYNUMBER) (DECLARE (GLOBALVARS \EM.KBDAD0 \EM.KBDAD1 
-\EM.KBDAD2 \EM.KBDAD3 \EM.UTILIN \EM.KBDAD4 \EM.KBDAD5)) (PROG NIL (RETURN (EQ 0 (LOGAND (LRSH (LLSH 1
- 15) (PROGN (* (IMOD KEYNUMBER BITSPERWORD) - GETD cause IMOD and BITSPERWORD not exported to user) (
-LOGAND KEYNUMBER 15))) (\GETBASE (SELECTQ (PROGN (* (FOLDLO KEYNUMBER BITSPERWORD) GETD follows since 
-FOLDLO and BITSPERWORD not exported to user) (LRSH KEYNUMBER 4)) (0 \EM.KBDAD0) (1 \EM.KBDAD1) (2 
-\EM.KBDAD2) (3 \EM.KBDAD3) (4 \EM.UTILIN) (5 (OR \EM.KBDAD4 (RETURN))) (6 (OR \EM.KBDAD5 (RETURN))) (
-RETURN)) 0)))))))
-(PUTPROPS \NEWKEYDOWNP MACRO ((KEYNUMBER) (EQ 0 (\GETBASEBIT \LASTKEYSTATE KEYNUMBER))))
-(GLOBALVARS \KEYBOARD.DEVICE \KEYBOARD.STREAM)
+) CODES (* \; "Table of character codes generated by each key when no shift key is pressed.") 
+SHIFTCODES (* \; "Table of character codes generated by each key when the shift key is pressed.") 
+ARMED (* \; "Not sure...") INTERRUPTLIST (* \; "List of armed interrupts?") ALTGRAPHCODES (* \; 
+"Table of codes to be generated when the ALT-GRAPH key is pressed.") DEADKEYLIST (* \; 
+"Block of dead-key handlers, with the nominal up-transition fields filled by the shifted-case tables.  Each \"table\" is an ALIST of orignal code => accented code.  no entry means punt the accent.."
+)) FLAGS _ (\\ALLOCBLOCK (FOLDHI (IPLUS \\NKEYS \\NKEYS) BYTESPERCELL)) CODES _ (\\ALLOCBLOCK (FOLDHI 
+(PLUS \\NKEYS \\NKEYS) WORDSPERCELL)) SHIFTCODES _ (\\ALLOCBLOCK (FOLDHI (PLUS \\NKEYS \\NKEYS) 
+WORDSPERCELL)) ARMED _ (\\ALLOCBLOCK (FOLDHI (ADD1 \\MAXTHINCHAR) BITSPERCELL)) ALTGRAPHCODES _ (
+\\ALLOCBLOCK (FOLDHI (PLUS \\NKEYS \\NKEYS) WORDSPERCELL)) DEADKEYLIST _ (\\ALLOCBLOCK (PLUS \\NKEYS 
+\\NKEYS \\NKEYS \\NKEYS) T) (CREATE (\\ALLOCBLOCK 7 PTRBLOCK.GCT)) (TYPE? (AND (\\BLOCKDATAP DATUM) (
+IGEQ (\\#BLOCKDATACELLS DATUM) 5) (OR (NULL (FETCH (KEYACTION INTERRUPTLIST) OF DATUM)) (LISTP (FETCH 
+INTERRUPTLIST OF DATUM))) (\\BLOCKDATAP (FETCH (KEYACTION FLAGS) DATUM)) (\\BLOCKDATAP (FETCH (
+KEYACTION CODES) DATUM)) (\\BLOCKDATAP (FETCH (KEYACTION ARMED) DATUM)))))
+(RPAQQ \\NKEYS 112)
+(CONSTANTS \\NKEYS)
+(DEFOPTIMIZER KEYDOWNP (KEYNAME) (BQUOTE (\\NEWKEYDOWNP (\\KEYNAMETONUMBER (\\\, KEYNAME)))))
+(PUTPROPS XKEYDOWNP MACRO ((KEYNAME) (KEYDOWNP1 (\\KEYNAMETONUMBER KEYNAME))))
+(PUTPROPS KEYDOWNP1 MACRO (OPENLAMBDA (KEYNUMBER) (DECLARE (GLOBALVARS \\EM.KBDAD0 \\EM.KBDAD1 
+\\EM.KBDAD2 \\EM.KBDAD3 \\EM.UTILIN \\EM.KBDAD4 \\EM.KBDAD5)) (PROG NIL (RETURN (EQ 0 (LOGAND (LRSH (
+LLSH 1 15) (PROGN (* (IMOD KEYNUMBER BITSPERWORD) - GETD |cause| IMOD |and| BITSPERWORD |not| 
+|exported| |to| |user|) (LOGAND KEYNUMBER 15))) (\\GETBASE (SELECTQ (PROGN (* (FOLDLO KEYNUMBER 
+BITSPERWORD) GETD |follows| |since| FOLDLO |and| BITSPERWORD |not| |exported| |to| |user|) (LRSH 
+KEYNUMBER 4)) (0 \\EM.KBDAD0) (1 \\EM.KBDAD1) (2 \\EM.KBDAD2) (3 \\EM.KBDAD3) (4 \\EM.UTILIN) (5 (OR 
+\\EM.KBDAD4 (RETURN))) (6 (OR \\EM.KBDAD5 (RETURN))) (RETURN)) 0)))))))
+(PUTPROPS \\NEWKEYDOWNP MACRO ((KEYNUMBER) (EQ 0 (\\GETBASEBIT \\LASTKEYSTATE KEYNUMBER))))
+(GLOBALVARS \\KEYBOARD.DEVICE \\KEYBOARD.STREAM)
 (RPAQQ HARDCURSORHEIGHT 16)
 (RPAQQ HARDCURSORWIDTH 16)
 (CONSTANTS (HARDCURSORHEIGHT 16) (HARDCURSORWIDTH 16))
 (ADDTOVAR GLOBALVARS LASTMOUSEX LASTMOUSEY LASTSCREEN LASTMOUSEBUTTONS LASTMOUSETIME LASTKEYBOARD)
-(PUTPROPS \SETMOUSEXY MACRO ((XPOS YPOS) (PROGN (SELECTC \MACHINETYPE (\DAYBREAK (
-\DoveMisc.SetMousePosition XPOS YPOS)) (\MAIKO (SUBRCALL SETMOUSEXY XPOS YPOS)) (\DANDELION (do (PROGN
- (replace (IOPAGE NEWMOUSEX) of \IOPAGE with XPOS) (replace (IOPAGE NEWMOUSEY) of \IOPAGE with YPOS)) 
-repeatuntil (ILESSP (fetch (IOPAGE NEWMOUSESTATE) of \IOPAGE) 32768)) (* ; 
-"smash position until mouse says it is not busy") (replace (IOPAGE NEWMOUSEX) of \IOPAGE with XPOS) (
-replace (IOPAGE NEWMOUSEY) of \IOPAGE with YPOS) (replace (IOPAGE NEWMOUSESTATE) of \IOPAGE with 32768
-)) NIL) (PROGN (\PUTBASE \EM.MOUSEX 0 XPOS) (\PUTBASE \EM.MOUSEY 0 YPOS)))))
-(GLOBALVARS \EM.MOUSEX \EM.MOUSEY \EM.CURSORX \EM.CURSORY \EM.UTILIN \EM.REALUTILIN \EM.KBDAD0 
-\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-Apr-2021 20:06:09"))
+(PUTPROPS \\SETMOUSEXY MACRO ((XPOS YPOS) (PROGN (SELECTC \\MACHINETYPE (\\DAYBREAK (
+|\\DoveMisc.SetMousePosition| XPOS YPOS)) (\\MAIKO (SUBRCALL SETMOUSEXY XPOS YPOS)) (\\DANDELION (|do|
+ (PROGN (|replace| (IOPAGE NEWMOUSEX) |of| \\IOPAGE |with| XPOS) (|replace| (IOPAGE NEWMOUSEY) |of| 
+\\IOPAGE |with| YPOS)) |repeatuntil| (ILESSP (|fetch| (IOPAGE NEWMOUSESTATE) |of| \\IOPAGE) 32768)) (*
+ \; "smash position until mouse says it is not busy") (|replace| (IOPAGE NEWMOUSEX) |of| \\IOPAGE 
+|with| XPOS) (|replace| (IOPAGE NEWMOUSEY) |of| \\IOPAGE |with| YPOS) (|replace| (IOPAGE NEWMOUSESTATE
+) |of| \\IOPAGE |with| 32768)) NIL) (PROGN (\\PUTBASE \\EM.MOUSEX 0 XPOS) (\\PUTBASE \\EM.MOUSEY 0 
+YPOS)))))
+(GLOBALVARS \\EM.MOUSEX \\EM.MOUSEY \\EM.CURSORX \\EM.CURSORY \\EM.UTILIN \\EM.REALUTILIN \\EM.KBDAD0 
+\\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 " 6-May-2021 15:25:40"))
 
 (DATATYPE PILOTBBT ((PBTDESTLO WORD) (PBTDESTHI WORD) (PBTDESTBIT WORD) (PBTDESTBPL SIGNEDWORD) (
 PBTSOURCELO WORD) (PBTSOURCEHI WORD) (PBTSOURCEBIT WORD) (PBTSOURCEBPL SIGNEDWORD) (PBTWIDTH WORD) (
 PBTHEIGHT WORD) (PBTFLAGS WORD) (NIL 5 WORD)) (BLOCKRECORD PILOTBBT ((NIL 7 WORD) (NIL BITS 4) (
 PBTGRAYOFFSET BITS 4) (PBTGRAYWIDTHLESSONE BITS 4) (PBTGRAYHEIGHTLESSONE BITS 4) (NIL 2 WORD) (
 PBTBACKWARD FLAG) (PBTDISJOINT FLAG) (PBTDISJOINTITEMS FLAG) (PBTUSEGRAY FLAG) (PBTSOURCETYPE BITS 1) 
-(PBTOPERATION BITS 2) (NIL BITS 9))) (ACCESSFNS PILOTBBT ((PBTSOURCE (\VAG2 (fetch PBTSOURCEHI of 
-DATUM) (fetch PBTSOURCELO of DATUM)) (PROGN (replace PBTSOURCEHI of DATUM with (\HILOC NEWVALUE)) (
-replace PBTSOURCELO of DATUM with (\LOLOC NEWVALUE)))) (PBTDEST (\VAG2 (fetch PBTDESTHI of DATUM) (
-fetch PBTDESTLO of DATUM)) (PROGN (replace PBTDESTHI of DATUM with (\HILOC NEWVALUE)) (replace 
-PBTDESTLO of DATUM with (\LOLOC NEWVALUE)))))) (SYSTEM))
-(DATATYPE \DISPLAYDATA (DDXPOSITION DDYPOSITION DDXOFFSET DDYOFFSET DDDestination DDClippingRegion 
-DDFONT DDSlowPrintingCase DDWIDTHSCACHE DDOFFSETSCACHE DDCOLOR DDLINEFEED DDRightMargin DDLeftMargin 
-DDScroll DDOPERATION DDSOURCETYPE (DDClippingLeft WORD) (DDClippingRight WORD) (DDClippingBottom WORD)
- (DDClippingTop WORD) (NIL WORD) (DDHELDFLG FLAG) (XWINDOWHINT XPOINTER) (DDPILOTBBT POINTER) DDXSCALE
- DDYSCALE DDCHARIMAGEWIDTHS DDEOLFN DDPAGEFULLFN DDTexture DDMICAXPOS DDMICAYPOS DDMICARIGHTMARGIN 
-DDCHARSET (DDCHARSETASCENT WORD) (DDCHARSETDESCENT WORD) DDCHARHEIGHTDELTA (DDSPACEWIDTH WORD)) 
-DDPILOTBBT _ (create PILOTBBT PBTDISJOINT _ T) DDLeftMargin _ 0 DDRightMargin _ SCREENWIDTH 
-DDXPOSITION _ 0 DDYPOSITION _ 0 DDXOFFSET _ 0 DDYOFFSET _ 0 DDClippingRegion _ (create REGION) 
-DDDestination _ ScreenBitMap DDXSCALE _ 1 DDYSCALE _ 1 DDTexture _ 0 (ACCESSFNS ((DDFOREGROUNDCOLOR (
-PROG ((VAL (fetch (\DISPLAYDATA DDCOLOR) of DATUM))) (OR (FIXP VAL) (BITMAPP VAL) (AND (NULL VAL) 1) (
-CAR VAL) (MAXIMUMCOLOR (BITSPERPIXEL (fetch (\DISPLAYDATA DDDestination) of DATUM)))))) (
-DDBACKGROUNDCOLOR (OR (fetch (\DISPLAYDATA DDTexture) of DATUM) 0)))) (SYSTEM))
+(PBTOPERATION BITS 2) (NIL BITS 9))) (ACCESSFNS PILOTBBT ((PBTSOURCE (\\VAG2 (|fetch| PBTSOURCEHI |of|
+ DATUM) (|fetch| PBTSOURCELO |of| DATUM)) (PROGN (|replace| PBTSOURCEHI |of| DATUM |with| (\\HILOC 
+NEWVALUE)) (|replace| PBTSOURCELO |of| DATUM |with| (\\LOLOC NEWVALUE)))) (PBTDEST (\\VAG2 (|fetch| 
+PBTDESTHI |of| DATUM) (|fetch| PBTDESTLO |of| DATUM)) (PROGN (|replace| PBTDESTHI |of| DATUM |with| (
+\\HILOC NEWVALUE)) (|replace| PBTDESTLO |of| DATUM |with| (\\LOLOC NEWVALUE)))))) (SYSTEM))
+(DATATYPE \\DISPLAYDATA (DDXPOSITION DDYPOSITION DDXOFFSET DDYOFFSET |DDDestination| 
+|DDClippingRegion| DDFONT |DDSlowPrintingCase| DDWIDTHSCACHE DDOFFSETSCACHE DDCOLOR DDLINEFEED 
+|DDRightMargin| |DDLeftMargin| |DDScroll| DDOPERATION DDSOURCETYPE (|DDClippingLeft| WORD) (
+|DDClippingRight| WORD) (|DDClippingBottom| WORD) (|DDClippingTop| WORD) (NIL WORD) (DDHELDFLG FLAG) (
+XWINDOWHINT XPOINTER) (DDPILOTBBT POINTER) DDXSCALE DDYSCALE DDCHARIMAGEWIDTHS DDEOLFN DDPAGEFULLFN 
+|DDTexture| DDMICAXPOS DDMICAYPOS DDMICARIGHTMARGIN DDCHARSET (DDCHARSETASCENT WORD) (DDCHARSETDESCENT
+ WORD) DDCHARHEIGHTDELTA (DDSPACEWIDTH WORD)) DDPILOTBBT _ (|create| PILOTBBT PBTDISJOINT _ T) 
+|DDLeftMargin| _ 0 |DDRightMargin| _ SCREENWIDTH DDXPOSITION _ 0 DDYPOSITION _ 0 DDXOFFSET _ 0 
+DDYOFFSET _ 0 |DDClippingRegion| _ (|create| REGION) |DDDestination| _ |ScreenBitMap| DDXSCALE _ 1 
+DDYSCALE _ 1 |DDTexture| _ 0 (ACCESSFNS ((DDFOREGROUNDCOLOR (PROG ((VAL (|fetch| (\\DISPLAYDATA 
+DDCOLOR) |of| DATUM))) (OR (FIXP VAL) (BITMAPP VAL) (AND (NULL VAL) 1) (CAR VAL) (MAXIMUMCOLOR (
+BITSPERPIXEL (|fetch| (\\DISPLAYDATA |DDDestination|) |of| DATUM)))))) (DDBACKGROUNDCOLOR (OR (|fetch|
+ (\\DISPLAYDATA |DDTexture|) |of| DATUM) 0)))) (SYSTEM))
 (RECORD DISPLAYSTATE (ONOFF))
 (RECORD DISPLAYINFO (DITYPE DIWIDTH DIHEIGHT DIBITSPERPIXEL DIWSOPS))
-(PUTPROPS \GETDISPLAYDATA MACRO (ARGS (COND ((CADR ARGS) (SUBPAIR (QUOTE (STRM STRMVAR)) ARGS (QUOTE (
-\DTEST (fetch (STREAM IMAGEDATA) of (SETQ STRMVAR (\OUTSTREAMARG STRM))) (QUOTE \DISPLAYDATA))))) (T (
-SUBST (CAR ARGS) (QUOTE STRM) (QUOTE (\DTEST (fetch (STREAM IMAGEDATA) of (\OUTSTREAMARG STRM)) (QUOTE
- \DISPLAYDATA))))))))
-(PUTPROPS \BITMASK MACRO ((N) (\WORDELT BITMASKARRAY (LOGAND N 15))))
-(PUTPROPS \4BITMASK MACRO ((N) (\WORDELT 4BITMASKARRAY (LOGAND N 3))))
-(PUTPROPS \NOTBITMASK MACRO ((N) (DECLARE (GLOBALVARS NOTBITMASKARRAY)) (\WORDELT NOTBITMASKARRAY (
+(PUTPROPS \\GETDISPLAYDATA MACRO (ARGS (COND ((CADR ARGS) (SUBPAIR (QUOTE (STRM STRMVAR)) ARGS (QUOTE 
+(\\DTEST (|fetch| (STREAM IMAGEDATA) |of| (SETQ STRMVAR (\\OUTSTREAMARG STRM))) (QUOTE \\DISPLAYDATA))
+))) (T (SUBST (CAR ARGS) (QUOTE STRM) (QUOTE (\\DTEST (|fetch| (STREAM IMAGEDATA) |of| (\\OUTSTREAMARG
+ STRM)) (QUOTE \\DISPLAYDATA))))))))
+(PUTPROPS \\BITMASK MACRO ((N) (\\WORDELT BITMASKARRAY (LOGAND N 15))))
+(PUTPROPS \\4BITMASK MACRO ((N) (\\WORDELT 4BITMASKARRAY (LOGAND N 3))))
+(PUTPROPS \\NOTBITMASK MACRO ((N) (DECLARE (GLOBALVARS NOTBITMASKARRAY)) (\\WORDELT NOTBITMASKARRAY (
 LOGAND N 15))))
-(PUTPROPS \NOT4BITMASK MACRO ((N) (\WORDELT NOT4BITMASKARRAY (LOGAND N 3))))
+(PUTPROPS \\NOT4BITMASK MACRO ((N) (\\WORDELT NOT4BITMASKARRAY (LOGAND N 3))))
 (GLOBALVARS BITMASKARRAY NOTBITMASKARRAY 4BITMASKARRAY NOT4BITMASKARRAY)
 (RPAQQ WORDMASK 65535)
 (CONSTANTS (WORDMASK 65535))
-(PUTPROPS \INVALIDATEDISPLAYCACHE MACRO ((DISPLAYDATA) (* This marks the character-printing caches of 
-the displaystream as invalid. Needed when the font or Y position changes) (freplace (\DISPLAYDATA 
-DDCHARSET) of DISPLAYDATA with MAX.SMALLP) (freplace (\DISPLAYDATA DDCHARSETASCENT) of DISPLAYDATA 
-with MAX.SMALLP)))
-(PUTPROPS \DSPGETCHARWIDTH MACRO ((CHARCODE DD) (\FGETWIDTH (ffetch (\DISPLAYDATA DDWIDTHSCACHE) of DD
-) CHARCODE)))
-(PUTPROPS \DSPGETCHARIMAGEWIDTH MACRO ((CHARCODE DD) (\FGETIMAGEWIDTH (ffetch (\DISPLAYDATA 
-DDCHARIMAGEWIDTHS) of DD) CHARCODE)))
-(PUTPROPS \DSPGETCHAROFFSET MACRO ((CHARCODE DD) (\GETBASE (ffetch (\DISPLAYDATA DDOFFSETSCACHE) of DD
-) CHARCODE)))
-(PUTPROPS \CONVERTOP MACRO ((OP) (* rrb "14-NOV-80 11:14") (* Only for alto bitblt !!) (SELECTQ OP (
-replace 0 of NIL with NIL) (PAINT 1) (INVERT 2) (ERASE 3) 0)))
-(PUTPROPS \SFInvert MACRO ((BitMap y) (* corrects for the fact that alto bitmaps are stored with 0,0 
-as upper left while lisp bitmaps have 0,0 as lower left. The correction is actually off by one (
-greater) because a majority of the places that it is called actually need one more than corrected Y 
-value.) (IDIFFERENCE (fetch (BITMAP BITMAPHEIGHT) of BitMap) y)))
-(PUTPROPS \SFReplicate MACRO (LAMBDA (pattern) (LOGOR pattern (LLSH pattern 8) (SETQ pattern (LLSH 
-pattern 4)) (LLSH pattern 8))))
-(PUTPROPS \SETPBTFUNCTION MACRO (OPENLAMBDA (BBT SourceType Operation) (PROGN (replace (PILOTBBT 
-PBTOPERATION) of BBT with (SELECTQ Operation (ERASE 1) (PAINT 2) (INVERT 3) 0)) (replace (PILOTBBT 
-PBTSOURCETYPE) of BBT with (COND ((EQ (EQ SourceType (QUOTE INVERT)) (EQ Operation (QUOTE ERASE))) 0) 
-(T 1))))))
-(PUTPROPS \BITBLT1 MACRO ((bbt) (BitBltSUBR bbt)))
+(PUTPROPS \\INVALIDATEDISPLAYCACHE MACRO ((DISPLAYDATA) (* |This| |marks| |the| |character-printing| 
+|caches| |of| |the| |displaystream| |as| |invalid.| |Needed| |when| |the| |font| |or| Y |position| 
+|changes|) (|freplace| (\\DISPLAYDATA DDCHARSET) |of| DISPLAYDATA |with| MAX.SMALLP) (|freplace| (
+\\DISPLAYDATA DDCHARSETASCENT) |of| DISPLAYDATA |with| MAX.SMALLP)))
+(PUTPROPS \\DSPGETCHARWIDTH MACRO ((CHARCODE DD) (\\FGETWIDTH (|ffetch| (\\DISPLAYDATA DDWIDTHSCACHE) 
+|of| DD) CHARCODE)))
+(PUTPROPS \\DSPGETCHARIMAGEWIDTH MACRO ((CHARCODE DD) (\\FGETIMAGEWIDTH (|ffetch| (\\DISPLAYDATA 
+DDCHARIMAGEWIDTHS) |of| DD) CHARCODE)))
+(PUTPROPS \\DSPGETCHAROFFSET MACRO ((CHARCODE DD) (\\GETBASE (|ffetch| (\\DISPLAYDATA DDOFFSETSCACHE) 
+|of| DD) CHARCODE)))
+(PUTPROPS \\CONVERTOP MACRO ((OP) (* |rrb| "14-NOV-80 11:14") (* |Only| |for| |alto| |bitblt| !!) (
+SELECTQ OP (|replace| 0 |of| NIL |with| NIL) (PAINT 1) (INVERT 2) (ERASE 3) 0)))
+(PUTPROPS |\\SFInvert| MACRO ((|BitMap| \y) (* |corrects| |for| |the| |fact| |that| |alto| |bitmaps| 
+|are| |stored| |with| 0\,0 |as| |upper| |left| |while| |lisp| |bitmaps| |have| 0\,0 |as| |lower| 
+|left.| |The| |correction| |is| |actually| |off| |by| |one| (|greater|) |because| \a |majority| |of| 
+|the| |places| |that| |it| |is| |called| |actually| |need| |one| |more| |than| |corrected| Y |value.|)
+ (IDIFFERENCE (|fetch| (BITMAP BITMAPHEIGHT) |of| |BitMap|) \y)))
+(PUTPROPS |\\SFReplicate| MACRO (LAMBDA (|pattern|) (LOGOR |pattern| (LLSH |pattern| 8) (SETQ 
+|pattern| (LLSH |pattern| 4)) (LLSH |pattern| 8))))
+(PUTPROPS \\SETPBTFUNCTION MACRO (OPENLAMBDA (BBT |SourceType| |Operation|) (PROGN (|replace| (
+PILOTBBT PBTOPERATION) |of| BBT |with| (SELECTQ |Operation| (ERASE 1) (PAINT 2) (INVERT 3) 0)) (
+|replace| (PILOTBBT PBTSOURCETYPE) |of| BBT |with| (COND ((EQ (EQ |SourceType| (QUOTE INVERT)) (EQ 
+|Operation| (QUOTE ERASE))) 0) (T 1))))))
+(PUTPROPS \\BITBLT1 MACRO ((|bbt|) (|BitBltSUBR| |bbt|)))
 (PUTPROP (QUOTE BITBLT) (QUOTE MACRO) (QUOTE (= . BKBITBLT)))
-(PROGN (PUTPROPS \INSURETOPWDS DMACRO (OPENLAMBDA (DS) (OR (EQ DS \TOPWDS) (COND ((FMEMB (
-DSPDESTINATION NIL DS) \SCREENBITMAPS) (\TOTOPWDS DS)))))) (PUTPROPS \INSURETOPWDS MACRO ((DS) (* For 
-non-window implementations) (PROGN))))
-(PUTPROPS .WHILE.TOP.DS. MACRO ((FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) (* FIRST should be a
- displaystream and a variable. This macro may also take a soft cursor down, similar to the way 
-.WHILE.CURSOR.DOWN. does, but only if FIRST's destination is the same as the soft cursor's 
-destination. *) (COND (\SOFTCURSORP (SETQ SOFTCURSORUP (AND \SOFTCURSORUPP (EQ (DSPDESTINATION NIL 
-FIRST) \CURSORDESTINATION))) (COND (SOFTCURSORUP (SETQ DISPINTERRUPT (\GETBASE \EM.DISPINTERRUPT 0)) (
-\PUTBASE \EM.DISPINTERRUPT 0 0) (\SOFTCURSORDOWN))))) (\INSURETOPWDS FIRST) (PROGN . REST) (COND (
-SOFTCURSORUP (\SOFTCURSORUPCURRENT) (\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT))))))
-(PUTPROPS .WHILE.CURSOR.DOWN. MACRO ((FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) (* This macro 
-should wrap around any code that draws or bitblts directly from or to a screen bitmap. E.g. 
-DRAWGRAYBOX in HLDISPLAY which puts up a shadow box during GETREGION. The purpose of this macro is 
-that a soft (e.g. color) cursor's bits not be taken to be screen bits while FIRST & REST are done. *) 
-(COND (\SOFTCURSORP (SETQ SOFTCURSORUP \SOFTCURSORUPP) (COND (SOFTCURSORUP (SETQ DISPINTERRUPT (
-\GETBASE \EM.DISPINTERRUPT 0)) (\PUTBASE \EM.DISPINTERRUPT 0 0) (\SOFTCURSORDOWN))))) (PROGN FIRST . 
-REST) (COND (SOFTCURSORUP (\SOFTCURSORUPCURRENT) (\PUTBASE \EM.DISPINTERRUPT 0 DISPINTERRUPT))))))
-(ADDTOVAR GLOBALVARS \TOPWDS)
-(DEFOPTIMIZER TTYDISPLAYSTREAM (&REST X) (COND ((NULL (CAR X)) (QUOTE \TERM.OFD)) (T (QUOTE 
+(PROGN (PUTPROPS \\INSURETOPWDS DMACRO (OPENLAMBDA (DS) (OR (EQ DS \\TOPWDS) (COND ((FMEMB (
+DSPDESTINATION NIL DS) \\SCREENBITMAPS) (\\TOTOPWDS DS)))))) (PUTPROPS \\INSURETOPWDS MACRO ((DS) (* 
+|For| |non-window| |implementations|) (PROGN))))
+(PUTPROPS .WHILE.TOP.DS. MACRO ((FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) (* FIRST |should| 
+|be| \a |displaystream| |and| \a |variable.| |This| |macro| |may| |also| |take| \a |soft| |cursor| 
+|down,| |similar| |to| |the| |way| .WHILE.CURSOR.DOWN. |does,| |but| |only| |if| |FIRST's| 
+|destination| |is| |the| |same| |as| |the| |soft| |cursor's| |destination.| *) (COND (\\SOFTCURSORP (
+SETQ SOFTCURSORUP (AND \\SOFTCURSORUPP (EQ (DSPDESTINATION NIL FIRST) \\CURSORDESTINATION))) (COND (
+SOFTCURSORUP (SETQ DISPINTERRUPT (\\GETBASE \\EM.DISPINTERRUPT 0)) (\\PUTBASE \\EM.DISPINTERRUPT 0 0) 
+(\\SOFTCURSORDOWN))))) (\\INSURETOPWDS FIRST) (PROGN . REST) (COND (SOFTCURSORUP (
+\\SOFTCURSORUPCURRENT) (\\PUTBASE \\EM.DISPINTERRUPT 0 DISPINTERRUPT))))))
+(PUTPROPS .WHILE.CURSOR.DOWN. MACRO ((FIRST . REST) (PROG (DISPINTERRUPT SOFTCURSORUP) (* |This| 
+|macro| |should| |wrap| |around| |any| |code| |that| |draws| |or| |bitblts| |directly| |from| |or| 
+|to| \a |screen| |bitmap.| E.\g. DRAWGRAYBOX |in| HLDISPLAY |which| |puts| |up| \a |shadow| |box| 
+|during| GETREGION. |The| |purpose| |of| |this| |macro| |is| |that| \a |soft| (|e.g.| |color|) 
+|cursor's| |bits| |not| |be| |taken| |to| |be| |screen| |bits| |while| FIRST & REST |are| |done.| *) (
+COND (\\SOFTCURSORP (SETQ SOFTCURSORUP \\SOFTCURSORUPP) (COND (SOFTCURSORUP (SETQ DISPINTERRUPT (
+\\GETBASE \\EM.DISPINTERRUPT 0)) (\\PUTBASE \\EM.DISPINTERRUPT 0 0) (\\SOFTCURSORDOWN))))) (PROGN 
+FIRST . REST) (COND (SOFTCURSORUP (\\SOFTCURSORUPCURRENT) (\\PUTBASE \\EM.DISPINTERRUPT 0 
+DISPINTERRUPT))))))
+(ADDTOVAR GLOBALVARS \\TOPWDS)
+(DEFOPTIMIZER TTYDISPLAYSTREAM (&REST X) (COND ((NULL (CAR X)) (QUOTE \\TERM.OFD)) (T (QUOTE 
 IGNOREMACRO))))
-(GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS \DisplayStoppedForLogout \CARET.UP)
-(PUTPROPS \CHECKCARET MACRO ((X) (AND \CARET.UP (\CARET.DOWN X))))
-(PUTPROPS \DSPTRANSFORMX MACRO ((X DD) (* transforms an x coordinate into the destination coordinate.)
- (IPLUS X (fetch (\DISPLAYDATA DDXOFFSET) of DD))))
-(PUTPROPS \DSPTRANSFORMY MACRO ((Y DD) (* transforms an y coordinate into the destination coordinate.)
- (IPLUS Y (fetch (\DISPLAYDATA DDYOFFSET) of DD))))
-(PUTPROPS \OFFSETBOTTOM MACRO ((X) (* gives the destination coordinate address of the origin.) (fetch 
-(\DISPLAYDATA DDYOFFSET) of X)))
-(PUTPROPS \OFFSETLEFT MACRO ((DD) (* returns the x origin of display data destination coordinates.) (
-fetch (\DISPLAYDATA DDXOFFSET) of DD)))
-(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* always initialized now) T))
-(PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
-(GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN 
-SCREENWIDTH SCREENHEIGHT)
-(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+(GLOBALVARS BELLCNT BELLRATE TTYBACKGROUNDFNS |\\DisplayStoppedForLogout| \\CARET.UP)
+(PUTPROPS \\CHECKCARET MACRO ((X) (AND \\CARET.UP (\\CARET.DOWN X))))
+(PUTPROPS \\DSPTRANSFORMX MACRO ((X DD) (* |transforms| |an| \x |coordinate| |into| |the| 
+|destination| |coordinate.|) (IPLUS X (|fetch| (\\DISPLAYDATA DDXOFFSET) |of| DD))))
+(PUTPROPS \\DSPTRANSFORMY MACRO ((Y DD) (* |transforms| |an| \y |coordinate| |into| |the| 
+|destination| |coordinate.|) (IPLUS Y (|fetch| (\\DISPLAYDATA DDYOFFSET) |of| DD))))
+(PUTPROPS \\OFFSETBOTTOM MACRO ((X) (* |gives| |the| |destination| |coordinate| |address| |of| |the| 
+|origin.|) (|fetch| (\\DISPLAYDATA DDYOFFSET) |of| X)))
+(PUTPROPS \\OFFSETLEFT MACRO ((DD) (* |returns| |the| \x |origin| |of| |display| |data| |destination| 
+|coordinates.|) (|fetch| (\\DISPLAYDATA DDXOFFSET) |of| DD)))
+(PUTPROPS DISPLAYINITIALIZEDP MACRO (NIL (* |always| |initialized| |now|) T))
+(PUTPROPS DISPLAYSTARTEDP MACRO (NIL |\\DisplayStarted|))
+(GLOBALVARS |\\DisplayStarted| |\\DisplayStreamsInitialized| |\\DisplayInitialed| WHOLEDISPLAY 
+WHOLESCREEN SCREENWIDTH SCREENHEIGHT)
+(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
 (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 (
-IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM))) (RIGHT (IPLUS (fetch (REGION
- LEFT) of DATUM) (fetch (REGION WIDTH) of DATUM) -1)) (PRIGHT (IPLUS (fetch (REGION LEFT) of DATUM) (
-fetch (REGION WIDTH) of DATUM))))) (TYPE? (AND (EQLENGTH DATUM 4) (EVERY DATUM (FUNCTION NUMBERP)))) (
-SYSTEM))
+ACCESSFNS ((TOP (IPLUS (|fetch| (REGION BOTTOM) |of| DATUM) (|fetch| (REGION HEIGHT) |of| DATUM) -1)) 
+(PTOP (IPLUS (|fetch| (REGION BOTTOM) |of| DATUM) (|fetch| (REGION HEIGHT) |of| DATUM))) (RIGHT (IPLUS
+ (|fetch| (REGION LEFT) |of| DATUM) (|fetch| (REGION WIDTH) |of| DATUM) -1)) (PRIGHT (IPLUS (|fetch| (
+REGION LEFT) |of| DATUM) (|fetch| (REGION WIDTH) |of| DATUM))))) (TYPE? (AND (EQLENGTH DATUM 4) (EVERY
+ DATUM (FUNCTION NUMBERP)))) (SYSTEM))
 (DATATYPE BITMAP ((BITMAPBASE POINTER) (BITMAPRASTERWIDTH WORD) (BITMAPHEIGHT WORD) (BITMAPWIDTH WORD)
- (BITMAPBITSPERPIXEL WORD)) BITMAPBITSPERPIXEL _ 1 (BLOCKRECORD BITMAP ((BitMapHiLoc WORD) (
-BitMapLoLoc WORD)) (* ; "overlay initial pointer")) (SYSTEM))
+ (BITMAPBITSPERPIXEL WORD)) BITMAPBITSPERPIXEL _ 1 (BLOCKRECORD BITMAP ((|BitMapHiLoc| WORD) (
+|BitMapLoLoc| WORD)) (* \; "overlay initial pointer")) (SYSTEM))
 (BLOCKRECORD BITMAPWORD ((BITS WORD)) (SYSTEM))
 (RECORD POSITION (XCOORD . YCOORD) (TYPE? (AND (LISTP DATUM) (NUMBERP (CAR DATUM)) (NUMBERP (CDR DATUM
 )))) (SYSTEM))
-(DATATYPE CURSOR (CUIMAGE CUMASK CUHOTSPOTX CUHOTSPOTY CUDATA) (ACCESSFNS ((CUBITSPERPIXEL (fetch (
-BITMAP BITMAPBITSPERPIXEL) of (fetch (CURSOR CUIMAGE) of DATUM))))) (SYSTEM))
+(DATATYPE CURSOR (CUIMAGE CUMASK CUHOTSPOTX CUHOTSPOTY CUDATA) (ACCESSFNS ((CUBITSPERPIXEL (|fetch| (
+BITMAP BITMAPBITSPERPIXEL) |of| (|fetch| (CURSOR CUIMAGE) |of| DATUM))))) (SYSTEM))
 (RECORD MOUSEEVENT (MOUSEX MOUSEY MOUSEBUTTONS KEYBOARD MOUSETIME) (SYSTEM))
-(RECORD SCREENREGION (SCREEN . REGION) (SUBRECORD REGION) (TYPE? (AND (LISTP DATUM) (type? SCREEN (CAR
- DATUM)) (type? REGION (CDR DATUM)))) (SYSTEM))
-(RECORD SCREENPOSITION (SCREEN . POSITION) (SUBRECORD POSITION) (TYPE? (AND (LISTP DATUM) (type? 
-SCREEN (CAR DATUM)) (type? POSITION (CDR DATUM)))) (SYSTEM))
-(PUTPROPS CURSORBITMAP MACRO (NIL CursorBitMap))
+(RECORD SCREENREGION (SCREEN . REGION) (SUBRECORD REGION) (TYPE? (AND (LISTP DATUM) (|type?| SCREEN (
+CAR DATUM)) (|type?| REGION (CDR DATUM)))) (SYSTEM))
+(RECORD SCREENPOSITION (SCREEN . POSITION) (SUBRECORD POSITION) (TYPE? (AND (LISTP DATUM) (|type?| 
+SCREEN (CAR DATUM)) (|type?| POSITION (CDR DATUM)))) (SYSTEM))
+(PUTPROPS CURSORBITMAP MACRO (NIL |CursorBitMap|))
 (RPAQQ HARDCURSORHEIGHT 16)
 (RPAQQ HARDCURSORWIDTH 16)
 (CONSTANTS (HARDCURSORHEIGHT 16) (HARDCURSORWIDTH 16))
-(ADDTOVAR GLOBALVARS CursorBitMap)
+(ADDTOVAR GLOBALVARS |CursorBitMap|)
 (ARRAYRECORD POLYNOMIAL (A B C D) (CREATE (ARRAY 4 (QUOTE FLOATP))) (SYSTEM))
-(RECORD SPLINE (%#KNOTS SPLINEX SPLINEY SPLINEDX SPLINEDY SPLINEDDX SPLINEDDY SPLINEDDDX SPLINEDDDY))
+(RECORD SPLINE (\#KNOTS SPLINEX SPLINEY SPLINEDX SPLINEDY SPLINEDDX SPLINEDDY SPLINEDDDX SPLINEDDDY))
 (PUTPROPS HALF MACRO ((X) (LRSH X 1)))
-(PUTPROPS \FILLCIRCLEBLT MACRO (OPENLAMBDA (CX CY X Y) (* ; 
-"calls bitblt twice to fill in one line of the circle.") (\LINEBLT FCBBT (IDIFFERENCE CX X) (IPLUS CY 
-Y) (IPLUS CX X) DESTINATIONBASE RASTERWIDTH LEFT RIGHT BOTTOM TOP GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS)
- (\LINEBLT FCBBT (IDIFFERENCE CX X) (IDIFFERENCE CY Y) (IPLUS CX X) DESTINATIONBASE RASTERWIDTH LEFT 
-RIGHT BOTTOM TOP GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS)))
+(PUTPROPS \\FILLCIRCLEBLT MACRO (OPENLAMBDA (CX CY X Y) (* \; 
+"calls bitblt twice to fill in one line of the circle.") (\\LINEBLT FCBBT (IDIFFERENCE CX X) (IPLUS CY
+ Y) (IPLUS CX X) DESTINATIONBASE RASTERWIDTH LEFT RIGHT BOTTOM TOP GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS
+) (\\LINEBLT FCBBT (IDIFFERENCE CX X) (IDIFFERENCE CY Y) (IPLUS CX X) DESTINATIONBASE RASTERWIDTH LEFT
+ RIGHT BOTTOM TOP GRAYWIDTH GRAYHEIGHT GRAYBASE NBITS)))
 (PUTDEF (QUOTE BITMAPS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (VARS . X))))))
 (PUTDEF (QUOTE CURSORS) (QUOTE FILEPKGCOMS) (QUOTE ((COM MACRO (X (E (MAPC (QUOTE X) (QUOTE 
 PRINTCURSOR))))))))
-(ADDTOVAR GLOBALVARS SCREENHEIGHT SCREENWIDTH ScreenBitMap)
+(ADDTOVAR GLOBALVARS SCREENHEIGHT SCREENWIDTH |ScreenBitMap|)
 (RPAQQ BLACKSHADE 65535)
 (RPAQQ WHITESHADE 0)
 (CONSTANTS (BLACKSHADE 65535) (WHITESHADE 0))
@@ -1991,32 +2048,32 @@ PRINTCURSOR))))))))
 (ADDTOVAR GLOBALVARS GRAYSHADE)
 (RECORD HLS (HUE LIGHTNESS SATURATION))
 (RECORD RGB (RED GREEN BLUE))
-(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(ADDTOVAR SYSSPECVARS \INTERRUPTABLE)
+(ADDTOVAR SYSSPECVARS \\INTERRUPTABLE)
 (PUTPROPS UNINTERRUPTABLY INFO EVAL)
-(PUTPROPS UNINTERRUPTABLY DMACRO ((X . Y) ((LAMBDA (\INTERRUPTABLE) (PROGN X . Y)) NIL)))
+(PUTPROPS UNINTERRUPTABLY DMACRO ((X . Y) ((LAMBDA (\\INTERRUPTABLE) (PROGN X . Y)) NIL)))
 (ADDTOVAR PRETTYPRINTMACROS (UNINTERRUPTABLY LAMBDA (FORM) (PROG ((POS (IPLUS 4 (POSITION)))) (PRIN1 
 "(") (PRIN2 (CAR FORM)) (OR (EQ COMMENTFLG (CAAR (SETQ FORM (CDR FORM)))) (TAB POS 0)) (PRINTDEF FORM 
 POS T T FNSLST) (PRIN1 ")"))))
-(BLOCKRECORD INTERRUPTSTATE ((* ;; 
+(BLOCKRECORD INTERRUPTSTATE ((* |;;| 
 "This is the structure used to communicate between the emulator and Lisp re interrupts.  There is a bit per interrupt type, plus space for the character code that caused a keyboard interrupt."
-) (* ;; "This must match the INTSTAT definition in lispemul.h") (* ;; "PENDING-INTERRUPT FLAGS:") (
-LOGMSGSPENDING FLAG) (* ; " Log/Console msgs need printing.") (ETHERINTERRUPT FLAG) (* ; 
-"Ether packet read finished.") (IOINTERRUPT FLAG) (GCDISABLED FLAG) (* ; "No mroe room in GC tables.")
- (VMEMFULL FLAG) (* ; "VMEM is full!!") (STACKOVERFLOW FLAG) (* ; "Stack overflowed.") (STORAGEFULL 
-FLAG) (* ; "Ran out of storage, atoms, etc.") (WAITINGINTERRUPT FLAG) (* ;; 
-"INTERRUPTS-IN-PROCESS MASK:") (P-LOGMSGSPENDING FLAG) (* ; " Log/Console msgs need printing.") (
-P-ETHERINTERRUPT FLAG) (* ; "Ether packet read finished.") (P-IOINTERRUPT FLAG) (P-GCDISABLED FLAG) (*
- ; "No mroe room in GC tables.") (P-VMEMFULL FLAG) (* ; "VMEM is full!!") (P-STACKOVERFLOW FLAG) (* ; 
-"Stack overflowed.") (P-STORAGEFULL FLAG) (* ; "Ran out of storage, atoms, etc.") (P-WAITINGINTERRUPT 
-FLAG) (INTCHARCODE WORD)) (BLOCKRECORD INTERRUPTSTATE ((* ;; "Alternative view of the structure:") (
-PENDING BITS 8) (* ; "Pending-interrupt flags") (IN-PROGRESS BITS 8) (* ; 
-"Mask to prevent re-interrupt for an interrupt in progress") (NIL WORD))))
-(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-Apr-2021 20:06:09"))
+) (* |;;| "This must match the INTSTAT definition in lispemul.h") (* |;;| "PENDING-INTERRUPT FLAGS:") 
+(LOGMSGSPENDING FLAG) (* \; " Log/Console msgs need printing.") (ETHERINTERRUPT FLAG) (* \; 
+"Ether packet read finished.") (IOINTERRUPT FLAG) (GCDISABLED FLAG) (* \; "No mroe room in GC tables."
+) (VMEMFULL FLAG) (* \; "VMEM is full!!") (STACKOVERFLOW FLAG) (* \; "Stack overflowed.") (STORAGEFULL
+ FLAG) (* \; "Ran out of storage, atoms, etc.") (WAITINGINTERRUPT FLAG) (* |;;| 
+"INTERRUPTS-IN-PROCESS MASK:") (P-LOGMSGSPENDING FLAG) (* \; " Log/Console msgs need printing.") (
+P-ETHERINTERRUPT FLAG) (* \; "Ether packet read finished.") (P-IOINTERRUPT FLAG) (P-GCDISABLED FLAG) (
+* \; "No mroe room in GC tables.") (P-VMEMFULL FLAG) (* \; "VMEM is full!!") (P-STACKOVERFLOW FLAG) (*
+ \; "Stack overflowed.") (P-STORAGEFULL FLAG) (* \; "Ran out of storage, atoms, etc.") (
+P-WAITINGINTERRUPT FLAG) (INTCHARCODE WORD)) (BLOCKRECORD INTERRUPTSTATE ((* |;;| 
+"Alternative view of the structure:") (PENDING BITS 8) (* \; "Pending-interrupt flags") (IN-PROGRESS 
+BITS 8) (* \; "Mask to prevent re-interrupt for an interrupt in progress") (NIL WORD))))
+(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 " 6-May-2021 15:25:40"))
 
 (PUTPROPS UNLESSRDSYS MACRO ((NORMAL RDSYS) NORMAL))
 (PUTPROPS UNLESSINEW MACRO ((NORMAL I-NEW) NORMAL))
@@ -2024,480 +2081,488 @@ AND \PENDINGINTERRUPT (INTERRUPTABLE~=NILUPTHESTACK)) PREFORM ((LAMBDA (\INTERRU
 (PUTPROPS 2ND MACRO ((A B . C) B))
 (PUTPROPS LOCAL MACRO ((X) X))
 (PUTPROPS ALLOCAL MACRO ((X) X))
-(PUTPROPS ADDBASE DMACRO (= . \ADDBASE))
-(PUTPROPS GETBASE DMACRO (= . \GETBASE))
-(PUTPROPS GETBASEBYTE DMACRO (= . \GETBASEBYTE))
-(PUTPROPS GETBASEPTR DMACRO (= . \GETBASEPTR))
-(PUTPROPS HILOC DMACRO (= . \HILOC))
-(PUTPROPS LOLOC DMACRO (= . \LOLOC))
-(PUTPROPS PUTBASE DMACRO (= . \PUTBASE))
-(PUTPROPS PUTBASEBYTE DMACRO (= . \PUTBASEBYTE))
-(PUTPROPS PUTBASEPTR DMACRO (= . \PUTBASEPTR))
-(PUTPROPS REPLACEPTRFIELD DMACRO (= . \RPLPTR))
-(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-Apr-1994 15:43:27"))
+(PUTPROPS ADDBASE DMACRO (= . \\ADDBASE))
+(PUTPROPS GETBASE DMACRO (= . \\GETBASE))
+(PUTPROPS GETBASEBYTE DMACRO (= . \\GETBASEBYTE))
+(PUTPROPS GETBASEPTR DMACRO (= . \\GETBASEPTR))
+(PUTPROPS HILOC DMACRO (= . \\HILOC))
+(PUTPROPS LOLOC DMACRO (= . \\LOLOC))
+(PUTPROPS PUTBASE DMACRO (= . \\PUTBASE))
+(PUTPROPS PUTBASEBYTE DMACRO (= . \\PUTBASEBYTE))
+(PUTPROPS PUTBASEPTR DMACRO (= . \\PUTBASEPTR))
+(PUTPROPS REPLACEPTRFIELD DMACRO (= . \\RPLPTR))
+(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 " 6-May-2021 15:25:40"))
 
 (PUTPROPS MOUSESTATE MACRO (ARGS (LIST (QUOTE PROGN) (QUOTE (GETMOUSESTATE)) (MOUSESTATE-EXPR (CAR 
 ARGS) T))))
 (PUTPROPS LASTMOUSESTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR ARGS) T)))
-(PUTPROPS UNTILMOUSESTATE MACRO (ARGS (COND ((AND (CDR ARGS) (CADR ARGS) (NEQ (CADR ARGS) T)) (* time 
-argument is given and is not T or NIL; compile in time keeping loop.) (LIST (QUOTE PROG) (LIST (LIST (
-QUOTE TIMEOUT) (LIST (QUOTE IPLUS) (QUOTE (CLOCK 0)) (LIST (QUOTE OR) (LIST (QUOTE NUMBERP) (CADR ARGS
-)) 100))) (QUOTE (NOWTIME (CLOCK 0)))) (QUOTE LP) (LIST (QUOTE COND) (LIST (CONS (QUOTE MOUSESTATE) (
-LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (COND ((IGREATERP (CLOCK0 NOWTIME) TIMEOUT) (RETURN 
-NIL)) (T (\BACKGROUND)))) (QUOTE (GO LP)))) (T (LIST (QUOTE PROG) NIL (QUOTE LP) (LIST (QUOTE COND) (
-LIST (CONS (QUOTE MOUSESTATE) (LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (\BACKGROUND)) (QUOTE (
-GO LP)))))))
+(PUTPROPS UNTILMOUSESTATE MACRO (ARGS (COND ((AND (CDR ARGS) (CADR ARGS) (NEQ (CADR ARGS) T)) (* 
+|time| |argument| |is| |given| |and| |is| |not| T |or| NIL\; |compile| |in| |time| |keeping| |loop.|) 
+(LIST (QUOTE PROG) (LIST (LIST (QUOTE TIMEOUT) (LIST (QUOTE IPLUS) (QUOTE (CLOCK 0)) (LIST (QUOTE OR) 
+(LIST (QUOTE NUMBERP) (CADR ARGS)) 100))) (QUOTE (NOWTIME (CLOCK 0)))) (QUOTE LP) (LIST (QUOTE COND) (
+LIST (CONS (QUOTE MOUSESTATE) (LIST (CAR ARGS) T)) (QUOTE (RETURN T)))) (QUOTE (COND ((IGREATERP (
+CLOCK0 NOWTIME) TIMEOUT) (RETURN NIL)) (T (\\BACKGROUND)))) (QUOTE (GO LP)))) (T (LIST (QUOTE PROG) 
+NIL (QUOTE LP) (LIST (QUOTE COND) (LIST (CONS (QUOTE MOUSESTATE) (LIST (CAR ARGS) T)) (QUOTE (RETURN T
+)))) (QUOTE (\\BACKGROUND)) (QUOTE (GO LP)))))))
 (PUTPROPS KEYSETSTATE MACRO (ARGS (LIST (QUOTE PROGN) (QUOTE (GETMOUSESTATE)) (MOUSESTATE-EXPR (CAR 
 ARGS)))))
 (PUTPROPS LASTKEYSETSTATE MACRO (ARGS (MOUSESTATE-EXPR (CAR 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-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
 (PUTPROPS .COPYKEYDOWNP. MACRO (NIL (OR (KEYDOWNP (QUOTE LSHIFT)) (KEYDOWNP (QUOTE RSHIFT)) (KEYDOWNP 
 (QUOTE COPY)))))
 (PUTPROPS WSOP MACRO (ARGS (LET ((METHOD (CADR (CAR ARGS))) (DISPLAY (CADR ARGS)) (OTHERARGS (CDDR 
-ARGS))) (BQUOTE (SPREADAPPLY* (fetch (WSOPS (\, METHOD)) of (fetch (FDEV WINDOWOPS) of (\, DISPLAY))) 
-(\, DISPLAY) (\,@ OTHERARGS))))))
-(PUTPROPS \COERCETODS MACRO (OPENLAMBDA (X) (COND ((type? WINDOW X) (fetch (WINDOW DSP) of X)) (T (
-\ILLEGAL.ARG X)))))
-(PUTPROPS .WHILE.ON.TOP. MACRO ((FIRST . REST) (UNINTERRUPTABLY (\INTERNALTOTOPW FIRST) . REST)))
+ARGS))) (BQUOTE (SPREADAPPLY* (|fetch| (WSOPS (\\\, METHOD)) |of| (|fetch| (FDEV WINDOWOPS) |of| (\\\,
+ DISPLAY))) (\\\, DISPLAY) (\\\,@ OTHERARGS))))))
+(PUTPROPS \\COERCETODS MACRO (OPENLAMBDA (X) (COND ((|type?| WINDOW X) (|fetch| (WINDOW DSP) |of| X)) 
+(T (\\ILLEGAL.ARG X)))))
+(PUTPROPS .WHILE.ON.TOP. MACRO ((FIRST . REST) (UNINTERRUPTABLY (\\INTERNALTOTOPW FIRST) . REST)))
 (PUTPROPS WINDOWOP DMACRO (ARGS (LET ((OPNAME (CAR ARGS)) (METHOD-DEVICE (CADR ARGS)) (TAIL (CDDR ARGS
-))) (COND ((AND (LISTP OPNAME) (EQ (CAR OPNAME) (QUOTE QUOTE))) (BQUOTE (SPREADAPPLY* (fetch (SCREEN (
-\, (CADR OPNAME))) of (\, METHOD-DEVICE)) (\, METHOD-DEVICE) (\,@ TAIL)))) (T (ERROR 
+))) (COND ((AND (LISTP OPNAME) (EQ (CAR OPNAME) (QUOTE QUOTE))) (BQUOTE (SPREADAPPLY* (|fetch| (SCREEN
+ (\\\, (CADR OPNAME))) |of| (\\\, METHOD-DEVICE)) (\\\, METHOD-DEVICE) (\\\,@ TAIL)))) (T (ERROR 
 "OPNAME not quoted: " OPNAME))))))
-(RPAQQ MinWindowWidth 26)
-(RPAQQ MinWindowHeight 16)
-(CONSTANTS (MinWindowWidth 26) (MinWindowHeight 16))
-(DATATYPE WINDOW (DSP (* ; "The display stream you use to actually printto the window.") NEXTW (* ; 
-"Next window in the open-window list") SAVE (* ; "Saved image from anything this window's on top of") 
-REG (* ; "Screen region this window occupies") BUTTONEVENTFN (* ; 
-"FN called when left/middle mouse button goes up/down") RIGHTBUTTONFN (* ; 
-"FN called when right mouse button goes up/down") CURSORINFN (* ; "Fn called when mouse enters window"
-) CURSOROUTFN (* ; "Called when mouse leaves window") CURSORMOVEDFN (* ; 
-"Called when mouse moves in window") REPAINTFN (* ; "Redisplay part of thie window") RESHAPEFN (* ; 
-"Called when window is reshaped") EXTENT (* ; "Scrolling limits") USERDATA (* ; 
-"Proplist to hold other window properites") VERTSCROLLREG (* ; "Region of vert scroll bar") 
-HORIZSCROLLREG (* ; "Tegion of horiz scroll bar") SCROLLFN (* ; "Fn to scroll this window") 
-VERTSCROLLWINDOW (* ; "Vert scroll bar") HORIZSCROLLWINDOW (* ; "Horiz scroll bar") CLOSEFN (* ; 
-"Called at close time") MOVEFN (* ; "Called when window is moved") WTITLE (* ; 
-"Window's title string, if any") NEWREGIONFN (* ; "Called to get new window shape") WBORDER (* ; 
-"Window border-width, in pixels") PROCESS (* ; "Medley process associated with this window") 
-WINDOWENTRYFN (* ; "Fn to call when kbd focus is switched here") SCREEN (* ; 
-"Screen this window appears on") (NATIVE-HANDLE FIXP) (* ; 
+(RPAQQ |MinWindowWidth| 26)
+(RPAQQ |MinWindowHeight| 16)
+(CONSTANTS (|MinWindowWidth| 26) (|MinWindowHeight| 16))
+(DATATYPE WINDOW (DSP (* \; "The display stream you use to actually printto the window.") NEXTW (* \; 
+"Next window in the open-window list") SAVE (* \; "Saved image from anything this window's on top of")
+ REG (* \; "Screen region this window occupies") BUTTONEVENTFN (* \; 
+"FN called when left/middle mouse button goes up/down") RIGHTBUTTONFN (* \; 
+"FN called when right mouse button goes up/down") CURSORINFN (* \; 
+"Fn called when mouse enters window") CURSOROUTFN (* \; "Called when mouse leaves window") 
+CURSORMOVEDFN (* \; "Called when mouse moves in window") REPAINTFN (* \; 
+"Redisplay part of thie window") RESHAPEFN (* \; "Called when window is reshaped") EXTENT (* \; 
+"Scrolling limits") USERDATA (* \; "Proplist to hold other window properites") VERTSCROLLREG (* \; 
+"Region of vert scroll bar") HORIZSCROLLREG (* \; "Tegion of horiz scroll bar") SCROLLFN (* \; 
+"Fn to scroll this window") VERTSCROLLWINDOW (* \; "Vert scroll bar") HORIZSCROLLWINDOW (* \; 
+"Horiz scroll bar") CLOSEFN (* \; "Called at close time") MOVEFN (* \; "Called when window is moved") 
+WTITLE (* \; "Window's title string, if any") NEWREGIONFN (* \; "Called to get new window shape") 
+WBORDER (* \; "Window border-width, in pixels") PROCESS (* \; 
+"Medley process associated with this window") WINDOWENTRYFN (* \; 
+"Fn to call when kbd focus is switched here") SCREEN (* \; "Screen this window appears on") (
+NATIVE-HANDLE FIXP) (* \; 
 "Uniterpreted place for native window to store a C pointer to its private info") (NATIVE-INFO1 FIXP) (
-* ; "Reserved in case the pointer must be 64 bits") (NATIVE-W1 WORD) (* ; 
-"Word for use by native handler") (NATIVE-W2 WORD) (* ; "Word for use by native handler") (NATIVE-P1 
-POINTER) (* ; "Lisp pointer for use by native handler")) BUTTONEVENTFN _ (FUNCTION TOTOPW) WBORDER _ 
-WBorder WINDOWENTRYFN _ (FUNCTION GIVE.TTY.PROCESS) (SYSTEM))
+* \; "Reserved in case the pointer must be 64 bits") (NATIVE-W1 WORD) (* \; 
+"Word for use by native handler") (NATIVE-W2 WORD) (* \; "Word for use by native handler") (NATIVE-P1 
+POINTER) (* \; "Lisp pointer for use by native handler")) BUTTONEVENTFN _ (FUNCTION TOTOPW) WBORDER _ 
+|WBorder| WINDOWENTRYFN _ (FUNCTION GIVE.TTY.PROCESS) (SYSTEM))
 (DATATYPE SCREEN (SCONOFF SCDESTINATION SCWIDTH SCHEIGHT SCTOPW SCTOPWDS SCTITLEDS SCFDEV SCDS SCDATA 
-(* ;; "Space for native window manager interface to use.") (HANDLE FIXP) (* ; 
-"Handle for emulator to store info about display for C code use.") (HANDLE2 FIXP) (* ; 
-"Reserved in case HANDLE needs to be 64 bits on the C side.") (NATIVE-INFO POINTER) (* ; 
-"POINTER for the private use of the emulator window code") NATIVETYPE (* ; 
-"Symbol to tell what kind of native window system we're using.") (* ;; 
-"- - - Functional interface to screen management - - -") WINIMAGEOPS (* ; 
-"IMAGEOPS to be used in display streas on this kind of screen") WINFDEV (* ; 
-"FDEV for display streams on this screen") CREATEWFN (* ; "Create a window") OPENWFN (* ; 
-"Open a window") CLOSEWFN (* ; "Close a window") MOVEWFN (* ; "Move a window") RELMOVEWFN (* ; 
-"Move window, relative") SHRINKWFN (* ; "Shrink window to icon") EXPANDWFN (* ; 
-"Expand icon to window") SHAPEWFN (* ; "Reshape a window") REDISPLAYFN (* ; 
-"Redisplay (part of) a window") GETWINDOWPROPFN (* ; "Get window property value") PUTWINDOWPROPFN (* ;
- "Set window property value") BURYWFN (* ; "Move window behind all others") TOTOPWFN (* ; 
-"Move iwindow in front of all others") IMPORTWFN (* ; 
-"Take a native window and save its state internally") EXPORTWFN (* ; 
+(* |;;| "Space for native window manager interface to use.") (HANDLE FIXP) (* \; 
+"Handle for emulator to store info about display for C code use.") (HANDLE2 FIXP) (* \; 
+"Reserved in case HANDLE needs to be 64 bits on the C side.") (NATIVE-INFO POINTER) (* \; 
+"POINTER for the private use of the emulator window code") NATIVETYPE (* \; 
+"Symbol to tell what kind of native window system we're using.") (* |;;| 
+"- - - Functional interface to screen management - - -") WINIMAGEOPS (* \; 
+"IMAGEOPS to be used in display streas on this kind of screen") WINFDEV (* \; 
+"FDEV for display streams on this screen") CREATEWFN (* \; "Create a window") OPENWFN (* \; 
+"Open a window") CLOSEWFN (* \; "Close a window") MOVEWFN (* \; "Move a window") RELMOVEWFN (* \; 
+"Move window, relative") SHRINKWFN (* \; "Shrink window to icon") EXPANDWFN (* \; 
+"Expand icon to window") SHAPEWFN (* \; "Reshape a window") REDISPLAYFN (* \; 
+"Redisplay (part of) a window") GETWINDOWPROPFN (* \; "Get window property value") PUTWINDOWPROPFN (* 
+\; "Set window property value") BURYWFN (* \; "Move window behind all others") TOTOPWFN (* \; 
+"Move iwindow in front of all others") IMPORTWFN (* \; 
+"Take a native window and save its state internally") EXPORTWFN (* \; 
 "Take a saved window state and open it on this screen, filling in screen and methods as needed.") 
-DESTROYFN (* ; "Destroy this window, for GC finaliszation") SETCURSORFN (* ; 
-"Set the cursor for this window.") PROMPTW (* ; "The prompt window for this screen") SHOWGCFN (* ; 
+DESTROYFN (* \; "Destroy this window, for GC finaliszation") SETCURSORFN (* \; 
+"Set the cursor for this window.") PROMPTW (* \; "The prompt window for this screen") SHOWGCFN (* \; 
 "Show GC indication; called with ON/OFF arg, t=>show gcing status, NIL=>turn off GC indicator.") 
-DSPCREATEFN (* ; "Create a displaystream on this screen.") BBTTOWIN (* ; 
-"BITBLT from a lisp bitmap to a window") BBTFROMWIN (* ; "BITBLT from a window to a lisp bitmap") 
-BBTWINWIN (* ; "BITBLT from a window to another window.") SCCURSOR (* ; 
-"CURSOR that's in effect for this screen by default.") SCKEYBOARD (* ; 
-"Something about which keyboard we're receiving from.") SCDEPTH (* ; 
-"# of bits per pixel on the screen.  THIS WILL REPLACE SCBITSPERPIXEL ASAP.") SCCLOSEDOWN (* ; 
-"Close down this screen cleanly, saving window state.") SCCLOSESCREEN (* ; 
-"Close down thie screen cleanly, no state saving.") SCREOPEN (* ; "Reopen this screen?") SCCARETFLASH 
-(* ; "Function to flash thecaret.") SCGETSCREENPOSITION (* ; "GETSCREENPOSITION") 
-SCGETBOXSCREENPOSITION (* ; "GETBOXPOSITION") SCGETSCREENREGION (* ; "GETREGION") SCMOVEPOINTER (* ; 
-"\CURSORPOSITION")) SCONOFF _ (QUOTE OFF) (ACCESSFNS ((SCBITSPERPIXEL (COND ((fetch (SCREEN 
-SCDESTINATION) of DATUM) (fetch (BITMAP BITMAPBITSPERPIXEL) of (fetch (SCREEN SCDESTINATION) of DATUM)
-)) (T 1))) (SCREGION (create REGION LEFT _ 0 BOTTOM _ 0 WIDTH _ (fetch (SCREEN SCWIDTH) of DATUM) 
-HEIGHT _ (fetch (SCREEN SCHEIGHT) of DATUM))))) (SYSTEM))
+DSPCREATEFN (* \; "Create a displaystream on this screen.") BBTTOWIN (* \; 
+"BITBLT from a lisp bitmap to a window") BBTFROMWIN (* \; "BITBLT from a window to a lisp bitmap") 
+BBTWINWIN (* \; "BITBLT from a window to another window.") SCCURSOR (* \; 
+"CURSOR that's in effect for this screen by default.") SCKEYBOARD (* \; 
+"Something about which keyboard we're receiving from.") SCDEPTH (* \; 
+"# of bits per pixel on the screen.  THIS WILL REPLACE SCBITSPERPIXEL ASAP.") SCCLOSEDOWN (* \; 
+"Close down this screen cleanly, saving window state.") SCCLOSESCREEN (* \; 
+"Close down thie screen cleanly, no state saving.") SCREOPEN (* \; "Reopen this screen?") SCCARETFLASH
+ (* \; "Function to flash thecaret.") SCGETSCREENPOSITION (* \; "GETSCREENPOSITION") 
+SCGETBOXSCREENPOSITION (* \; "GETBOXPOSITION") SCGETSCREENREGION (* \; "GETREGION") SCMOVEPOINTER (* 
+\; "\\CURSORPOSITION")) SCONOFF _ (QUOTE OFF) (ACCESSFNS ((SCBITSPERPIXEL (COND ((|fetch| (SCREEN 
+SCDESTINATION) |of| DATUM) (|fetch| (BITMAP BITMAPBITSPERPIXEL) |of| (|fetch| (SCREEN SCDESTINATION) 
+|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-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
 (PUTPROPS NNLITATOM MACRO (OPENLAMBDA (X) (AND X (LITATOM X))))
-(PUTPROPS \NULL.OR.FIXP MACRO (OPENLAMBDA (X) (OR (NULL X) (FIXP X))))
-(PUTPROPS \CHECKTYPE MACRO (X (PROG ((VAR (CAR X)) (PRED (CADR X))) (if (AND (LISTP PRED) (MEMB (CAR 
-PRED) (QUOTE (QUOTE FUNCTION)))) then (SETQ PRED (LIST (CADR PRED) VAR))) (RETURN (SUBPAIR (QUOTE (MSG
- VAR PRED)) (LIST (CONCAT "
- is not a suitable value for the variable:  " VAR) VAR PRED) (QUOTE (until PRED do (SETQ VAR (ERROR 
-VAR MSG)))))))))
-(PUTPROPS CANONICAL.TIMERUNITS MACRO (OPENLAMBDA (X) (* Checks for common abbreviations before calling
- \CanonicalizeTimerUnits) (SELECTQ X ((TICKS MILLISECONDS SECONDS) (* These are the canonical forms) X
-) (NIL (QUOTE MILLISECONDS)) (\CanonicalizeTimerUnits X))))
-(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-Apr-2021 20:06:09"))
+(PUTPROPS \\NULL.OR.FIXP MACRO (OPENLAMBDA (X) (OR (NULL X) (FIXP X))))
+(PUTPROPS \\CHECKTYPE MACRO (X (PROG ((VAR (CAR X)) (PRED (CADR X))) (|if| (AND (LISTP PRED) (MEMB (
+CAR PRED) (QUOTE (QUOTE FUNCTION)))) |then| (SETQ PRED (LIST (CADR PRED) VAR))) (RETURN (SUBPAIR (
+QUOTE (MSG VAR PRED)) (LIST (CONCAT "
+ is not a suitable value for the variable:  " VAR) VAR PRED) (QUOTE (|until| PRED |do| (SETQ VAR (
+ERROR VAR MSG)))))))))
+(PUTPROPS CANONICAL.TIMERUNITS MACRO (OPENLAMBDA (X) (* |Checks| |for| |common| |abbreviations| 
+|before| |calling| |\\CanonicalizeTimerUnits|) (SELECTQ X ((TICKS MILLISECONDS SECONDS) (* |These| 
+|are| |the| |canonical| |forms|) X) (NIL (QUOTE MILLISECONDS)) (|\\CanonicalizeTimerUnits| X))))
+(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 " 6-May-2021 15:25:40"))
 
-(RPAQQ MASK0WORD1'S 32767)
-(RPAQQ MASK1WORD0'S 32768)
-(RPAQQ MASKWORD1'S 65535)
-(RPAQQ MASKHALFWORD1'S 255)
+(RPAQQ MASK0WORD1\'S 32767)
+(RPAQQ MASK1WORD0\'S 32768)
+(RPAQQ MASKWORD1\'S 65535)
+(RPAQQ MASKHALFWORD1\'S 255)
 (RPAQQ BITSPERHALFWORD 8)
-(CONSTANTS MASK0WORD1'S MASK1WORD0'S MASKWORD1'S MASKHALFWORD1'S BITSPERHALFWORD)
+(CONSTANTS MASK0WORD1\'S MASK1WORD0\'S MASKWORD1\'S MASKHALFWORD1\'S BITSPERHALFWORD)
 (PUTPROPS EQZEROP MACRO ((X) (EQ 0 X)))
-(PUTPROPS \MOVETOBOX DMACRO (OPENLAMBDA (N D) (SELECTC (NTYPX N) (\SMALLP (replace (FIXP HINUM) of D 
-with 0) (replace (FIXP LONUM) of D with N)) (\FIXP (replace (FIXP HINUM) of D with (fetch (FIXP HINUM)
- of N)) (replace (FIXP LONUM) of D with (fetch (FIXP LONUM) of N))) (\ILLEGAL.ARG N))))
-(PUTPROPS .XUNBOX. MACRO ((X HX LX) (until (SETQ LX (SELECTC (NTYPX X) (\SMALLP (COND ((IGEQ X 0) (
-SETQ HX 0) X) (T (SETQ HX MASKWORD1'S) (\LOLOC X)))) (\FIXP (SETQ HX (fetch (FIXP HINUM) of X)) (fetch
- (FIXP LONUM) of X)) NIL)) do (SETQ X (LISPERROR "ILLEGAL ARG" X T)))))
-(PUTPROPS .XLLSH. MACRO ((HI LO N) (if (IGEQ N BITSPERWORD) then (* ; 
-"Jump 16 bits in a single bound!") (SETQ HI LO) (SETQ LO 0) (SETQ N (IDIFFERENCE N BITSPERWORD))) (if 
-(IGEQ N BITSPERHALFWORD) then (* ; "Jump 8 bits in a single bound!") (SETQ HI (LOGOR (.LOHALFWORDHI. 
-HI) (.HIHALFWORDLO. LO))) (SETQ LO (.LOHALFWORDHI. LO)) (SETQ N (IDIFFERENCE N BITSPERHALFWORD))) (if 
-(IGEQ N 4) then (* ; "Jump 4 bits in a single bound!") (SETQ HI (LOGOR (LRSH LO (CONSTANT (IDIFFERENCE
- BITSPERWORD 4))) (LLSH (LOGAND HI (CONSTANT (MASK.1'S 0 (IDIFFERENCE BITSPERWORD 4)))) 4))) (SETQ LO 
-(LLSH (LOGAND LO (CONSTANT (MASK.1'S 0 (IDIFFERENCE BITSPERWORD 4)))) 4)) (SETQ N (IDIFFERENCE N 4))) 
-(* ; "MASK0WORD1'S should be same as (SUB1 (LSH 1 (SUB1 BITSPERWORD)))") (FRPTQ N (SETQ HI (LLSH (
-LOGAND HI MASK0WORD1'S) 1)) (SETQ LO (LLSH (if (IGEQ LO MASK1WORD0'S) then (add HI 1) (LOGAND LO 
-MASK0WORD1'S) else LO) 1)))))
-(PUTPROPS .XLLSH1. MACRO ((HI LO) (SETQ HI (LLSH (LOGAND HI MASK0WORD1'S) 1)) (SETQ LO (LSH (COND ((
-IGEQ LO MASK1WORD0'S) (SETQ HI (LOGOR HI 1)) (LOGAND LO MASK0WORD1'S)) (T LO)) 1))))
-(PUTPROPS .XLRSH. MACRO ((HI LO N) (if (IGEQ N BITSPERWORD) then (* ; 
-"Jump 10 bits in a single bound!") (SETQ LO HI) (SETQ HI 0) (SETQ N (IDIFFERENCE N BITSPERWORD))) (if 
-(IGEQ N BITSPERHALFWORD) then (* ; "Jump 8 bits in a single bound!") (SETQ LO (LOGOR (.HIHALFWORDLO. 
-LO) (.LOHALFWORDHI. HI))) (SETQ HI (.HIHALFWORDLO. HI)) (SETQ N (IDIFFERENCE N BITSPERHALFWORD))) (if 
-(IGEQ N 4) then (* ; "Jump 4 bits in a single bound!") (SETQ LO (LOGOR (LLSH (LOGAND HI (CONSTANT (
-MASK.1'S 0 4))) (CONSTANT (IDIFFERENCE BITSPERWORD 4))) (LRSH LO 4))) (SETQ HI (LRSH HI 4)) (SETQ N (
-IDIFFERENCE N 4))) (* ; "MASK1WORD0'S should be same as \SIGNBIT") (FRPTQ N (SETQ LO (if (ODDP HI) 
-then (LOGOR (LRSH LO 1) MASK1WORD0'S) else (LRSH LO 1))) (SETQ HI (LRSH HI 1)))))
-(PUTPROPS .ADD.2WORD.INTEGERS. MACRO ((HX LX HY LY) (* ; "Ignores carry out of high-order word") (SETQ
- HX (.SUMSMALLMOD. HX HY)) (SETQ LX (.SUMSMALLMOD. LX LY (SETQ HX (if (EQ HX MAX.SMALL.INTEGER) then 0
- else (ADD1 HX)))))))
-(PUTPROPS .SUB.2WORD.INTEGERS. MACRO ((HX LX HY LY) (* ; "Ignores carry out of high-order word") (SETQ
- HX (.DIFFERENCESMALLMOD. HX HY)) (SETQ LX (.DIFFERENCESMALLMOD. LX LY (SETQ HX (if (EQ HX 0) then 
-MAX.SMALL.INTEGER else (SUB1 HX)))))))
-(PUTPROPS .32BITMUL. MACRO ((HR LR X Y) (PROG (HX LX HY LY) (if (ILESSP X Y) then (swap X Y)) (* ; 
-"Y is the lesser of the two now") (.XUNBOX. X HX LX) (.XUNBOX. Y HY LY) LP (if (ODDP LY) then (
-.ADD.2WORD.INTEGERS. HR LR HX LX)) (if (EQ HY 0) then (SETQ LY (LRSH LY 1)) (if (EQ LY 0) then (RETURN
-)) else (.LRSH1. HY LY)) (* ; "Trim off highest bits, so that left-shifting doesn't generate FIXPs") (
-SETQ HX (LOGAND HX MASK0WORD1'S)) (.LLSH1. HX LX) (GO LP))))
-(PUTPROPS .SUMSMALLMOD. MACRO ((X Y OVERFLOWFORM) ((LAMBDA (\SumSmallModVar) (DECLARE (LOCALVARS 
-\SumSmallModVar)) (IF (ILEQ X \SumSmallModVar) THEN (IPLUS X Y) ELSE OVERFLOWFORM (IDIFFERENCE X (ADD1
- \SumSmallModVar)))) (IDIFFERENCE MAX.SMALL.INTEGER Y))))
+(PUTPROPS \\MOVETOBOX DMACRO (OPENLAMBDA (N D) (SELECTC (NTYPX N) (\\SMALLP (|replace| (FIXP HINUM) 
+|of| D |with| 0) (|replace| (FIXP LONUM) |of| D |with| N)) (\\FIXP (|replace| (FIXP HINUM) |of| D 
+|with| (|fetch| (FIXP HINUM) |of| N)) (|replace| (FIXP LONUM) |of| D |with| (|fetch| (FIXP LONUM) |of|
+ N))) (\\ILLEGAL.ARG N))))
+(PUTPROPS .XUNBOX. MACRO ((X HX LX) (|until| (SETQ LX (SELECTC (NTYPX X) (\\SMALLP (COND ((IGEQ X 0) (
+SETQ HX 0) X) (T (SETQ HX MASKWORD1\'S) (\\LOLOC X)))) (\\FIXP (SETQ HX (|fetch| (FIXP HINUM) |of| X))
+ (|fetch| (FIXP LONUM) |of| X)) NIL)) |do| (SETQ X (LISPERROR "ILLEGAL ARG" X T)))))
+(PUTPROPS .XLLSH. MACRO ((HI LO N) (|if| (IGEQ N BITSPERWORD) |then| (* \; 
+"Jump 16 bits in a single bound!") (SETQ HI LO) (SETQ LO 0) (SETQ N (IDIFFERENCE N BITSPERWORD))) (
+|if| (IGEQ N BITSPERHALFWORD) |then| (* \; "Jump 8 bits in a single bound!") (SETQ HI (LOGOR (
+.LOHALFWORDHI. HI) (.HIHALFWORDLO. LO))) (SETQ LO (.LOHALFWORDHI. LO)) (SETQ N (IDIFFERENCE N 
+BITSPERHALFWORD))) (|if| (IGEQ N 4) |then| (* \; "Jump 4 bits in a single bound!") (SETQ HI (LOGOR (
+LRSH LO (CONSTANT (IDIFFERENCE BITSPERWORD 4))) (LLSH (LOGAND HI (CONSTANT (MASK.1\'S 0 (IDIFFERENCE 
+BITSPERWORD 4)))) 4))) (SETQ LO (LLSH (LOGAND LO (CONSTANT (MASK.1\'S 0 (IDIFFERENCE BITSPERWORD 4))))
+ 4)) (SETQ N (IDIFFERENCE N 4))) (* \; 
+"MASK0WORD1'S should be same as (SUB1 (LSH 1 (SUB1 BITSPERWORD)))") (FRPTQ N (SETQ HI (LLSH (LOGAND HI
+ MASK0WORD1\'S) 1)) (SETQ LO (LLSH (|if| (IGEQ LO MASK1WORD0\'S) |then| (|add| HI 1) (LOGAND LO 
+MASK0WORD1\'S) |else| LO) 1)))))
+(PUTPROPS .XLLSH1. MACRO ((HI LO) (SETQ HI (LLSH (LOGAND HI MASK0WORD1\'S) 1)) (SETQ LO (LSH (COND ((
+IGEQ LO MASK1WORD0\'S) (SETQ HI (LOGOR HI 1)) (LOGAND LO MASK0WORD1\'S)) (T LO)) 1))))
+(PUTPROPS .XLRSH. MACRO ((HI LO N) (|if| (IGEQ N BITSPERWORD) |then| (* \; 
+"Jump 10 bits in a single bound!") (SETQ LO HI) (SETQ HI 0) (SETQ N (IDIFFERENCE N BITSPERWORD))) (
+|if| (IGEQ N BITSPERHALFWORD) |then| (* \; "Jump 8 bits in a single bound!") (SETQ LO (LOGOR (
+.HIHALFWORDLO. LO) (.LOHALFWORDHI. HI))) (SETQ HI (.HIHALFWORDLO. HI)) (SETQ N (IDIFFERENCE N 
+BITSPERHALFWORD))) (|if| (IGEQ N 4) |then| (* \; "Jump 4 bits in a single bound!") (SETQ LO (LOGOR (
+LLSH (LOGAND HI (CONSTANT (MASK.1\'S 0 4))) (CONSTANT (IDIFFERENCE BITSPERWORD 4))) (LRSH LO 4))) (
+SETQ HI (LRSH HI 4)) (SETQ N (IDIFFERENCE N 4))) (* \; "MASK1WORD0'S should be same as \\SIGNBIT") (
+FRPTQ N (SETQ LO (|if| (ODDP HI) |then| (LOGOR (LRSH LO 1) MASK1WORD0\'S) |else| (LRSH LO 1))) (SETQ 
+HI (LRSH HI 1)))))
+(PUTPROPS .ADD.2WORD.INTEGERS. MACRO ((HX LX HY LY) (* \; "Ignores carry out of high-order word") (
+SETQ HX (.SUMSMALLMOD. HX HY)) (SETQ LX (.SUMSMALLMOD. LX LY (SETQ HX (|if| (EQ HX MAX.SMALL.INTEGER) 
+|then| 0 |else| (ADD1 HX)))))))
+(PUTPROPS .SUB.2WORD.INTEGERS. MACRO ((HX LX HY LY) (* \; "Ignores carry out of high-order word") (
+SETQ HX (.DIFFERENCESMALLMOD. HX HY)) (SETQ LX (.DIFFERENCESMALLMOD. LX LY (SETQ HX (|if| (EQ HX 0) 
+|then| MAX.SMALL.INTEGER |else| (SUB1 HX)))))))
+(PUTPROPS .32BITMUL. MACRO ((HR LR X Y) (PROG (HX LX HY LY) (|if| (ILESSP X Y) |then| (|swap| X Y)) (*
+ \; "Y is the lesser of the two now") (.XUNBOX. X HX LX) (.XUNBOX. Y HY LY) LP (|if| (ODDP LY) |then| 
+(.ADD.2WORD.INTEGERS. HR LR HX LX)) (|if| (EQ HY 0) |then| (SETQ LY (LRSH LY 1)) (|if| (EQ LY 0) 
+|then| (RETURN)) |else| (.LRSH1. HY LY)) (* \; 
+"Trim off highest bits, so that left-shifting doesn't generate FIXPs") (SETQ HX (LOGAND HX 
+MASK0WORD1\'S)) (.LLSH1. HX LX) (GO LP))))
+(PUTPROPS .SUMSMALLMOD. MACRO ((X Y OVERFLOWFORM) ((LAMBDA (|\\SumSmallModVar|) (DECLARE (LOCALVARS 
+|\\SumSmallModVar|)) (IF (ILEQ X |\\SumSmallModVar|) THEN (IPLUS X Y) ELSE OVERFLOWFORM (IDIFFERENCE X
+ (ADD1 |\\SumSmallModVar|)))) (IDIFFERENCE MAX.SMALL.INTEGER Y))))
 (PUTPROPS .DIFFERENCESMALLMOD. MACRO ((X Y BORROWFORM) (IF (NOT (IGREATERP Y X)) THEN (IDIFFERENCE X Y
 ) ELSE BORROWFORM (ADD1 (IDIFFERENCE MAX.SMALL.INTEGER (IDIFFERENCE Y X))))))
-(PUTPROPS \GETBASENIBBLE DMACRO (OPENLAMBDA (BASE OFFST) ((LAMBDA (\Byte) (DECLARE (LOCALVARS \Byte)) 
-(if (ODDP OFFST) then (LOGAND \Byte (CONSTANT (MASK.1'S 0 BITSPERNIBBLE))) else (LRSH \Byte 
-BITSPERNIBBLE))) (\GETBASEBYTE BASE (FOLDLO OFFST NIBBLESPERBYTE)))))
-(PUTPROPS \PUTBASENIBBLE DMACRO (OPENLAMBDA (BASE OFFST VAL) ((LAMBDA (\ByteNo) (DECLARE (LOCALVARS 
-\ByteNo)) ((LAMBDA (\Byte) (DECLARE (LOCALVARS \Byte)) (\PUTBASEBYTE BASE \ByteNo (if (ODDP OFFST) 
-then (LOGOR (LOGAND \Byte (CONSTANT (MASK.1'S BITSPERNIBBLE BITSPERNIBBLE))) VAL) else (LOGOR (LOGAND 
-\Byte (CONSTANT (MASK.1'S 0 BITSPERNIBBLE))) (LLSH VAL BITSPERNIBBLE))))) (\GETBASEBYTE BASE \ByteNo))
-) (FOLDLO OFFST NIBBLESPERBYTE))))
-(PUTPROPS \GETBASEBIT DMACRO (OPENLAMBDA (BASE OFFST) ((LAMBDA (\ByteNo \BitMask) (DECLARE (LOCALVARS 
-\ByteNo \BitMask)) (if (EQ 0 (LOGAND \BitMask (\GETBASEBYTE BASE \ByteNo))) then 0 else 1)) (FOLDLO 
-OFFST BITSPERBYTE) (MASK.1'S (IDIFFERENCE (CONSTANT (SUB1 BITSPERBYTE)) (IMOD OFFST BITSPERBYTE)) 1)))
-)
-(PUTPROPS \PUTBASEBIT DMACRO (OPENLAMBDA (BASE OFFST VAL) ((LAMBDA (\ByteNo \BitMask \Byte) (DECLARE (
-LOCALVARS \ByteNo \BitMask \Byte)) (SETQ \Byte (\GETBASEBYTE BASE \ByteNo)) (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-Apr-2021 20:06:09"))
+(PUTPROPS \\GETBASENIBBLE DMACRO (OPENLAMBDA (BASE OFFST) ((LAMBDA (|\\Byte|) (DECLARE (LOCALVARS 
+|\\Byte|)) (|if| (ODDP OFFST) |then| (LOGAND |\\Byte| (CONSTANT (MASK.1\'S 0 BITSPERNIBBLE))) |else| (
+LRSH |\\Byte| BITSPERNIBBLE))) (\\GETBASEBYTE BASE (FOLDLO OFFST NIBBLESPERBYTE)))))
+(PUTPROPS \\PUTBASENIBBLE DMACRO (OPENLAMBDA (BASE OFFST VAL) ((LAMBDA (|\\ByteNo|) (DECLARE (
+LOCALVARS |\\ByteNo|)) ((LAMBDA (|\\Byte|) (DECLARE (LOCALVARS |\\Byte|)) (\\PUTBASEBYTE BASE 
+|\\ByteNo| (|if| (ODDP OFFST) |then| (LOGOR (LOGAND |\\Byte| (CONSTANT (MASK.1\'S BITSPERNIBBLE 
+BITSPERNIBBLE))) VAL) |else| (LOGOR (LOGAND |\\Byte| (CONSTANT (MASK.1\'S 0 BITSPERNIBBLE))) (LLSH VAL
+ BITSPERNIBBLE))))) (\\GETBASEBYTE BASE |\\ByteNo|))) (FOLDLO OFFST NIBBLESPERBYTE))))
+(PUTPROPS \\GETBASEBIT DMACRO (OPENLAMBDA (BASE OFFST) ((LAMBDA (|\\ByteNo| |\\BitMask|) (DECLARE (
+LOCALVARS |\\ByteNo| |\\BitMask|)) (|if| (EQ 0 (LOGAND |\\BitMask| (\\GETBASEBYTE BASE |\\ByteNo|))) 
+|then| 0 |else| 1)) (FOLDLO OFFST BITSPERBYTE) (MASK.1\'S (IDIFFERENCE (CONSTANT (SUB1 BITSPERBYTE)) (
+IMOD OFFST BITSPERBYTE)) 1))))
+(PUTPROPS \\PUTBASEBIT DMACRO (OPENLAMBDA (BASE OFFST VAL) ((LAMBDA (|\\ByteNo| |\\BitMask| |\\Byte|) 
+(DECLARE (LOCALVARS |\\ByteNo| |\\BitMask| |\\Byte|)) (SETQ |\\Byte| (\\GETBASEBYTE BASE |\\ByteNo|)) 
+(|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 " 6-May-2021 15:25:40"))
 
-(RPAQQ \MAXFILEPAGE 65534)
-(CONSTANTS \MAXFILEPAGE)
-(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+(RPAQQ \\MAXFILEPAGE 65534)
+(CONSTANTS \\MAXFILEPAGE)
+(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(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
- processor clock) (PROG ((EXCESS (\BOXIDIFFERENCE (\RCLK (LOCF (fetch RCLKTEMP0 of \MISCSTATS))) (LOCF
- (fetch BASECLOCK of \MISCSTATS))))) (RETURN (COND ((OR (IGEQ EXCESS \RCLKSECOND) (ILESSP EXCESS 0)) (
-* More than one second has elapsed since we updated clocks) (\BOXIPLUS (LOCF (fetch BASECLOCK of 
-\MISCSTATS)) \RCLKSECOND) (* Increment base by one second) (\BOXIPLUS (LOCF (fetch MILLISECONDSCLOCK 
-of \MISCSTATS)) 1000) (* Increment clocks by 1 second) (\BOXIPLUS (LOCF (fetch SECONDSCLOCK of 
-\MISCSTATS)) 1) T))))))
-(RPAQQ \RTCSECONDS 378)
-(RPAQQ \RTCMILLISECONDS 380)
-(RPAQQ \RTCBASE 382)
-(RPAQQ \OFFSET.SECONDS 0)
-(RPAQQ \OFFSET.MILLISECONDS 2)
-(RPAQQ \OFFSET.BASE 4)
-(RPAQQ \ALTO.RCLKSECOND 1680000)
-(RPAQQ \ALTO.RCLKMILLISECOND 1680)
-(RPAQQ \DLION.RCLKMILLISECOND 35)
-(RPAQQ \DLION.RCLKSECOND 34746)
-(RPAQQ \DOVE.RCLKMILLISECOND 63)
-(RPAQQ \DOVE.RCLKSECOND 62500)
-(CONSTANTS (\RTCSECONDS 378) (\RTCMILLISECONDS 380) (\RTCBASE 382) (\OFFSET.SECONDS 0) (
-\OFFSET.MILLISECONDS 2) (\OFFSET.BASE 4) (\ALTO.RCLKSECOND 1680000) (\ALTO.RCLKMILLISECOND 1680) (
-\DLION.RCLKMILLISECOND 35) (\DLION.RCLKSECOND 34746) (\DOVE.RCLKMILLISECOND 63) (\DOVE.RCLKSECOND 
+(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| |processor| |clock|) (PROG ((EXCESS (\\BOXIDIFFERENCE
+ (\\RCLK (LOCF (|fetch| RCLKTEMP0 |of| \\MISCSTATS))) (LOCF (|fetch| BASECLOCK |of| \\MISCSTATS))))) (
+RETURN (COND ((OR (IGEQ EXCESS \\RCLKSECOND) (ILESSP EXCESS 0)) (* |More| |than| |one| |second| |has| 
+|elapsed| |since| |we| |updated| |clocks|) (\\BOXIPLUS (LOCF (|fetch| BASECLOCK |of| \\MISCSTATS)) 
+\\RCLKSECOND) (* |Increment| |base| |by| |one| |second|) (\\BOXIPLUS (LOCF (|fetch| MILLISECONDSCLOCK 
+|of| \\MISCSTATS)) 1000) (* |Increment| |clocks| |by| 1 |second|) (\\BOXIPLUS (LOCF (|fetch| 
+SECONDSCLOCK |of| \\MISCSTATS)) 1) T))))))
+(RPAQQ \\RTCSECONDS 378)
+(RPAQQ \\RTCMILLISECONDS 380)
+(RPAQQ \\RTCBASE 382)
+(RPAQQ \\OFFSET.SECONDS 0)
+(RPAQQ \\OFFSET.MILLISECONDS 2)
+(RPAQQ \\OFFSET.BASE 4)
+(RPAQQ \\ALTO.RCLKSECOND 1680000)
+(RPAQQ \\ALTO.RCLKMILLISECOND 1680)
+(RPAQQ \\DLION.RCLKMILLISECOND 35)
+(RPAQQ \\DLION.RCLKSECOND 34746)
+(RPAQQ \\DOVE.RCLKMILLISECOND 63)
+(RPAQQ \\DOVE.RCLKSECOND 62500)
+(CONSTANTS (\\RTCSECONDS 378) (\\RTCMILLISECONDS 380) (\\RTCBASE 382) (\\OFFSET.SECONDS 0) (
+\\OFFSET.MILLISECONDS 2) (\\OFFSET.BASE 4) (\\ALTO.RCLKSECOND 1680000) (\\ALTO.RCLKMILLISECOND 1680) (
+\\DLION.RCLKMILLISECOND 35) (\\DLION.RCLKSECOND 34746) (\\DOVE.RCLKMILLISECOND 63) (\\DOVE.RCLKSECOND 
 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-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
 (RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR) BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1)
 (PUTPROPS IMAGEOP MACRO (ARGS (CONS (QUOTE SPREADAPPLY*) (CONS (COND ((EQ (CAR (LISTP (CAR ARGS))) (
-QUOTE QUOTE)) (LIST (QUOTE fetch) (LIST (QUOTE IMAGEOPS) (CADAR ARGS)) (QUOTE of) (LIST (QUOTE fetch) 
-(QUOTE (STREAM IMAGEOPS)) (QUOTE of) (CADR ARGS)))) (T (HELP "IMAGEOP - OPNAME not quoted:" ARGS))) (
-CDDR ARGS)))))
+QUOTE QUOTE)) (LIST (QUOTE |fetch|) (LIST (QUOTE IMAGEOPS) (CADAR ARGS)) (QUOTE |of|) (LIST (QUOTE 
+|fetch|) (QUOTE (STREAM IMAGEOPS)) (QUOTE |of|) (CADR ARGS)))) (T (HELP "IMAGEOP - OPNAME not quoted:"
+ ARGS))) (CDDR ARGS)))))
 (DATATYPE IMAGEOPS (IMAGETYPE IMCLOSEFN IMXPOSITION IMYPOSITION IMFONT IMLEFTMARGIN IMRIGHTMARGIN 
 IMLINEFEED IMDRAWLINE IMDRAWCURVE IMDRAWCIRCLE IMDRAWELLIPSE IMFILLCIRCLE IMBLTSHADE IMBITBLT 
 IMNEWPAGE IMMOVETO IMSCALE IMTERPRI IMTOPMARGIN IMBOTTOMMARGIN IMSPACEFACTOR IMFONTCREATE IMOPERATION 
 IMCOLOR IMSTRINGWIDTH IMCHARWIDTH IMCHARWIDTHY IMBACKCOLOR IMBITMAPSIZE IMCLIPPINGREGION IMRESET 
 IMDRAWPOLYGON IMFILLPOLYGON IMSCALEDBITBLT IMWRITEPIXEL IMCHARSET IMROTATE IMDRAWARC IMTRANSLATE 
 IMSCALE2 IMPUSHSTATE IMPOPSTATE IMDEFAULTSTATE IMDRAWPOINT IMBLTCHAR IMXOFFSET IMYOFFSET) IMCLOSEFN _ 
-(FUNCTION NILL) IMTERPRI _ (FUNCTION (LAMBDA (STREAM) (\OUTCHAR STREAM (CHARCODE EOL)))) IMNEWPAGE _ (
-FUNCTION (LAMBDA (STREAM) (\OUTCHAR STREAM (CHARCODE ^L)))) IMOPERATION _ (FUNCTION NILL) IMCOLOR _ (
-FUNCTION NILL) IMCLIPPINGREGION _ (FUNCTION NILL) IMRESET _ (FUNCTION NILL) IMBACKCOLOR _ (FUNCTION 
+(FUNCTION NILL) IMTERPRI _ (FUNCTION (LAMBDA (STREAM) (\\OUTCHAR STREAM (CHARCODE EOL)))) IMNEWPAGE _ 
+(FUNCTION (LAMBDA (STREAM) (\\OUTCHAR STREAM (CHARCODE ^L)))) IMOPERATION _ (FUNCTION NILL) IMCOLOR _ 
+(FUNCTION NILL) IMCLIPPINGREGION _ (FUNCTION NILL) IMRESET _ (FUNCTION NILL) IMBACKCOLOR _ (FUNCTION 
 NILL) IMSTRINGWIDTH _ (FUNCTION (LAMBDA (STREAM STR RDTBL) (STRINGWIDTH STR (DSPFONT NIL STREAM) RDTBL
  RDTBL))) IMCHARWIDTH _ (FUNCTION (LAMBDA (STREAM CHARCODE) (CHARWIDTH CHARCODE (DSPFONT NIL STREAM)))
 ) IMMOVETO _ (FUNCTION (LAMBDA (STREAM X Y) (IMAGEOP (QUOTE IMXPOSITION) STREAM STREAM X) (IMAGEOP (
 QUOTE IMYPOSITION) STREAM STREAM Y))) IMBITMAPSIZE _ (FUNCTION (LAMBDA (STREAM BITMAP DIMENSION) (
 SELECTQ DIMENSION (WIDTH (TIMES (DSPSCALE NIL STREAM) (BITMAPWIDTH BITMAP))) (HEIGHT (TIMES (DSPSCALE 
 NIL STREAM) (BITMAPHEIGHT BITMAP))) (NIL (CONS (TIMES (DSPSCALE NIL STREAM) (BITMAPWIDTH BITMAP)) (
-TIMES (DSPSCALE NIL STREAM) (BITMAPHEIGHT BITMAP)))) (\ILLEGAL.ARG DIMENSION)))) IMWRITEPIXEL _ (
+TIMES (DSPSCALE NIL STREAM) (BITMAPHEIGHT BITMAP)))) (\\ILLEGAL.ARG DIMENSION)))) IMWRITEPIXEL _ (
 FUNCTION NILL) IMCHARSET _ (FUNCTION NILL) IMXPOSITION _ (FUNCTION NILL) IMYPOSITION _ (FUNCTION NILL)
  IMFONT _ (FUNCTION NILL) IMLEFTMARGIN _ (FUNCTION NILL) IMRIGHTMARGIN _ (FUNCTION NILL) IMLINEFEED _ 
 (FUNCTION NILL) IMDRAWLINE _ (FUNCTION NILL) IMDRAWCURVE _ (FUNCTION NILL) IMDRAWCIRCLE _ (FUNCTION 
 NILL) IMDRAWELLIPSE _ (FUNCTION NILL) IMFILLCIRCLE _ (FUNCTION NILL) IMBLTSHADE _ (FUNCTION NILL) 
 IMBITBLT _ (FUNCTION NILL) IMSCALE _ (FUNCTION NILL) IMTOPMARGIN _ (FUNCTION NILL) IMBOTTOMMARGIN _ (
 FUNCTION NILL) IMSPACEFACTOR _ (FUNCTION NILL) IMFONTCREATE _ (FUNCTION NILL) IMCHARWIDTHY _ (FUNCTION
- NILL) IMDRAWPOLYGON _ (FUNCTION \DRAWPOLYGON.GENERIC) IMDRAWPOINT _ (FUNCTION \DRAWPOINT.GENERIC) 
+ NILL) IMDRAWPOLYGON _ (FUNCTION \\DRAWPOLYGON.GENERIC) IMDRAWPOINT _ (FUNCTION \\DRAWPOINT.GENERIC) 
 IMFILLPOLYGON _ (FUNCTION NILL) IMSCALEDBITBLT _ (FUNCTION NILL) IMROTATE _ (FUNCTION NILL) IMDRAWARC 
 _ (FUNCTION NILL) IMTRANSLATE _ (FUNCTION NILL) IMPUSHSTATE _ (FUNCTION NILL) IMPOPSTATE _ (FUNCTION 
-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-Apr-2021 20:06:09"))
+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 " 6-May-2021 15:25:40"))
 
-(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") (
-PROCNAME POINTER) (* ; "Name for convenience in type-in reference") (PROCPRIORITY BYTE) (* ; 
-"Priority level, 0-4.  Not currently used.") (PROCQUEUE POINTER) (* ; 
-"Queue of processes at the same priority") (NIL BYTE) (NEXTPROCHANDLE POINTER) (* ; 
-"Pointer to next one") (PROCTIMERSET FLAG) (* ; "True if PROCWAKEUPTIMER has an interesting value") (
-PROCBEINGDELETED FLAG) (* ; "True if proc was deleted, but hasn't been removed from \PROCESSES yet") (
-PROCDELETED FLAG) (PROCSYSTEMP FLAG) (PROCNEVERSTARTED FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (
-PROCWAKEUPTIMER POINTER) (* ; "a largep recording the time this proc last went to sleep") (
-PROCTIMERLINK POINTER) (* ; "For linking proc in timer queue") (PROCTIMERBOX POINTER) (* ; 
+(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") 
+(PROCNAME POINTER) (* \; "Name for convenience in type-in reference") (PROCPRIORITY BYTE) (* \; 
+"Priority level, 0-4.  Not currently used.") (PROCQUEUE POINTER) (* \; 
+"Queue of processes at the same priority") (NIL BYTE) (NEXTPROCHANDLE POINTER) (* \; 
+"Pointer to next one") (PROCTIMERSET FLAG) (* \; "True if PROCWAKEUPTIMER has an interesting value") (
+PROCBEINGDELETED FLAG) (* \; "True if proc was deleted, but hasn't been removed from \\PROCESSES yet")
+ (PROCDELETED FLAG) (PROCSYSTEMP FLAG) (PROCNEVERSTARTED FLAG) (NIL FLAG) (NIL FLAG) (NIL FLAG) (
+PROCWAKEUPTIMER POINTER) (* \; "a largep recording the time this proc last went to sleep") (
+PROCTIMERLINK POINTER) (* \; "For linking proc in timer queue") (PROCTIMERBOX POINTER) (* \; 
 "Scratch box to use for PROCWAKEUPTIMER when user does not give one explicitly") (WAKEREASON POINTER) 
-(* ; "Reason process is being run.  From WAKE.PROCESS or timer or event wakeup;  T from simple BLOCK")
- (PROCEVENTORLOCK POINTER) (* ; "EVENT or MONITOR lock that this proc is waiting for") (PROCFORM 
-POINTER) (* ; "Form to EVAL to start it going") (RESTARTABLE POINTER) (* ; 
+(* \; "Reason process is being run.  From WAKE.PROCESS or timer or event wakeup;  T from simple BLOCK"
+) (PROCEVENTORLOCK POINTER) (* \; "EVENT or MONITOR lock that this proc is waiting for") (PROCFORM 
+POINTER) (* \; "Form to EVAL to start it going") (RESTARTABLE POINTER) (* \; 
 "T = autorestart on error, HARDRESET = restart only on hard reset, NIL = never restart") (PROCWINDOW 
-POINTER) (* ; "Window this process lives in, if any") (PROCFINISHED POINTER) (* ; 
+POINTER) (* \; "Window this process lives in, if any") (PROCFINISHED POINTER) (* \; 
 "True if proc finished.  Value is indication of how: NORMAL, DELETED, ERROR") (PROCRESULT POINTER) (* 
-; "Value it returned if it finished normally") (PROCFINISHEVENT POINTER) (* ; 
-"Optional EVENT to be notified when proc finishes") (PROCMAILBOX POINTER) (* ; "Message queue") (
-PROCDRIBBLEOUTPUT POINTER) (* ; "Binding for *DRIBBLE-OUTPUT* in this process") (PROCINFOHOOK POINTER)
- (* ; "Optional user fn that displays info about process") (PROCTYPEAHEAD POINTER) (* ; 
-"Buffer of typeahead destined for this proc") (PROCREMOTEINFO POINTER) (* ; "For Enterprise") (
-PROCUSERDATA POINTER) (* ; "For PROCESSPROP") (PROCEVENTLINK POINTER) (* ; 
-"Used to maintain EVENT queues") (PROCAFTEREXIT POINTER) (* ; 
-"What to do with this process when coming back from a LOGOUT, etc") (PROCBEFOREEXIT POINTER) (* ; 
-"If DON'T, can't logout") (PROCOWNEDLOCKS POINTER) (* ; "Pointer to first lock I currently own") (
-PROCEVAPPLYRESULT POINTER) (* ; "For PROCESS.EVAL and PROCESS.APPLY when WAITFORRESULT is true") (
-PROCTTYENTRYFN POINTER) (* ; "Is applied to a process when it becomes the tty process") (PROCTTYEXITFN
- POINTER) (* ; "Is applied to a process when it ceases to be the tty process") (PROCHARDRESETINFO 
-POINTER) (* ; "HARDRESET stores info about unwind-protect cleanups here") (PROCRESTARTFORM POINTER) (*
- ; "use this instead of PROCFORM when restarting") (PROCOLDTTYPROC POINTER) (* ; 
-"Process that had the tty when we got it") (NIL POINTER) (* ; "For expansion")) PROCTIMERBOX _ (
-CREATECELL \FIXP) PROCFX0 _ \STACKHI)
-(PUTPROPS THIS.PROCESS MACRO (NIL \RUNNING.PROCESS))
-(PUTPROPS TTY.PROCESS MACRO (X (COND ((CAR X) (QUOTE IGNOREMACRO)) (T (QUOTE \TTY.PROCESS)))))
+\; "Value it returned if it finished normally") (PROCFINISHEVENT POINTER) (* \; 
+"Optional EVENT to be notified when proc finishes") (PROCMAILBOX POINTER) (* \; "Message queue") (
+PROCDRIBBLEOUTPUT POINTER) (* \; "Binding for *DRIBBLE-OUTPUT* in this process") (PROCINFOHOOK POINTER
+) (* \; "Optional user fn that displays info about process") (PROCTYPEAHEAD POINTER) (* \; 
+"Buffer of typeahead destined for this proc") (PROCREMOTEINFO POINTER) (* \; "For Enterprise") (
+PROCUSERDATA POINTER) (* \; "For PROCESSPROP") (PROCEVENTLINK POINTER) (* \; 
+"Used to maintain EVENT queues") (PROCAFTEREXIT POINTER) (* \; 
+"What to do with this process when coming back from a LOGOUT, etc") (PROCBEFOREEXIT POINTER) (* \; 
+"If DON'T, can't logout") (PROCOWNEDLOCKS POINTER) (* \; "Pointer to first lock I currently own") (
+PROCEVAPPLYRESULT POINTER) (* \; "For PROCESS.EVAL and PROCESS.APPLY when WAITFORRESULT is true") (
+PROCTTYENTRYFN POINTER) (* \; "Is applied to a process when it becomes the tty process") (
+PROCTTYEXITFN POINTER) (* \; "Is applied to a process when it ceases to be the tty process") (
+PROCHARDRESETINFO POINTER) (* \; "HARDRESET stores info about unwind-protect cleanups here") (
+PROCRESTARTFORM POINTER) (* \; "use this instead of PROCFORM when restarting") (PROCOLDTTYPROC POINTER
+) (* \; "Process that had the tty when we got it") (NIL POINTER) (* \; "For expansion")) PROCTIMERBOX 
+_ (CREATECELL \\FIXP) PROCFX0 _ \\STACKHI)
+(PUTPROPS THIS.PROCESS MACRO (NIL \\RUNNING.PROCESS))
+(PUTPROPS TTY.PROCESS MACRO (X (COND ((CAR X) (QUOTE IGNOREMACRO)) (T (QUOTE \\TTY.PROCESS)))))
 (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-Apr-2021 20:06:09"))
+(GLOBALVARS \\RUNNING.PROCESS \\TTY.PROCESS \\PROC.RESTARTME \\PROC.RESETME \\PROC.ABORTME)
+(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(PUTPROPS \BACKCHAR MACRO (OPENLAMBDA (STREAM) (* ; "Backs up over an NS character") (\BACKNSCHAR 
+(PUTPROPS \\BACKCHAR MACRO (OPENLAMBDA (STREAM) (* \; "Backs up over an NS character") (\\BACKNSCHAR 
 STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256))))
-(PUTPROPS \BACKNSCHAR MACRO ((ST SHIFTEDCHARSET COUNTERVAR) (COND ((\XCCSP ST) (\BACKXCCSCHAR ST 
+(PUTPROPS \\BACKNSCHAR MACRO ((ST SHIFTEDCHARSET COUNTERVAR) (COND ((\\XCCSP ST) (\\BACKXCCSCHAR ST 
 SHIFTEDCHARSET COUNTERVAR)) (T (COND ((QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR (
-CL:FUNCALL (ffetch (STREAM BACKCHARFN) of ST) ST T)))) (T (CL:FUNCALL (ffetch (STREAM BACKCHARFN) of 
-ST) ST NIL)))))))
-(PUTPROPS \CHECKEOLC MACRO (OPENLAMBDA (CH EOLC STREAM PEEKBINFLG COUNTERVAR) (* ;; 
+CL:FUNCALL (|ffetch| (STREAM BACKCHARFN) |of| ST) ST T)))) (T (CL:FUNCALL (|ffetch| (STREAM BACKCHARFN
+) |of| ST) ST NIL)))))))
+(PUTPROPS \\CHECKEOLC MACRO (OPENLAMBDA (CH EOLC STREAM PEEKBINFLG COUNTERVAR) (* |;;| 
 "Subtracts number of bytes read from COUNTERVAR, which may be NIL.  In fact, should be NIL if PEEKBINFLG is T."
-) (SELCHARQ CH (CR (SELECTC EOLC (CR.EOLC (CHARCODE EOL)) (CRLF.EOLC (COND (PEEKBINFLG (* ;; 
+) (SELCHARQ CH (CR (SELECTC EOLC (CR.EOLC (CHARCODE EOL)) (CRLF.EOLC (COND (PEEKBINFLG (* |;;| 
 "T from PEEKC, compile-time constant.  In this case, must leave the fileptr where it was, except for possibly advancing over character set shifts"
-) (COND ((EQ (CHARCODE LF) (UNINTERRUPTABLY (\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256)) (* ;; 
-"Read the NS CR.  We know that there aren't any font-shift characters in front of the CR, because they would have already been read by the \NSPEEK that got the CR character.  Since we are going to NS back the CR character, we don't need to update the counter variable"
-) (PROG1 (\PEEKBIN STREAM T) (* ;; 
-"LF must be in next BYTE after NS CR, regardless of coding.  Character-set shifting bytes can't intervene.  Then we back up over the CR that was \NSINed above."
-) (\BACKNSCHAR STREAM)))) (CHARCODE EOL)) (T (CHARCODE CR)))) ((EQ (CHARCODE LF) (\PEEKBIN STREAM T)) 
-(\BIN STREAM) (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (SUB1 COUNTERVAR))) (CHARCODE EOL)) (T (
+) (COND ((EQ (CHARCODE LF) (UNINTERRUPTABLY (\\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256)) (* 
+|;;| 
+"Read the NS CR.  We know that there aren't any font-shift characters in front of the CR, because they would have already been read by the \\NSPEEK that got the CR character.  Since we are going to NS back the CR character, we don't need to update the counter variable"
+) (PROG1 (\\PEEKBIN STREAM T) (* |;;| 
+"LF must be in next BYTE after NS CR, regardless of coding.  Character-set shifting bytes can't intervene.  Then we back up over the CR that was \\NSINed above."
+) (\\BACKNSCHAR STREAM)))) (CHARCODE EOL)) (T (CHARCODE CR)))) ((EQ (CHARCODE LF) (\\PEEKBIN STREAM T)
+) (\\BIN STREAM) (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (SUB1 COUNTERVAR))) (CHARCODE EOL)) (T (
 CHARCODE CR)))) (CHARCODE CR))) (LF (COND ((EQ EOLC LF.EOLC) (CHARCODE EOL)) (T (CHARCODE LF)))) CH)))
-(PUTPROPS \INCHAR MACRO (OPENLAMBDA (STREAM COUNTERVAR) (* ; "returns a 16 bit character code") (
-\CHECKEOLC (\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256) NIL COUNTERVAR) (FFETCH EOLCONVENTION OF
- STREAM) STREAM NIL COUNTERVAR)))
-(PUTPROPS \INCCODE MACRO (OPENLAMBDA (STREAM COUNTERVAR) (* ; "returns a 16 bit character code") (
-\CHECKEOLC (\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256) NIL COUNTERVAR) (ffetch EOLCONVENTION of
- STREAM) STREAM NIL COUNTERVAR)))
-(PUTPROPS \PEEKCCODE MACRO (OPENLAMBDA (STREAM NOERROR) (\CHECKEOLC (\NSPEEK STREAM (UNFOLD (
-ACCESS-CHARSET STREAM) 256) NIL NOERROR) (ffetch EOLCONVENTION of STREAM) STREAM T)))
-(PUTPROPS \NSIN MACRO ((ST SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) (* ;;; 
+(PUTPROPS \\INCHAR MACRO (OPENLAMBDA (STREAM COUNTERVAR) (* \; "returns a 16 bit character code") (
+\\CHECKEOLC (\\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256) NIL COUNTERVAR) (FFETCH EOLCONVENTION 
+OF STREAM) STREAM NIL COUNTERVAR)))
+(PUTPROPS \\INCCODE MACRO (OPENLAMBDA (STREAM COUNTERVAR) (* \; "returns a 16 bit character code") (
+\\CHECKEOLC (\\NSIN STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256) NIL COUNTERVAR) (|ffetch| 
+EOLCONVENTION |of| STREAM) STREAM NIL COUNTERVAR)))
+(PUTPROPS \\PEEKCCODE MACRO (OPENLAMBDA (STREAM NOERROR) (\\CHECKEOLC (\\NSPEEK STREAM (UNFOLD (
+ACCESS-CHARSET STREAM) 256) NIL NOERROR) (|ffetch| EOLCONVENTION |of| STREAM) STREAM T)))
+(PUTPROPS \\NSIN MACRO ((ST SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) (* |;;;| 
 "Dispatches to the appropriate character code decoder.  If you want to support a new character encoding format, you have to write a decoder and add it here."
-) (COND ((\XCCSP ST) (\XCCSIN ST SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR)) (T (COND ((QUOTE COUNTERVAR) 
-(CL:MULTIPLE-VALUE-BIND (CODE NUM) (CL:FUNCALL (ffetch (STREAM INCCODEFN) of ST) ST T) (AND NUM (SETQ 
-COUNTERVAR (IDIFFERENCE COUNTERVAR NUM))) CODE)) (T (CL:FUNCALL (ffetch (STREAM INCCODEFN) of ST) ST 
-NIL)))))))
-(PUTPROPS \NSPEEK MACRO ((ST SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) (* ;;; 
+) (COND ((\\XCCSP ST) (\\XCCSIN ST SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR)) (T (COND ((QUOTE COUNTERVAR
+) (CL:MULTIPLE-VALUE-BIND (CODE NUM) (CL:FUNCALL (|ffetch| (STREAM INCCODEFN) |of| ST) ST T) (AND NUM 
+(SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR NUM))) CODE)) (T (CL:FUNCALL (|ffetch| (STREAM INCCODEFN) 
+|of| ST) ST NIL)))))))
+(PUTPROPS \\NSPEEK MACRO ((ST SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) (* |;;;| 
 "Dispatches to the appropriate character code decoder.  If you want to support a new character encoding format, you have to write a decoder and add it here."
-) (COND ((\XCCSP ST) (\XCCSPEEK ST (UNFOLD (ACCESS-CHARSET ST) 256) NIL NOERROR)) (T (COND ((QUOTE 
-COUNTERVAR) (CL:MULTIPLE-VALUE-BIND (CODE NUM) (CL:FUNCALL (ffetch (STREAM PEEKCCODEFN) of ST) ST 
-NOERROR T) (AND NUM (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR NUM))) CODE)) (T (CL:FUNCALL (ffetch (
-STREAM PEEKCCODEFN) of ST) ST NOERROR NIL)))))))
+) (COND ((\\XCCSP ST) (\\XCCSPEEK ST (UNFOLD (ACCESS-CHARSET ST) 256) NIL NOERROR)) (T (COND ((QUOTE 
+COUNTERVAR) (CL:MULTIPLE-VALUE-BIND (CODE NUM) (CL:FUNCALL (|ffetch| (STREAM PEEKCCODEFN) |of| ST) ST 
+NOERROR T) (AND NUM (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR NUM))) CODE)) (T (CL:FUNCALL (|ffetch| (
+STREAM PEEKCCODEFN) |of| ST) ST NOERROR NIL)))))))
 (PUTPROPS NUMERIC-CHARSET MACRO (= . ACCESS-CHARSET))
-(PUTPROPS \CONV.JIS.TO.XCCS MACRO (OPENLAMBDA (KU TEN) (* ;;; 
+(PUTPROPS \\CONV.JIS.TO.XCCS MACRO (OPENLAMBDA (KU TEN) (* |;;;| 
 "Some character code is not equivalent between JIS and XCCS.  In such case, we have to convert the character to corresponding XCCS."
-) (COND ((\NOT.EQUIVALENT.TO.XCCS KU) (\DO.CONV.JIS.TO.XCCS KU TEN)) (T (LOGOR (UNFOLD KU 256) TEN))))
-)
-(PUTPROPS \DO.CONV.JIS.TO.XCCS MACRO ((KU TEN) (* ;;; 
-" Convert a JIS code divided into KU (high 8 bit) and TEN (low 8 bit) to an corresponding XCCS code.")
- (COND ((\INVALID.TENP TEN) *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (SELECTQ KU ((33 34 38) (* ; 
-"1, 2 and 6 KU") (LET* ((CONVTABLE (\EXTARACT.CONV.TABLE KU)) (SET (\EXTRACT.SET TEN CONVTABLE)) (CODE
- (\EXTRACT.CODE TEN CONVTABLE))) (COND ((NEQ SET 255) (LOGOR (UNFOLD SET 256) CODE)) (T (COND ((EQ 
-CODE 255) (* ; "Not defined in JIS.") *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (* ; 
-"Defined in JIS but the displayable font is not assigned in the corresponding code in XCCS.") (COND (
-*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (\EXTRACT.NO.FONT.CODE (LOGOR (UNFOLD KU 
-256) TEN)))))))))) (35 (* ; "3 KU") (* ; 
-"Alpha numeric codes are all defined as single byte codes in XCCS.") TEN) (40 (* ; "8 KU") (COND ((< 0
- TEN 33) (COND (*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (\EXTRACT.NO.FONT.CODE (
-LOGOR KU TEN))))) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) (116 (* ; "84 KU") (COND ((< 0 TEN 5) (LOGOR 
-29952 TEN)) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) (117 (* ; "85 KU") (COND ((< 0 TEN 28) (LOGOR 29696
- TEN)) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) *DEFAULT-NOT-CONVERTED-FAT-CODE*)))))
-(PUTPROPS \CONV.XCCS.TO.JIS MACRO (OPENLAMBDA (OUTSTREAM CC) (* ;;; 
-"Returns JIS code corresponding to XCCS charcode.  Handle HANKAKU as well as ZENKAKU.  If OUTSTREAM wants to convert ZENKAKUKANA to HANKAKUKANA, do so.  Never returns two byte charcode for alpha-numeric character, they are all treated as single byte characode."
-) (OR (COND ((\ASCIIP CC) CC) ((\NOT.EQUIVALENT.TO.JIS CC) (\DO.CONV.XCCS.TO.JIS CC)) ((
-\CONV.HANKAKU.TO.ZENKAKUP OUTSTREAM) (* ; 
-"ZENKAKUKANA comes here, because their charcodes are equiavalent to JIS.") (\CONV.ZENKAKU.KANA CC)) (T
- CC)) CC)))
-(PUTPROPS \DO.CONV.XCCS.TO.JIS MACRO ((CC) (GETHASH CC *XCCS-TO-JIS-CONV-TABLE*)))
-(PUTPROPS \ASCIIP MACRO (OPENLAMBDA (CC) (AND (EQ (FOLDLO CC 256) 0) (< (LOGAND CC 255) 128))))
-(PUTPROPS \NOT.EQUIVALENT.TO.JIS MACRO (OPENLAMBDA (CC) (OR (EQ (FOLDLO CC 256) 0) (EQ (FOLDLO CC 256)
- 33) (EQ (FOLDLO CC 256) 34) (EQ (FOLDLO CC 256) 38) (EQ (FOLDLO CC 256) 40) (EQ (FOLDLO CC 256) 239) 
-(EQ (FOLDLO CC 256) 241))))
-(PUTPROPS \CONV.HANKAKU.TO.ZENKAKUP MACRO ((OUTSTREAM) (STREAMPROP OUTSTREAM :HTOZP)))
-(PUTPROPS \CONV.ZENKAKU.KANA MACRO ((CHAR) (GETHASH CHAR *ZENKAKU-TO-HANKAKU-CONV-TABLE*)))
-(PUTPROPS \XCCSIN MACRO ((STREAM SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) (* ;;; 
-"returns a 16 bit character code.  SHIFTEDCSET is STREAM's char set left shifted 8, SHIFTEDCSETVAR if non-NIL is the variable to set if char set changes.  COUNTERVAR if non-NIL is decremented by number of bytes read.  Doesn't do EOL conversion -- \INCHAR and \INCCODE do that."
-) (LET ((CHAR (\BIN STREAM)) SCSET) (COND ((EQ CHAR NSCHARSETSHIFT) (* ; "Shifting character sets") (
-ACCESS-CHARSET STREAM (SETQ SCSET (COND ((NEQ NSCHARSETSHIFT (SETQ CHAR (\BIN STREAM))) (AND (QUOTE 
-COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) CHAR) ((PROGN (* ; 
-"2 shift-bytes means not run-encoded") (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE 
-COUNTERVAR 3))) (EQ 0 (\BIN STREAM))) \NORUNCODE) (T (\NSIN.24BITENCODING.ERROR STREAM))))) (SETQ CHAR
- (\BIN STREAM)) (SETQ SCSET (COND ((QUOTE SHIFTEDCSETVAR) (* ; "CHARSETVAR=NIL means don't set") (SETQ
- SHIFTEDCSETVAR (UNFOLD SCSET 256))) (T (UNFOLD SCSET 256))))) (T (SETQ SCSET SHIFTEDCSET))) (COND ((
-EQ SCSET (UNFOLD \NORUNCODE 256)) (* ; "just read two bytes and combine them to a 16 bit value") (AND 
-(QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) (LOGOR (UNFOLD CHAR 256) (\BIN STREAM
-))) (CHAR (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 1))) (AND CHAR (LOGOR SCSET
- CHAR)))))))
-(PUTPROPS \XCCSPEEK MACRO ((STREAM SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) (* ;; 
-"Returns a 16 bit character code.  Doesn't do EOL conversion--\INCHAR does that.  May actually read the character-set shift, storing the result in the stream.  COUNTERVAR, if given, is updated to reflect any such bytes that are actually read"
-) (PROG ((CHAR (\PEEKBIN STREAM NOERROR)) SCSET) (COND ((NULL CHAR) (RETURN NIL)) ((EQ CHAR 
-NSCHARSETSHIFT) (* ; "CHARSETVAR=NIL means don't set") (\BIN STREAM) (* ; 
-"Consume the char shift byte") (ACCESS-CHARSET STREAM (SETQ SCSET (COND ((NEQ NSCHARSETSHIFT (SETQ 
-CHAR (\BIN STREAM))) (* ; 
-"Note: no eof error check on this \BIN -- an eof in the middle of a charset shift is an error") (AND (
-QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) CHAR) ((PROGN (* ; 
-"2 shift-bytes means not run-encoded") (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE 
-COUNTERVAR 3))) (EQ 0 (\BIN STREAM))) \NORUNCODE) (T (\NSIN.24BITENCODING.ERROR STREAM))))) (SETQ 
-SCSET (COND ((QUOTE SHIFTEDCSETVAR) (* ; "CHARSETVAR=NIL means don't set") (SETQ SHIFTEDCSETVAR (
-UNFOLD SCSET 256))) (T (UNFOLD SCSET 256)))) (COND ((NULL (SETQ CHAR (\PEEKBIN STREAM NOERROR))) (
-RETURN NIL)))) (T (SETQ SCSET SHIFTEDCSET))) (RETURN (COND ((EQ SCSET (UNFOLD \NORUNCODE 256)) (* ;; 
-"just peek two bytes and combine them to a 16 bit value.  Again, is an error if we hit eof in mid-character"
-) (\BIN STREAM) (PROG1 (LOGOR (UNFOLD CHAR 256) (\PEEKBIN STREAM NOERROR)) (\BACKFILEPTR STREAM))) (T 
-(LOGOR SHIFTEDCSET CHAR)))))))
-(PUTPROPS \BACKXCCSCHAR MACRO ((STREAM SHIFTEDCHARSET COUNTERVAR) (AND (\BACKFILEPTR STREAM) (COND ((
-COND (SHIFTEDCHARSET (EQ SHIFTEDCHARSET (UNFOLD \NORUNCODE 256))) (T (EQ \NORUNCODE (ACCESS-CHARSET 
-STREAM)))) (COND ((\BACKFILEPTR STREAM) (AND (QUOTE COUNTERVAR) (add COUNTERVAR 2)) T) ((QUOTE 
-COUNTERVAR) (add COUNTERVAR 1)))) ((QUOTE COUNTERVAR) (add COUNTERVAR 1))))))
-(PUTPROPS \XCCSP MACRO (OPENLAMBDA (ST) (NOT (ffetch (STREAM NOTXCCS) of (\DTEST ST (QUOTE STREAM)))))
-)
-(PUTPROPS \EXTRACT.NO.FONT.CODE MACRO ((JISCODE) (CDR (ASSOC JISCODE *JIS-TO-XCCS-CONV-NO-FONT-TABLE*)
+) (COND ((\\NOT.EQUIVALENT.TO.XCCS KU) (\\DO.CONV.JIS.TO.XCCS KU TEN)) (T (LOGOR (UNFOLD KU 256) TEN))
 )))
-(PUTPROPS \EXTARACT.CONV.TABLE MACRO ((KU) (CDR (ASSOC KU *JIS-TO-XCCS-CONV-TABLE-LIST*))))
-(PUTPROPS \NOT.EQUIVALENT.TO.XCCS MACRO ((KU) (* ;;; 
+(PUTPROPS \\DO.CONV.JIS.TO.XCCS MACRO ((KU TEN) (* |;;;| 
+" Convert a JIS code divided into KU (high 8 bit) and TEN (low 8 bit) to an corresponding XCCS code.")
+ (COND ((\\INVALID.TENP TEN) *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (SELECTQ KU ((33 34 38) (* \; 
+"1, 2 and 6 KU") (LET* ((CONVTABLE (\\EXTARACT.CONV.TABLE KU)) (SET (\\EXTRACT.SET TEN CONVTABLE)) (
+CODE (\\EXTRACT.CODE TEN CONVTABLE))) (COND ((NEQ SET 255) (LOGOR (UNFOLD SET 256) CODE)) (T (COND ((
+EQ CODE 255) (* \; "Not defined in JIS.") *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (* \; 
+"Defined in JIS but the displayable font is not assigned in the corresponding code in XCCS.") (COND (
+*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (\\EXTRACT.NO.FONT.CODE (LOGOR (UNFOLD KU 
+256) TEN)))))))))) (35 (* \; "3 KU") (* \; 
+"Alpha numeric codes are all defined as single byte codes in XCCS.") TEN) (40 (* \; "8 KU") (COND ((< 
+0 TEN 33) (COND (*REPLACE-NO-FONT-CODE* *DEFAULT-NOT-CONVERTED-FAT-CODE*) (T (\\EXTRACT.NO.FONT.CODE (
+LOGOR KU TEN))))) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) (116 (* \; "84 KU") (COND ((< 0 TEN 5) (LOGOR
+ 29952 TEN)) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) (117 (* \; "85 KU") (COND ((< 0 TEN 28) (LOGOR 
+29696 TEN)) (T *DEFAULT-NOT-CONVERTED-FAT-CODE*))) *DEFAULT-NOT-CONVERTED-FAT-CODE*)))))
+(PUTPROPS \\CONV.XCCS.TO.JIS MACRO (OPENLAMBDA (OUTSTREAM CC) (* |;;;| 
+"Returns JIS code corresponding to XCCS charcode.  Handle HANKAKU as well as ZENKAKU.  If OUTSTREAM wants to convert ZENKAKUKANA to HANKAKUKANA, do so.  Never returns two byte charcode for alpha-numeric character, they are all treated as single byte characode."
+) (OR (COND ((\\ASCIIP CC) CC) ((\\NOT.EQUIVALENT.TO.JIS CC) (\\DO.CONV.XCCS.TO.JIS CC)) ((
+\\CONV.HANKAKU.TO.ZENKAKUP OUTSTREAM) (* \; 
+"ZENKAKUKANA comes here, because their charcodes are equiavalent to JIS.") (\\CONV.ZENKAKU.KANA CC)) (
+T CC)) CC)))
+(PUTPROPS \\DO.CONV.XCCS.TO.JIS MACRO ((CC) (GETHASH CC *XCCS-TO-JIS-CONV-TABLE*)))
+(PUTPROPS \\ASCIIP MACRO (OPENLAMBDA (CC) (AND (EQ (FOLDLO CC 256) 0) (< (LOGAND CC 255) 128))))
+(PUTPROPS \\NOT.EQUIVALENT.TO.JIS MACRO (OPENLAMBDA (CC) (OR (EQ (FOLDLO CC 256) 0) (EQ (FOLDLO CC 256
+) 33) (EQ (FOLDLO CC 256) 34) (EQ (FOLDLO CC 256) 38) (EQ (FOLDLO CC 256) 40) (EQ (FOLDLO CC 256) 239)
+ (EQ (FOLDLO CC 256) 241))))
+(PUTPROPS \\CONV.HANKAKU.TO.ZENKAKUP MACRO ((OUTSTREAM) (STREAMPROP OUTSTREAM :HTOZP)))
+(PUTPROPS \\CONV.ZENKAKU.KANA MACRO ((CHAR) (GETHASH CHAR *ZENKAKU-TO-HANKAKU-CONV-TABLE*)))
+(PUTPROPS \\XCCSIN MACRO ((STREAM SHIFTEDCSET SHIFTEDCSETVAR COUNTERVAR) (* |;;;| 
+"returns a 16 bit character code.  SHIFTEDCSET is STREAM's char set left shifted 8, SHIFTEDCSETVAR if non-NIL is the variable to set if char set changes.  COUNTERVAR if non-NIL is decremented by number of bytes read.  Doesn't do EOL conversion -- \\INCHAR and \\INCCODE do that."
+) (LET ((CHAR (\\BIN STREAM)) SCSET) (COND ((EQ CHAR NSCHARSETSHIFT) (* \; "Shifting character sets") 
+(ACCESS-CHARSET STREAM (SETQ SCSET (COND ((NEQ NSCHARSETSHIFT (SETQ CHAR (\\BIN STREAM))) (AND (QUOTE 
+COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) CHAR) ((PROGN (* \; 
+"2 shift-bytes means not run-encoded") (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE 
+COUNTERVAR 3))) (EQ 0 (\\BIN STREAM))) \\NORUNCODE) (T (\\NSIN.24BITENCODING.ERROR STREAM))))) (SETQ 
+CHAR (\\BIN STREAM)) (SETQ SCSET (COND ((QUOTE SHIFTEDCSETVAR) (* \; "CHARSETVAR=NIL means don't set")
+ (SETQ SHIFTEDCSETVAR (UNFOLD SCSET 256))) (T (UNFOLD SCSET 256))))) (T (SETQ SCSET SHIFTEDCSET))) (
+COND ((EQ SCSET (UNFOLD \\NORUNCODE 256)) (* \; 
+"just read two bytes and combine them to a 16 bit value") (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (
+IDIFFERENCE COUNTERVAR 2))) (LOGOR (UNFOLD CHAR 256) (\\BIN STREAM))) (CHAR (AND (QUOTE COUNTERVAR) (
+SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 1))) (AND CHAR (LOGOR SCSET CHAR)))))))
+(PUTPROPS \\XCCSPEEK MACRO ((STREAM SHIFTEDCSET SHIFTEDCSETVAR NOERROR COUNTERVAR) (* |;;| 
+"Returns a 16 bit character code.  Doesn't do EOL conversion--\\INCHAR does that.  May actually read the character-set shift, storing the result in the stream.  COUNTERVAR, if given, is updated to reflect any such bytes that are actually read"
+) (PROG ((CHAR (\\PEEKBIN STREAM NOERROR)) SCSET) (COND ((NULL CHAR) (RETURN NIL)) ((EQ CHAR 
+NSCHARSETSHIFT) (* \; "CHARSETVAR=NIL means don't set") (\\BIN STREAM) (* \; 
+"Consume the char shift byte") (ACCESS-CHARSET STREAM (SETQ SCSET (COND ((NEQ NSCHARSETSHIFT (SETQ 
+CHAR (\\BIN STREAM))) (* \; 
+"Note: no eof error check on this \\BIN -- an eof in the middle of a charset shift is an error") (AND 
+(QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE COUNTERVAR 2))) CHAR) ((PROGN (* \; 
+"2 shift-bytes means not run-encoded") (AND (QUOTE COUNTERVAR) (SETQ COUNTERVAR (IDIFFERENCE 
+COUNTERVAR 3))) (EQ 0 (\\BIN STREAM))) \\NORUNCODE) (T (\\NSIN.24BITENCODING.ERROR STREAM))))) (SETQ 
+SCSET (COND ((QUOTE SHIFTEDCSETVAR) (* \; "CHARSETVAR=NIL means don't set") (SETQ SHIFTEDCSETVAR (
+UNFOLD SCSET 256))) (T (UNFOLD SCSET 256)))) (COND ((NULL (SETQ CHAR (\\PEEKBIN STREAM NOERROR))) (
+RETURN NIL)))) (T (SETQ SCSET SHIFTEDCSET))) (RETURN (COND ((EQ SCSET (UNFOLD \\NORUNCODE 256)) (* 
+|;;| 
+"just peek two bytes and combine them to a 16 bit value.  Again, is an error if we hit eof in mid-character"
+) (\\BIN STREAM) (PROG1 (LOGOR (UNFOLD CHAR 256) (\\PEEKBIN STREAM NOERROR)) (\\BACKFILEPTR STREAM))) 
+(T (LOGOR SHIFTEDCSET CHAR)))))))
+(PUTPROPS \\BACKXCCSCHAR MACRO ((STREAM SHIFTEDCHARSET COUNTERVAR) (AND (\\BACKFILEPTR STREAM) (COND (
+(COND (SHIFTEDCHARSET (EQ SHIFTEDCHARSET (UNFOLD \\NORUNCODE 256))) (T (EQ \\NORUNCODE (ACCESS-CHARSET
+ STREAM)))) (COND ((\\BACKFILEPTR STREAM) (AND (QUOTE COUNTERVAR) (|add| COUNTERVAR 2)) T) ((QUOTE 
+COUNTERVAR) (|add| COUNTERVAR 1)))) ((QUOTE COUNTERVAR) (|add| COUNTERVAR 1))))))
+(PUTPROPS \\XCCSP MACRO (OPENLAMBDA (ST) (NOT (|ffetch| (STREAM NOTXCCS) |of| (\\DTEST ST (QUOTE 
+STREAM))))))
+(PUTPROPS \\EXTRACT.NO.FONT.CODE MACRO ((JISCODE) (CDR (ASSOC JISCODE *JIS-TO-XCCS-CONV-NO-FONT-TABLE*
+))))
+(PUTPROPS \\EXTARACT.CONV.TABLE MACRO ((KU) (CDR (ASSOC KU *JIS-TO-XCCS-CONV-TABLE-LIST*))))
+(PUTPROPS \\NOT.EQUIVALENT.TO.XCCS MACRO ((KU) (* |;;;| 
 " The JIS codes which are not equiavelent to XCCS reside in 1, 2, 3, 6, 8 and 84 KU.  Although from 84-5 to 94-94 inclusive are not defined in JIS, that is they are GAIJI, they are also handled here."
 ) (OR (EQ KU 33) (EQ KU 34) (EQ KU 35) (EQ KU 38) (EQ KU 40) (EQ KU 116) (EQ KU 117))))
-(PUTPROPS \EXTRACT.SET MACRO ((TEN TABLE) (ELT TABLE (IDIFFERENCE (UNFOLD (IDIFFERENCE TEN 32) 2) 1)))
-)
-(PUTPROPS \EXTRACT.CODE MACRO ((TEN TABLE) (ELT TABLE (UNFOLD (IDIFFERENCE TEN 32) 2))))
-(PUTPROPS \CHNAGE.KI.MODE MACRO (OPENLAMBDA (ST INPUTFLG ENTERP) (* ;;; 
-"INPUTFLG is true if \CHNAGE.KI.MODE is called in the context in which ST is an input stream.") (COND 
-(INPUTFLG (COND (ENTERP (freplace (STREAM IN.KANJIIN) of (\DTEST ST (QUOTE STREAM)) with T)) (T (
-freplace (STREAM IN.KANJIIN) of (\DTEST ST (QUOTE STREAM)) with NIL)))) (T (COND (ENTERP (freplace (
-STREAM OUT.KANJIIN) of (\DTEST ST (QUOTE STREAM)) with T)) (T (freplace (STREAM OUT.KANJIIN) of (
-\DTEST ST (QUOTE STREAM)) with NIL)))))))
-(PUTPROPS \KIMODEP MACRO (OPENLAMBDA (ST INPUTFLG) (* ;;; 
-"INPUTFLG is true if \KIMODEP is called in the context in which ST is an input stream.") (COND (
-INPUTFLG (ffetch (STREAM IN.KANJIIN) of (\DTEST ST (QUOTE STREAM)))) (T (ffetch (STREAM OUT.KANJIIN) 
-of (\DTEST ST (QUOTE STREAM)))))))
-(PUTPROPS \HANKAKUP MACRO ((CHAR) (< 160 CHAR 224)))
-(PUTPROPS \KANJIP MACRO ((CHAR) (< 12158 CHAR 29733)))
-(PUTPROPS \NOTGAIJIP MACRO ((CHAR) (OR (< 8480 CHAR 10305) (< 12158 CHAR 29733))))
-(PUTPROPS \INVALID.TENP MACRO (OPENLAMBDA (TEN) (OR (< TEN 33) (< 126 TEN))))
-(PUTPROPS \CONV.HANKAKU.KANA MACRO ((CHAR) (GETHASH CHAR *HANKAKU-TO-ZENKAKU-CONV-TABLE*)))
-(PUTPROPS \OUTKI MACRO ((STREAM) (\BOUT OUTSTREAM (CHARCODE ESC)) (\BOUT OUTSTREAM (CHARCODE $)) (
-\BOUT OUTSTREAM (CHARCODE B))))
-(PUTPROPS \OUTKO MACRO ((STREAM) (\BOUT OUTSTREAM (CHARCODE ESC)) (\BOUT OUTSTREAM (CHARCODE %()) (
-\BOUT OUTSTREAM (CHARCODE J))))
-(PUTPROPS \CONV.SJIS.TO.JIS MACRO (OPENLAMBDA (HI LO) (* ;;; 
+(PUTPROPS \\EXTRACT.SET MACRO ((TEN TABLE) (ELT TABLE (IDIFFERENCE (UNFOLD (IDIFFERENCE TEN 32) 2) 1))
+))
+(PUTPROPS \\EXTRACT.CODE MACRO ((TEN TABLE) (ELT TABLE (UNFOLD (IDIFFERENCE TEN 32) 2))))
+(PUTPROPS \\CHNAGE.KI.MODE MACRO (OPENLAMBDA (ST INPUTFLG ENTERP) (* |;;;| 
+"INPUTFLG is true if \\CHNAGE.KI.MODE is called in the context in which ST is an input stream.") (COND
+ (INPUTFLG (COND (ENTERP (|freplace| (STREAM IN.KANJIIN) |of| (\\DTEST ST (QUOTE STREAM)) |with| T)) (
+T (|freplace| (STREAM IN.KANJIIN) |of| (\\DTEST ST (QUOTE STREAM)) |with| NIL)))) (T (COND (ENTERP (
+|freplace| (STREAM OUT.KANJIIN) |of| (\\DTEST ST (QUOTE STREAM)) |with| T)) (T (|freplace| (STREAM 
+OUT.KANJIIN) |of| (\\DTEST ST (QUOTE STREAM)) |with| NIL)))))))
+(PUTPROPS \\KIMODEP MACRO (OPENLAMBDA (ST INPUTFLG) (* |;;;| 
+"INPUTFLG is true if \\KIMODEP is called in the context in which ST is an input stream.") (COND (
+INPUTFLG (|ffetch| (STREAM IN.KANJIIN) |of| (\\DTEST ST (QUOTE STREAM)))) (T (|ffetch| (STREAM 
+OUT.KANJIIN) |of| (\\DTEST ST (QUOTE STREAM)))))))
+(PUTPROPS \\HANKAKUP MACRO ((CHAR) (< 160 CHAR 224)))
+(PUTPROPS \\KANJIP MACRO ((CHAR) (< 12158 CHAR 29733)))
+(PUTPROPS \\NOTGAIJIP MACRO ((CHAR) (OR (< 8480 CHAR 10305) (< 12158 CHAR 29733))))
+(PUTPROPS \\INVALID.TENP MACRO (OPENLAMBDA (TEN) (OR (< TEN 33) (< 126 TEN))))
+(PUTPROPS \\CONV.HANKAKU.KANA MACRO ((CHAR) (GETHASH CHAR *HANKAKU-TO-ZENKAKU-CONV-TABLE*)))
+(PUTPROPS \\OUTKI MACRO ((STREAM) (\\BOUT OUTSTREAM (CHARCODE ESC)) (\\BOUT OUTSTREAM (CHARCODE $)) (
+\\BOUT OUTSTREAM (CHARCODE B))))
+(PUTPROPS \\OUTKO MACRO ((STREAM) (\\BOUT OUTSTREAM (CHARCODE ESC)) (\\BOUT OUTSTREAM (CHARCODE \()) (
+\\BOUT OUTSTREAM (CHARCODE J))))
+(PUTPROPS \\CONV.SJIS.TO.JIS MACRO (OPENLAMBDA (HI LO) (* |;;;| 
 "Convert Shift-JIS to JIS.  The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of JIS code respectively."
 ) (SETQ CH1 (IDIFFERENCE HI (COND ((> HI 159) 177) (T 113)))) (SETQ CH1 (IPLUS (UNFOLD CH1 2) 1)) (
 SETQ CH2 (COND ((> LO 158) (PROG1 (IDIFFERENCE LO 126) (SETQ CH1 (IPLUS CH1 1)))) (T (IDIFFERENCE LO (
 COND ((> LO 126) (IPLUS 31 1)) (T 31))))))))
-(PUTPROPS \CONV.JIS.TO.SJIS MACRO (OPENLAMBDA (HI LO) (* ;;; 
+(PUTPROPS \\CONV.JIS.TO.SJIS MACRO (OPENLAMBDA (HI LO) (* |;;;| 
 "Convert JIS to Shift-JIS.  The variable named CH1 and CH2 are set to the converted hight 8 bit and low 8bit of Shift-JIS code respectively."
 ) (SETQ CH2 (COND ((ODDP HI) (SETQ CH2 (IPLUS LO 31)) (COND ((>= CH2 127) (IPLUS CH2 1)) (T CH2))) (T 
 (IPLUS LO 126)))) (SETQ CH1 (IPLUS (FOLDLO (IDIFFERENCE HI 33) 2) 129)) (AND (> CH1 159) (SETQ CH1 (
 IPLUS CH1 64)))))
-(PUTPROPS \SJIS.KANJI.FIRST.BYTEP MACRO (OPENLAMBDA (CHAR) (OR (< 127 CHAR 160) (< 223 CHAR 256))))
-(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 "27-Apr-2021 20:06:09"))
+(PUTPROPS \\SJIS.KANJI.FIRST.BYTEP MACRO (OPENLAMBDA (CHAR) (OR (< 127 CHAR 160) (< 223 CHAR 256))))
+(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 " 6-May-2021 15:25:40"))
 
-(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-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 " 6-May-2021 15:25:40"))
 
 (RPAQQ MICASPERINCH 2540)
 (RPAQQ MICASPERMILLIMETER 100)
 (CONSTANTS (MICASPERINCH 2540) (MICASPERMILLIMETER 100))
-(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
 (RPAQ MICASPERPT (FQUOTIENT 2540 72))
 (RPAQQ IHALFMICASPERPT 17)
 (RPAQQ IMICASPERPT 35)
 (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-Apr-2021 20:06:09"))
+(DEFMACRO \\MICASTOPTS (MICAS) (COND ((NUMBERP MICAS) (QUOTIENT MICAS MICASPERPT)) (T (BQUOTE (
+QUOTIENT (\\\, MICAS) MICASPERPT)))))
+(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
 (FILESLOAD (SYSLOAD FROM VALUEOF DIRECTORIES) CMLARRAY-SUPPORT)
-(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
-(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 
-\STRINGHASHBITS-UFN NIL) (STRING-EQUAL-HASHBITS 5 \STRING-EQUAL-HASHBITS-UFN NIL) (CL:VALUES-LIST 6 
-CL::VALUES-LIST-UFN NIL) (LCFetchMethod 7 LCFetchMethod NIL) (LCFetchMethodOrHelp 8 NIL NIL) (
-LCFindVarIndex 9 NIL NIL) (LCGetIVValue 10 NIL NIL) (LCPutIVValue 11 NIL NIL)))
-(RPAQQ \USER-SUBR-LIST ((DUMMY 10 DUMMY-UFN) (SAMPLE-USER-SUBR 0 SAMPLE-USER-SUBR-UFN)))
-(RPAQQ \INITSUBRS ((YIELD 210) (BACKGROUNDSUBR 6) (CHECKBCPLPASSWORD 7) (DISKPARTITION 8) (DSPBOUT 9) 
-(DSPRATE 10) (GATHERSTATS 11) (GETPACKETBUFFER 12) (LISPFINISH 13) (MOREVMEMFILE 14) (RAID 15) (
+(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 
+\\STRINGHASHBITS-UFN NIL) (STRING-EQUAL-HASHBITS 5 \\STRING-EQUAL-HASHBITS-UFN NIL) (CL:VALUES-LIST 6 
+CL::VALUES-LIST-UFN NIL) (|LCFetchMethod| 7 |LCFetchMethod| NIL) (|LCFetchMethodOrHelp| 8 NIL NIL) (
+|LCFindVarIndex| 9 NIL NIL) (|LCGetIVValue| 10 NIL NIL) (|LCPutIVValue| 11 NIL NIL)))
+(RPAQQ \\USER-SUBR-LIST ((DUMMY 10 DUMMY-UFN) (SAMPLE-USER-SUBR 0 SAMPLE-USER-SUBR-UFN)))
+(RPAQQ \\INITSUBRS ((YIELD 210) (BACKGROUNDSUBR 6) (CHECKBCPLPASSWORD 7) (DISKPARTITION 8) (DSPBOUT 9)
+ (DSPRATE 10) (GATHERSTATS 11) (GETPACKETBUFFER 12) (LISPFINISH 13) (MOREVMEMFILE 14) (RAID 15) (
 READRAWPBI 16) (WRITERAWPBI 17) (SETSCREENCOLOR 18) (SHOWDISPLAY 19) (PUPLEVEL1STATE 20) (WRITESTATS 
 21) (CONTEXTSWITCH 22) (COPYSYS0SUBR 23) (WRITEMAP 24) (UFS-GETFILENAME 34) (UFS-DELETEFILE 35) (
 UFS-RENAMEFILE 36) (COM-READPAGES 37) (COM-WRITEPAGES 38) (COM-TRUNCATEFILE 39) (UFS-DIRECTORYNAMEP 41
@@ -2514,7 +2579,7 @@ COM-SETFILEINFO 103) (COM-OPENFILE 104) (COM-CLOSEFILE 105) (DSK-GETFILENAME 106
 DSK-DIRECTORYNAMEP 113) (COM-GETFILEINFO 114) (COM-CHANGEDIR 116) (UNIX-HANDLECOMM 117) (RPC-CALL 119)
  (MESSAGE-READP 120) (MESSAGE-READ 121) (MONITOR-CONTROL 128) (GET-NATIVE-ADDR-FROM-LISP-PTR 131) (
 GET-LISP-PTR-FROM-NATIVE-ADDR 132) (LOAD-NATIVE-FILE 133) (SUSPEND-LISP 134) (NEW-BLTCHAR 135) (
-COLOR-INIT 136) (COLOR-SCREENMODE 137) (COLOR-MAP 138) (COLOR-BASE 139) (C-SlowBltChar 140) (
+COLOR-INIT 136) (COLOR-SCREENMODE 137) (COLOR-MAP 138) (COLOR-BASE 139) (|C-SlowBltChar| 140) (
 UNCOLORIZE-BITMAP 141) (COLORIZE-BITMAP 142) (COLOR-8BPPDRAWLINE 143) (TCP-OP 144) (WITH-SYMBOL 145) (
 CAUSE-INTERRUPT 146) (OPEN-SOCKET 160) (CLOSE-SOCKET 161) (READ-SOCKET 162) (WRITE-SOCKET 163) (
 CALL-C-FUNCTION 167) (DLD-LINK 168) (DLD-UNLINK-BY-FILE 169) (DLD-UNLINK-BY-SYMBOL 170) (
@@ -2522,7 +2587,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-Apr-2021 20:06:09"))
+(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE " 6-May-2021 15:25:40"))
 
 STOP
 
diff --git a/loadups/full.dribble b/loadups/full.dribble
index 907d71fb..1aa2177c 100644
--- a/loadups/full.dribble
+++ b/loadups/full.dribble
@@ -1,10 +1,10 @@
 
-Full loadup started at 30-Apr-2021 14:49:55 while connected to 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>
+Full loadup started at  6-May-2021 15:26:50 while connected to 
+{DSK}<home>larry>ilisp>medley>
 
 loading POSTSCRIPTSTREAM
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>POSTSCRIPTSTREAM.LCOM;1
 compiled on 14-May-2018 10:53:32
 File created 14-May-2018 10:52:48
 POSTSCRIPTSTREAMCOMS
@@ -16,147 +16,147 @@ Loading FULL fonts...
 FULL fonts loaded
 loading CHAT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>CHAT.LCOM;1
 compiled on 25-Oct-93 12:23:25
 File created 20-Jan-93 13:46:52
 CHATCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DMCHAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>DMCHAT.LCOM;1
 compiled on 25-Feb-93 18:08:53
 File created 20-Jan-93 13:49:09
 DMCHATCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>CHATTERMINAL.LCOM;1
 compiled on 24-Feb-93 19:37:23
 File created  4-Jul-90 02:21:01
 CHATTERMINALCOMS
 loading PRESS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PRESS.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>PRESS.LCOM;1
 compiled on  5-Feb-2021 22:18:09
 File created  5-Feb-2021 22:18:06
 PRESSCOMS
 loading INTERPRESS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.LCOM;6
+{DSK}<home>larry>ilisp>medley>sources>INTERPRESS.LCOM;7
 compiled on 16-Apr-2018 21:56:38
 File created 16-Apr-2018 21:56:38
 INTERPRESSCOMS
 loading TEDIT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDIT.LCOM;1
 compiled on 18-May-2018 09:16:24
 File created 19-Apr-2018 12:22:03
 TEDITCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITDCL.LCOM;1
-compiled on 18-May-2018 09:17:04
-File created 25-Aug-94 10:53:00
+{DSK}<home>larry>ilisp>medley>library>TEDITDCL.LCOM;1
+compiled on 30-Apr-2021 17:26:58
+File created 30-Apr-2021 17:26:17
 TEDITDCLCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PCTREE.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>PCTREE.LCOM;1
 compiled on 18-May-2018 09:19:35
 File created 19-Apr-2018 12:19:49
 PCTREECOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTOFD.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEXTOFD.LCOM;1
 compiled on 11-Feb-2001 12:06:43
 File created 11-Feb-2001 12:06:42
 TEXTOFDCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITCOMMAND.LCOM;1
 compiled on 18-May-2018 09:16:59
 File created 20-Apr-2018 08:07:35
 TEDITCOMMANDCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.LCOM;4
+{DSK}<home>larry>ilisp>medley>library>TEDITSCREEN.LCOM;1
 compiled on 30-Apr-2021 14:42:15
 File created 30-Apr-2021 14:42:15
 TEDITSCREENCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITABBREV.LCOM;1
 compiled on  6-Aug-2020 14:52:14
 File created  6-Aug-2020 14:52:14
 TEDITABBREVCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITLOOKS.LCOM;1
 compiled on 18-May-2018 09:17:44
 File created 29-Jan-99 17:33:35
 TEDITLOOKSCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFIND.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITFIND.LCOM;1
 compiled on 18-May-2018 09:17:21
 File created  6-May-2018 17:34:44
 TEDITFINDCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITHISTORY.LCOM;1
 compiled on 18-May-2018 09:17:41
 File created 29-Jan-99 17:34:39
 TEDITHISTORYCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.LCOM;5
+{DSK}<home>larry>ilisp>medley>library>TEDITFILE.LCOM;1
 compiled on 30-Apr-2021 14:46:41
 File created 30-Apr-2021 14:46:41
 TEDITFILECOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITWINDOW.LCOM;1
 compiled on 18-May-2018 09:18:51
 File created 21-Jun-99 20:00:42
 TEDITWINDOWCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSELECTION.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITSELECTION.LCOM;1
 compiled on 18-May-2018 09:18:43
 File created 25-Aug-94 10:56:07
 TEDITSELECTIONCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>IMAGEOBJ.LCOM;1
 compiled on  8-Feb-97 11:26:32
 File created  7-Dec-95 13:21:56
 IMAGEOBJCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>EDITBITMAP.LCOM;1
 compiled on 25-Feb-93 18:10:27
 File created 11-Jun-90 15:42:25
 EDITBITMAPCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>READNUMBER.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>READNUMBER.LCOM;1
 compiled on 16-Aug-95 11:18:52
 File created 25-May-93 00:28:30
 READNUMBERCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TFBRAVO.LCOM;1
 compiled on 19-Apr-2018 12:19:55
 File created 19-Apr-2018 12:19:55
 TFBRAVOCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITHCPY.LCOM;1
 compiled on 18-May-2018 09:17:32
 File created 25-Aug-94 10:54:07
 TEDITHCPYCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITPAGE.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITPAGE.LCOM;1
 compiled on 18-May-2018 09:18:32
 File created 25-Aug-94 10:55:28
 TEDITPAGECOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.LCOM;4
+{DSK}<home>larry>ilisp>medley>library>TEDITMENU.LCOM;1
 compiled on 29-Apr-2021 22:44:22
 File created 29-Apr-2021 22:44:22
 TEDITMENUCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITFNKEYS.LCOM;1
 compiled on 18-May-2018 09:17:25
 File created  6-May-2018 17:15:13
 TEDITFNKEYSCOMS
 loading HRULE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HRULE.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>HRULE.LCOM;1
 compiled on 26-Feb-93 11:26:19
 File created  8-Oct-92 16:50:21
 HRULECOMS
 loading TEDITCHAT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCHAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>TEDITCHAT.LCOM;1
 compiled on 18-May-2018 09:16:55
 File created 28-Mar-94 16:05:24
 IL:TEDITCHATCOMS
@@ -164,121 +164,121 @@ loading READNUMBER
 loading EDITBITMAP
 loading FILEBROWSER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;29
+{DSK}<home>larry>ilisp>medley>library>FILEBROWSER.LCOM;1
 compiled on 27-Feb-2021 20:08:26
 File created 27-Feb-2021 20:08:26
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.LCOM;3
+{DSK}<home>larry>ilisp>medley>library>TABLEBROWSER.LCOM;1
 compiled on 20-Feb-2021 23:04:42
 File created 20-Feb-2021 23:02:39
 TABLEBROWSERCOMS
 loading THINFILES
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.LCOM;1
+{DSK}<home>larry>ilisp>medley>lispusers>THINFILES.LCOM;1
 compiled on 26-Jun-99 00:47:00
 File created  1-May-92 16:49:39
 THINFILESCOMS
 loading GRAPHER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.LCOM;2
+{DSK}<home>larry>ilisp>medley>library>GRAPHER.LCOM;1
 compiled on 14-Mar-2021 20:40:31
 File created 14-Mar-2021 20:40:30
 GRAPHERCOMS
 loading SPY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SPY.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>SPY.LCOM;1
 compiled on 23-Aug-94 16:33:38
 File created 29-Apr-94 14:13:52
 SPYCOMS
 loading WHERE-IS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>WHERE-IS.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>WHERE-IS.DFASL;1
 XCL Compiler output for source file {DSK}<python>lde>lispcore>library>WHERE-IS.;1
 Source file created Wednesday, 13 June 1990, 1:16:15.
 FASL file created Thursday, 21 January 1993, 18:52:55.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH-FILE.dfasl;1
+{DSK}<home>larry>ilisp>medley>library>HASH-FILE.dfasl;1
 XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>HASH-FILE.;2
 Source file created Monday, 11 June 1990, 16:16:54.
 FASL file created Friday, 26 February 1993, 11:23:40.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CASH-FILE.DFASL;4
+{DSK}<home>larry>ilisp>medley>library>CASH-FILE.DFASL;5
 XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
 Source file created 11-Jun-90 14:33:44
 FASL file created Saturday, 19 September 2020, 22:04:31
 
 loading COPYFILES
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COPYFILES.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>COPYFILES.LCOM;1
 compiled on  6-Apr-2018 21:14:29
 File created  6-Apr-2018 21:14:29
 COPYFILESCOMS
 loading MSANALYZE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSANALYZE.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>MSANALYZE.DFASL;1
 XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>library>MSANALYZE.;2
 Source file created  3-Mar-2021 10:31:16
 FASL file created Wednesday, 3 March 2021, 10:31:16
 
 loading MSPARSE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSPARSE.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>MSPARSE.DFASL;1
 XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSPARSE.;5
 Source file created Wednesday, 15 August 1990, 13:00:12.
 FASL file created Sunday, 28 February 1993, 23:24:50.
 
 loading MASTERSCOPE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.DFASL;4
+{DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.DFASL;4
 XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.;6
 Source file created  7-Mar-2021 19:39:11
 FASL file created Sunday, 7 March 2021, 20:20:40
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSCOMMON.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>MSCOMMON.DFASL;1
 XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSCOMMON.;3
 Source file created Monday, 4 May 1992, 13:19:40.
 FASL file created Sunday, 28 February 1993, 23:23:14.
 
 loading UNIXPRINT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>UNIXPRINT.DFASL;1
 XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8
 Source file created Friday, 4 May 2018, 17:18:00.
 FASL file created Friday, 4 May 2018, 17:18:00.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>UNIXCOMM.LCOM;1
 compiled on 25-Apr-2018 07:31:56
 File created 25-Apr-2018 07:31:56
 UNIXCOMMCOMS
 loading UNICODE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.LCOM;21
+{DSK}<home>larry>ilisp>medley>library>UNICODE.LCOM;18
 compiled on  1-Feb-2021 18:00:30
 File created  1-Feb-2021 18:00:30
 UNICODECOMS
 loading ISO8859IO
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;3
+{DSK}<home>larry>ilisp>medley>lispusers>ISO8859IO.LCOM;1
 compiled on 24-Apr-2021 17:06:43
 File created 24-Apr-2021 17:06:30
 ISO8859IOCOMS
 loading HELPSYS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.LCOM;1
+{DSK}<home>larry>ilisp>medley>lispusers>HELPSYS.LCOM;1
 compiled on 27-Nov-2020 11:23:11
 File created 27-Nov-2020 09:47:44
 HELPSYSCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DINFO.LCOM;6
+{DSK}<home>larry>ilisp>medley>lispusers>DINFO.LCOM;1
 compiled on 14-Feb-2021 23:11:53
 File created 14-Feb-2021 23:11:36
 DINFOCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>HASH.LCOM;1
 compiled on 26-Feb-93 11:22:10
 File created 11-Jun-90 16:23:11
 HASHCOMS
@@ -286,25 +286,25 @@ HASHCOMS
 Reading IRM graph...OK.loading DINFO
 loading CLIPBOARD
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.LCOM;9
+{DSK}<home>larry>ilisp>medley>library>CLIPBOARD.LCOM;1
 compiled on 23-Feb-2021 22:13:09
 File created 23-Feb-2021 22:13:09
 CLIPBOARDCOMS
 loading MODERNIZE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.LCOM;14
+{DSK}<home>larry>ilisp>medley>lispusers>MODERNIZE.LCOM;1
 compiled on 14-Mar-2021 20:33:34
 File created 14-Mar-2021 20:33:34
 MODERNIZECOMS
 loading PRETTYFILEINDEX
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.LCOM;2
+{DSK}<home>larry>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;3
 compiled on 28-Jun-99 17:13:58
 File created 28-Jun-99 17:13:51
 PRETTYFILEINDEXCOMS
 loading WHO-LINE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.DFASL;1
+{DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.DFASL;1
 XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.;4
 Source file created 26-Mar-2021 11:01:59
 FASL file created Friday, 26 March 2021, 11:01:59
@@ -312,7 +312,7 @@ FASL file created Friday, 26 March 2021, 11:01:59
 loading UNIXCOMM
 loading UNIXCHAT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>library>UNIXCHAT.LCOM;1
 compiled on 21-Jan-93 18:45:15
 File created 15-Aug-90 11:05:53
 UNIXCHATCOMS
diff --git a/loadups/full.sysout b/loadups/full.sysout
index 70b6b81c..ce12b4a5 100644
Binary files a/loadups/full.sysout and b/loadups/full.sysout differ
diff --git a/loadups/lisp.dribble b/loadups/lisp.dribble
index 52e02fc9..fa5abbb8 100644
--- a/loadups/lisp.dribble
+++ b/loadups/lisp.dribble
@@ -72,840 +72,840 @@ loading MACHINEINDEPENDENT
 loading POSTLOADUP
 loading LISP-PACKAGE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LISP-PACKAGE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>LISP-PACKAGE.LCOM;1
 compiled on 25-Jan-98 15:03:32
 File created 16-May-90 18:44:49
 IL:LISP-PACKAGECOMS
 loading FASL-PACKAGE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASL-PACKAGE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>FASL-PACKAGE.LCOM;1
 compiled on 25-Jan-98 13:21:46
 File created 16-May-90 16:33:38
 IL:FASL-PACKAGECOMS
 loading D-ASSEM-PACKAGE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>D-ASSEM-PACKAGE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>D-ASSEM-PACKAGE.LCOM;1
 compiled on 25-Jan-98 12:20:01
 File created  8-Jan-91 00:37:24
 IL:D-ASSEM-PACKAGECOMS
 loading COMPILER-PACKAGE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPILER-PACKAGE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>COMPILER-PACKAGE.LCOM;1
 compiled on 25-Jan-98 11:43:48
 File created 16-May-90 15:03:20
 IL:COMPILER-PACKAGECOMS
 loading ERROR-RUNTIME
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>ERROR-RUNTIME.LCOM;1
 compiled on 25-Jan-98 13:15:12
 File created 16-May-90 16:27:39
 loading CMLARITH
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARITH.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLARITH.LCOM;1
 compiled on 25-Jan-98 09:40:28
 File created  4-Jan-93 17:38:48
 loading CONDITION-HIERARCHY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CONDITION-HIERARCHY.LCOM;1
 compiled on 25-Jan-98 11:43:54
 File created 22-Aug-90 09:45:58
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-SI.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CONDITION-HIERARCHY-SI.LCOM;1
 compiled on 25-Jan-98 11:52:40
 File created 16-May-90 15:05:52
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-POST-SI.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CONDITION-HIERARCHY-POST-SI.LCOM;1
 compiled on 25-Jan-98 11:52:26
 File created 16-May-90 15:05:05
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-IL.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CONDITION-HIERARCHY-IL.LCOM;1
 compiled on 25-Jan-98 11:50:25
 File created 16-May-90 15:04:10
 loading CMLHASH
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLHASH.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLHASH.LCOM;1
 compiled on 25-Jan-98 10:17:44
 File created 16-May-90 13:25:03
 loading D-ASSEM
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>D-ASSEM.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>D-ASSEM.LCOM;1
 compiled on 25-Jan-98 12:01:26
 File created  1-Dec-92 02:18:56
 loading FASLOAD
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASLOAD.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>FASLOAD.LCOM;1
 compiled on 31-Jan-98 09:39:23
 File created 25-Nov-92 12:35:33
 loading DEFFER-RUNTIME
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFFER-RUNTIME.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>DEFFER-RUNTIME.LCOM;1
 compiled on 25-Jan-98 12:24:48
 File created 16-May-90 15:30:14
 loading CMLPRINT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLPRINT.LCOM;1
 compiled on 25-Jan-98 10:30:50
 File created 16-May-90 14:19:58
 loading CLSTREAMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CLSTREAMS.LCOM;1
 compiled on 25-Jan-98 09:36:01
 File created  3-Apr-91 15:11:53
 loading CMLSTRING
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTRING.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSTRING.LCOM;1
 compiled on 25-Jan-98 11:21:16
 File created 16-May-90 14:45:59
 loading CMLSYMBOL
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSYMBOL.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSYMBOL.LCOM;1
 compiled on 25-Jan-98 11:30:38
 File created 16-May-90 14:47:55
 loading CMLTYPES
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLTYPES.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLTYPES.LCOM;1
 compiled on 25-Jan-98 11:31:44
 File created  4-Jan-93 17:55:42
 loading CMLSEQCOMMON
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQCOMMON.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSEQCOMMON.LCOM;1
 compiled on 25-Jan-98 10:35:19
 File created 16-May-90 14:28:05
 loading CMLSEQMAPPERS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMAPPERS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSEQMAPPERS.LCOM;1
 compiled on 25-Jan-98 10:40:02
 File created 16-May-90 14:31:36
 loading CMLPATHNAME
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPATHNAME.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLPATHNAME.LCOM;1
 compiled on 25-Jan-98 10:28:38
 File created 28-Sep-90 15:14:19
 loading CMLFILESYS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFILESYS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLFILESYS.LCOM;1
 compiled on 25-Jan-98 10:07:48
 File created  8-Jun-90 16:41:26
 loading CMLDEFFER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDEFFER.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>CMLDEFFER.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>CMLDEFFER.;1
 Source file created Sunday, 3 June 1990, 23:11:46.
 FASL file created Wednesday, 28 January 1998, 16:41:48.
 
 loading ERROR-RUNTIME-AFTER-FASL
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME-AFTER-FASL.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>ERROR-RUNTIME-AFTER-FASL.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>ERROR-RUNTIME-AFTER-FASL.;1
 Source file created Wednesday, 16 May 1990, 16:14:06.
 FASL file created Sunday, 25 January 1998, 13:18:10.
 
 loading WRAPPERS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WRAPPERS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>WRAPPERS.LCOM;1
 compiled on 26-Jan-98 13:55:56
 File created  2-Feb-94 14:15:09
 loading STACKFNS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>STACKFNS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>STACKFNS.LCOM;1
 compiled on 26-Jan-98 13:41:05
 File created 17-May-90 15:48:43
 STACKFNSCOMS
 STACKFNSCOMS
 loading CMLMVS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMVS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLMVS.LCOM;1
 compiled on 25-Jan-98 10:25:04
 File created 16-May-90 13:35:04
 loading MACROS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>MACROS.LCOM;1
 compiled on 25-Jan-98 17:37:48
 File created 16-May-90 20:28:24
 loading MACROAUX
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROAUX.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>MACROAUX.LCOM;1
 compiled on 25-Jan-98 17:37:05
 File created 16-May-90 20:26:31
 loading UNWINDMACROS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNWINDMACROS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>UNWINDMACROS.LCOM;1
 compiled on 26-Jan-98 13:53:42
 File created 17-May-90 16:11:33
 loading COMMON
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMMON.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>COMMON.LCOM;1
 compiled on 25-Jan-98 11:40:32
 File created 16-May-90 14:58:17
 loading XCLC-RUNTIME
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-RUNTIME.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-RUNTIME.LCOM;1
 compiled on 26-Jan-98 14:00:44
 File created 23-May-90 13:18:14
 loading CMLTYPES
 loading CL-ERROR
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CL-ERROR.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>CL-ERROR.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>CL-ERROR.;1
 Source file created Wednesday, 21 August 1991, 17:03:40.
 FASL file created Sunday, 25 January 1998, 9:28:09.
 
 loading AFONT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AFONT.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>AFONT.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>AFONT.;1
 Source file created Wednesday, 16 May 1990, 11:47:29.
 FASL file created Sunday, 25 January 1998, 8:22:42.
 
 loading EDIT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EDIT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>EDIT.LCOM;1
 compiled on 25-Jan-98 13:09:41
 File created 16-May-90 16:23:16
 EDITCOMS
 loading WEDIT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WEDIT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>WEDIT.LCOM;1
 compiled on 26-Jan-98 13:54:04
 File created 23-Oct-91 16:39:18
 WEDITCOMS
 loading PRETTY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.LCOM;9
+{DSK}<home>larry>ilisp>medley>sources>PRETTY.LCOM;7
 compiled on 21-Feb-2021 10:59:08
 File created 21-Feb-2021 10:59:08
 PRETTYCOMS
 loading DSPRINTDEF
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>DSPRINTDEF.LCOM;1
 compiled on 25-Jan-98 12:58:43
 File created 19-Jan-93 10:27:05
 DSPRINTDEFCOMS
 loading NEWPRINTDEF
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.LCOM;2
+{DSK}<home>larry>ilisp>medley>sources>NEWPRINTDEF.LCOM;3
 compiled on 31-Dec-2000 11:53:35
 File created 31-Dec-2000 11:53:33
 NEWPRINTDEFCOMS
 loading FONTPROFILE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>FONTPROFILE.LCOM;1
 compiled on 14-May-2018 00:04:35
 File created 28-Jun-99 22:10:46
 FONTPROFILECOMS
 loading SPELLFILE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELLFILE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>SPELLFILE.LCOM;1
 compiled on 26-Jan-98 13:37:13
 File created 28-Apr-92 15:38:21
 SPELLFILECOMS
 loading PRINTFN
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRINTFN.LCOM;4
+{DSK}<home>larry>ilisp>medley>sources>PRINTFN.LCOM;5
 compiled on 16-Apr-2018 21:40:32
 File created 16-Apr-2018 21:40:32
 PRINTFNCOMS
 loading LOADFNS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADFNS.LCOM;10
+{DSK}<home>larry>ilisp>medley>sources>LOADFNS.LCOM;11
 compiled on 16-Apr-2018 17:38:16
 File created 16-Apr-2018 17:38:16
 LOADFNSCOMS
 loading DMISC
 loading DIRECTORY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>DIRECTORY.LCOM;2
 compiled on 25-Jan-98 12:34:36
 File created 30-Apr-92 15:04:56
 DIRECTORYCOMS
 loading SPELLFILE
 loading FILEPKG
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEPKG.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>FILEPKG.LCOM;1
 compiled on 12-Feb-2021 17:16:06
 File created 12-Feb-2021 17:16:04
 FILEPKGCOMS
 loading RESOURCE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RESOURCE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>RESOURCE.LCOM;1
 compiled on 26-Jan-98 13:30:19
 File created 16-May-90 21:31:50
 RESOURCECOMS
 loading HIST
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HIST.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>HIST.LCOM;1
 compiled on 25-Jan-98 14:10:10
 File created 10-Jul-91 12:07:43
 HISTCOMS
 loading UNDO
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNDO.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>UNDO.LCOM;1
 compiled on 26-Jan-98 13:53:32
 File created 17-May-90 16:09:40
 UNDOCOMS
 loading SPELL
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELL.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>SPELL.LCOM;1
 compiled on 26-Jan-98 13:37:04
 File created 17-May-90 11:20:15
 SPELLCOMS
 loading DWIM
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIM.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>DWIM.LCOM;1
 compiled on 22-Mar-2021 14:37:47
 File created 22-Mar-2021 14:37:45
 DWIMCOMS
 loading WTFIX
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WTFIX.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>WTFIX.LCOM;1
 compiled on 26-Jan-98 13:56:09
 File created 18-May-90 01:12:06
 WTFIXCOMS
 loading CLISP
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLISP.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CLISP.LCOM;1
 compiled on 25-Jan-98 09:32:34
 File created 16-May-90 12:27:02
 loading DWIMIFY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIMIFY.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>DWIMIFY.LCOM;1
 compiled on 25-Jan-98 13:03:32
 File created 16-May-90 16:21:27
 DWIMIFYCOMS
 loading CLISPIFY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLISPIFY.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CLISPIFY.LCOM;1
 compiled on 25-Jan-98 09:33:48
 File created 16-May-90 12:28:58
 CLISPIFYCOMS
 loading RECORD
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RECORD.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>RECORD.LCOM;1
 compiled on 26-Jan-98 13:29:01
 File created 19-Jan-93 11:15:39
 RECORDCOMS
 loading GAINSPACE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>GAINSPACE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>GAINSPACE.LCOM;1
 compiled on 25-Jan-98 14:03:59
 File created 16-May-90 18:05:30
 GAINSPACECOMS
 loading COROUTINE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COROUTINE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>COROUTINE.LCOM;1
 compiled on 25-Jan-98 11:56:27
 File created 16-May-90 15:10:30
 loading ARGLIST
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ARGLIST.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>ARGLIST.LCOM;1
 compiled on 25-Jan-98 08:30:09
 File created 16-May-90 12:03:44
 ARGLISTCOMS
 loading ASKUSER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASKUSER.LCOM;6
+{DSK}<home>larry>ilisp>medley>sources>ASKUSER.LCOM;6
 compiled on 12-Feb-2021 17:00:05
 File created 12-Feb-2021 17:00:02
 ASKUSERCOMS
 loading SYSPRETTY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SYSPRETTY.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>SYSPRETTY.LCOM;1
 compiled on 26-Jan-98 13:41:07
 File created 17-May-90 15:50:03
 SYSPRETTYCOMS
 loading COMMON
 loading COMPARE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPARE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>COMPARE.LCOM;1
 compiled on 25-Jan-98 11:41:10
 File created 16-May-90 14:59:25
 COMPARECOMS
 loading CMLSTEP
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTEP.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSTEP.LCOM;1
 compiled on 25-Jan-98 11:20:57
 File created 16-May-90 14:44:40
 loading CMLDOC
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDOC.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLDOC.LCOM;1
 compiled on 25-Jan-98 09:59:44
 File created 16-May-90 13:06:35
 loading CMLPARSE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPARSE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLPARSE.LCOM;1
 compiled on 25-Jan-98 10:27:38
 File created  8-Jun-90 14:57:22
 loading CMLSETF
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSETF.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSETF.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>CMLSETF.;1
 Source file created Wednesday, 13 June 1990, 0:19:02.
 FASL file created Sunday, 25 January 1998, 10:52:44.
 
 loading CMLPRED
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPRED.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLPRED.LCOM;1
 compiled on 25-Jan-98 10:30:39
 File created 16-May-90 14:19:02
 loading CMLREAD
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLREAD.LCOM;1
 compiled on 25-Jan-98 10:32:12
 File created 19-Jan-93 10:25:51
 loading WALKER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WALKER.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>WALKER.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>WALKER.;1
 Source file created Thursday, 17 May 1990, 16:04:34.
 FASL file created Monday, 26 January 1998, 13:53:47.
 
 loading CMLSEQFINDER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQFINDER.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSEQFINDER.LCOM;1
 compiled on 25-Jan-98 10:35:46
 File created 16-May-90 14:29:23
 loading CMLSEQMODIFY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMODIFY.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSEQMODIFY.LCOM;1
 compiled on 25-Jan-98 10:41:41
 File created 16-May-90 14:33:28
 loading CMLSORT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSORT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSORT.LCOM;1
 compiled on 25-Jan-98 11:18:04
 File created 16-May-90 14:41:22
 loading DEFSTRUCT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>DEFSTRUCT.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>DEFSTRUCT.;1
 Source file created Monday, 4 January 1993, 18:06:34.
 FASL file created Sunday, 25 January 1998, 12:25:14.
 
 loading CMLMISCIO
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLMISCIO.LCOM;1
 compiled on 25-Jan-98 10:24:15
 File created 16-May-90 13:33:00
 loading CMLCOMPILE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCOMPILE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLCOMPILE.LCOM;1
 compiled on 25-Jan-98 09:55:54
 File created  2-Jul-90 20:24:02
 loading CMLDESTRUCT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDESTRUCT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLDESTRUCT.LCOM;1
 compiled on 25-Jan-98 09:59:34
 File created 16-May-90 13:05:47
 loading CL-ERROR
 loading CMLFORMAT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFORMAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLFORMAT.LCOM;1
 compiled on 28-Jan-98 09:47:46
 File created 16-May-90 13:19:59
 loading CMLENVIRONMENT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLENVIRONMENT.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>CMLENVIRONMENT.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>CMLENVIRONMENT.;1
 Source file created Friday, 3 September 1993, 10:05:16.
 FASL file created Sunday, 25 January 1998, 9:59:56.
 
 loading CMLLOAD
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLLOAD.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLLOAD.LCOM;1
 compiled on 25-Jan-98 10:23:35
 File created 13-Jul-90 18:00:23
 loading CMLFLOAT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFLOAT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLFLOAT.LCOM;1
 compiled on 25-Jan-98 10:08:08
 File created 16-May-90 13:16:23
 loading CMLTIME
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLTIME.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLTIME.LCOM;1
 compiled on 25-Jan-98 11:30:50
 File created 16-May-90 14:48:46
 loading CMLRAND
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLRAND.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLRAND.LCOM;1
 compiled on 25-Jan-98 10:31:47
 File created 16-May-90 14:21:56
 loading CMLMODULES
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.DFASL;4
+{DSK}<home>larry>ilisp>medley>sources>CMLMODULES.DFASL;5
 XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>CMLMODULES.;2
 Source file created Monday, 16 April 2018, 22:46:19.
 FASL file created Monday, 16 April 2018, 22:46:19.
 
 loading PROFILE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROFILE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>PROFILE.LCOM;1
 compiled on 26-Jan-98 13:28:16
 File created 16-May-90 21:15:43
 loading CMLEXEC
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLEXEC.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLEXEC.LCOM;1
 compiled on 25-Jan-98 10:04:21
 File created 21-Jan-93 11:16:01
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLUNDO.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>CMLUNDO.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>CMLUNDO.;1
 Source file created Wednesday, 16 May 1990, 14:43:00.
 FASL file created Sunday, 25 January 1998, 11:35:46.
 
 loading EXEC-COMMANDS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EXEC-COMMANDS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>EXEC-COMMANDS.LCOM;1
 compiled on 25-Jan-98 13:18:25
 File created 16-May-90 16:29:25
 loading DEBUGGER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEBUGGER.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>DEBUGGER.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>DEBUGGER.;1
 Source file created Friday, 16 August 1991, 17:43:08.
 FASL file created Sunday, 25 January 1998, 12:20:29.
 
 loading IL-ERROR-STUFF
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IL-ERROR-STUFF.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>IL-ERROR-STUFF.LCOM;1
 compiled on 25-Jan-98 14:25:53
 File created 16-May-90 18:18:52
 IL-ERROR-STUFFCOMS
 IL-ERROR-STUFFCOMS
 loading DEBUGEDIT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEBUGEDIT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>DEBUGEDIT.LCOM;1
 compiled on 25-Jan-98 12:20:10
 File created 16-May-90 15:24:15
 loading ADDARITH
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADDARITH.LCOM;2
+{DSK}<home>larry>ilisp>medley>sources>ADDARITH.LCOM;2
 compiled on 25-Jan-98 02:08:33
 File created 16-May-90 11:46:37
 loading CMLPATHNAME
 loading HPRINT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.LCOM;3
+{DSK}<home>larry>ilisp>medley>sources>HPRINT.LCOM;1
 compiled on 26-Apr-2021 14:46:05
 File created 26-Apr-2021 14:45:00
 loading AARITH
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AARITH.LCOM;2
+{DSK}<home>larry>ilisp>medley>sources>AARITH.LCOM;2
 compiled on 25-Jan-98 01:58:27
 File created 16-May-90 11:41:16
 AARITHCOMS
 loading ADISPLAY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>ADISPLAY.LCOM;1
 compiled on 28-Jan-98 10:53:47
 File created 15-Sep-94 17:07:04
 ADISPLAYCOMS
 loading HLDISPLAY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HLDISPLAY.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>HLDISPLAY.LCOM;1
 compiled on 25-Jan-98 14:12:43
 File created 15-Mar-94 10:48:02
 loading MENU
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MENU.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>MENU.LCOM;1
 compiled on 16-Jul-99 15:51:41
 File created 16-Jul-99 15:51:36
 MENUCOMS
 loading WINDOWOBJ
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWOBJ.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>WINDOWOBJ.LCOM;1
 compiled on 26-Jan-98 13:55:38
 File created 19-Jan-93 11:26:14
 WINDOWOBJCOMS
 loading WINDOWSCROLL
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.LCOM;2
+{DSK}<home>larry>ilisp>medley>sources>WINDOWSCROLL.LCOM;1
 compiled on 17-Feb-2021 13:49:06
 File created 17-Feb-2021 13:49:06
 WINDOWSCROLLCOMS
 loading WINDOW
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>WINDOW.LCOM;1
 compiled on  9-Apr-2000 17:38:50
 File created  9-Apr-2000 17:36:29
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PAINTW.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>PAINTW.LCOM;1
 compiled on 16-Jul-99 15:49:39
 File created 16-Jul-99 15:49:37
 loading WINDOWICON
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWICON.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>WINDOWICON.LCOM;1
 compiled on 26-Jan-98 13:55:34
 File created  2-Feb-94 13:26:29
 WINDOWICONCOMS
 loading PAINTW
 loading ATTACHEDWINDOW
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATTACHEDWINDOW.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>ATTACHEDWINDOW.LCOM;1
 compiled on 28-Jun-99 17:18:53
 File created 28-Jun-99 17:18:50
 ATTACHEDWINDOWCOMS
 loading XXGEOM
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXGEOM.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XXGEOM.LCOM;1
 compiled on 26-Jan-98 14:03:05
 File created 19-Jan-93 11:30:54
 XXGEOMCOMS
 loading XXFILL
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXFILL.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XXFILL.LCOM;1
 compiled on 26-Jan-98 14:02:40
 File created 19-Jan-93 11:29:57
 XXFILLCOMS
 loading DEXEC
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEXEC.LCOM;12
+{DSK}<home>larry>ilisp>medley>sources>DEXEC.LCOM;13
 compiled on 13-Aug-2020 12:36:18
 File created 13-Aug-2020 12:36:18
 loading INSPECT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT.LCOM;7
+{DSK}<home>larry>ilisp>medley>sources>INSPECT.LCOM;8
 compiled on 21-Apr-2018 08:08:07
 File created 21-Apr-2018 08:08:07
 INSPECTCOMS
 loading DESCRIBE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DESCRIBE.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>DESCRIBE.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>DESCRIBE.;1
 Source file created Wednesday, 16 May 1990, 15:27:33.
 FASL file created Sunday, 25 January 1998, 12:32:53.
 
 loading CMLARRAYINSPECTOR
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAYINSPECTOR.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CMLARRAYINSPECTOR.LCOM;1
 compiled on 25-Jan-98 09:53:09
 File created 31-Dec-93 12:26:35
 CMLARRAYINSPECTORCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.LCOM;6
+{DSK}<home>larry>ilisp>medley>sources>TWODINSPECTOR.LCOM;2
 compiled on 19-Feb-2021 14:31:33
 File created 19-Feb-2021 14:31:33
 TWODINSPECTORCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FREEMENU.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>FREEMENU.LCOM;1
 compiled on 25-Jan-98 13:54:38
 File created  6-Dec-94 10:55:40
 loading EDITINTERFACE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EDITINTERFACE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>EDITINTERFACE.LCOM;1
 compiled on 25-Jan-98 13:12:33
 File created  7-Nov-91 18:15:13
 loading TTYIN
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>TTYIN.LCOM;1
 compiled on 26-Jan-98 13:49:55
 File created 24-May-91 11:33:53
 TTYINCOMS
 loading BREAK-AND-TRACE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BREAK-AND-TRACE.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>BREAK-AND-TRACE.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>BREAK-AND-TRACE.;1
 Source file created Wednesday, 16 May 1990, 12:01:43.
 FASL file created Sunday, 25 January 1998, 9:14:16.
 
 loading FASDUMP
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASDUMP.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>FASDUMP.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>FASDUMP.;1
 Source file created Friday, 11 January 1991, 16:23:30.
 FASL file created Sunday, 25 January 1998, 13:18:44.
 
 loading XCL-COMPILER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-COMPILER.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCL-COMPILER.LCOM;1
 compiled on 26-Jan-98 13:56:11
 File created 18-May-90 01:13:35
 XCL-COMPILERCOMS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ENV-CTXT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-ENV-CTXT.LCOM;1
 compiled on 26-Jan-98 13:58:55
 File created 17-Jul-90 10:48:08
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TREES.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-TREES.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>XCLC-TREES.;1
 Source file created Wednesday, 23 May 1990, 13:17:15.
 FASL file created Monday, 26 January 1998, 14:01:24.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.DFASL;9
+{DSK}<home>larry>ilisp>medley>sources>XCLC-TOP-LEVEL.DFASL;10
 XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>XCLC-TOP-LEVEL.;10
 Source file created 19-Sep-2020 22:02:59
 FASL file created Saturday, 19 September 2020, 22:02:59
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ALPHA.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-ALPHA.LCOM;1
 compiled on 26-Jan-98 13:56:23
 File created 20-Jul-90 17:07:06
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-OPTIMIZERS.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-OPTIMIZERS.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>XCLC-OPTIMIZERS.;1
 Source file created Sunday, 3 June 1990, 22:30:55.
 FASL file created Monday, 26 January 1998, 14:00:16.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ANALYZE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-ANALYZE.LCOM;1
 compiled on 26-Jan-98 13:57:17
 File created 18-May-90 01:25:52
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-META-EVAL.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-META-EVAL.LCOM;1
 compiled on 26-Jan-98 13:59:42
 File created  9-Dec-91 03:12:25
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TRANSFORMS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-TRANSFORMS.LCOM;1
 compiled on 26-Jan-98 14:01:16
 File created 10-Aug-92 13:17:53
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-DATABASE.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-DATABASE.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>XCLC-DATABASE.;1
 Source file created Tuesday, 19 January 1993, 11:26:11.
 FASL file created Monday, 26 January 1998, 13:58:14.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ANNOTATE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-ANNOTATE.LCOM;1
 compiled on 26-Jan-98 13:57:27
 File created 18-May-90 01:28:45
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-GENCODE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-GENCODE.LCOM;1
 compiled on 26-Jan-98 13:59:08
 File created  2-Oct-91 11:38:50
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-PEEPHOLE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>XCLC-PEEPHOLE.LCOM;1
 compiled on 26-Jan-98 14:00:34
 File created 27-Aug-91 14:38:23
 loading ADVISE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADVISE.dfasl;4
+{DSK}<home>larry>ilisp>medley>sources>ADVISE.dfasl;4
 XCL Compiler output for source file {DSK}<lispcore>sources>ADVISE.;1
 Source file created Wednesday, 16 May 1990, 11:45:00.
 FASL file created Sunday, 25 January 1998, 8:20:23.
 
 loading DLAP
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DLAP.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>DLAP.LCOM;1
 compiled on 31-Jan-98 10:01:22
 File created 25-Jan-93 16:56:13
 loading BYTECOMPILER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>BYTECOMPILER.LCOM;1
 compiled on 25-Jan-98 09:21:09
 File created 26-Apr-91 17:25:53
 loading COMPILE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPILE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>COMPILE.LCOM;1
 compiled on 25-Jan-98 11:41:58
 File created 27-Jul-90 11:15:42
 COMPILECOMS
 loading HARDCOPY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.LCOM;6
+{DSK}<home>larry>ilisp>medley>sources>HARDCOPY.LCOM;7
 compiled on 16-Apr-2018 22:15:08
 File created 16-Apr-2018 22:15:08
 HARDCOPYCOMS
 loading LOGOW
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOGOW.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>LOGOW.DFASL;1
 XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>sources>LOGOW.;3
 Source file created 25-Mar-2021 21:49:00
 FASL file created Thursday, 25 March 2021, 21:50:00
 
 loading IDLER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IDLER.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>IDLER.LCOM;1
 compiled on 25-Jan-98 14:24:39
 File created 23-Mar-92 13:38:29
 IDLERCOMS
 loading ICONW
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ICONW.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>ICONW.LCOM;1
 compiled on 25-Jan-98 14:23:21
 File created 16-May-90 18:16:27
 ICONWCOMS
 loading FREEMENU
 loading SEDIT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT.;1
 Source file created Friday, 25 January 1991, 17:01:33.
 FASL file created Monday, 26 January 1998, 13:30:21.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ACCESS.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-ACCESS.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-ACCESS.;1
 Source file created Tuesday, 19 January 1993, 11:16:06.
 FASL file created Monday, 26 January 1998, 13:30:23.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.DFASL;2
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-ATOMIC.DFASL;3
 XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>sources>SEDIT-ATOMIC.;3
 Source file created 16-May-90 21:37:57
 FASL file created Sunday, 20 September 2020, 21:00:28
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-BASE.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-BASE.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-BASE.;1
 Source file created Wednesday, 2 December 1992, 17:40:24.
 FASL file created Monday, 26 January 1998, 13:31:04.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.DFASL;3
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-COMMANDS.DFASL;4
 XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-COMMANDS.;3
 Source file created Monday, 23 April 2018, 18:12:52.
 FASL file created Monday, 23 April 2018, 18:13:51.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMENTS.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-COMMENTS.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-COMMENTS.;1
 Source file created Wednesday, 16 May 1990, 21:35:01.
 FASL file created Monday, 26 January 1998, 13:32:56.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-EXPORTS.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-EXPORTS.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-EXPORTS.;1
 Source file created Thursday, 17 May 1990, 10:49:21.
 FASL file created Monday, 26 January 1998, 13:33:33.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-INDENT.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-INDENT.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-INDENT.;1
 Source file created Thursday, 17 May 1990, 10:52:22.
 FASL file created Monday, 26 January 1998, 13:33:37.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LIST-FORMATS.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-LIST-FORMATS.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-LIST-FORMATS.;1
 Source file created Thursday, 17 May 1990, 10:56:07.
 FASL file created Monday, 26 January 1998, 13:34:54.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LINEAR.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-LINEAR.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-LINEAR.;1
 Source file created Thursday, 17 May 1990, 10:54:05.
 FASL file created Monday, 26 January 1998, 13:33:51.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LISTS.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-LISTS.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-LISTS.;1
 Source file created Thursday, 17 May 1990, 10:58:06.
 FASL file created Monday, 26 January 1998, 13:35:03.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TERMINAL.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-TERMINAL.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-TERMINAL.;1
 Source file created Thursday, 17 May 1990, 10:59:38.
 FASL file created Monday, 26 January 1998, 13:35:55.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TOPLEVEL.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-TOPLEVEL.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>SEDIT-TOPLEVEL.;1
 Source file created Wednesday, 10 July 1991, 19:03:29.
 FASL file created Monday, 26 January 1998, 13:36:04.
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.DFASL;2
+{DSK}<home>larry>ilisp>medley>sources>SEDIT-WINDOW.DFASL;3
 XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>sources>SEDIT-WINDOW.;2
 Source file created Monday, 14 May 2018, 14:12:02.
 FASL file created Monday, 14 May 2018, 14:12:02.
@@ -916,148 +916,148 @@ loading UFSCALLC
 loading MAIKOBITBLT
 loading TIME
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TIME.LCOM;4
+{DSK}<home>larry>ilisp>medley>sources>TIME.LCOM;5
 compiled on 16-Apr-2018 23:05:17
 File created 16-Apr-2018 23:05:10
 loading BRKDWN
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BRKDWN.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>BRKDWN.LCOM;1
 compiled on 25-Jan-98 09:16:08
 File created 16-May-90 12:14:36
 BRKDWNCOMS
 loading XCL-EXTRAS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-EXTRAS.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>XCL-EXTRAS.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>XCL-EXTRAS.;1
 Source file created Friday, 18 May 1990, 1:03:51.
 FASL file created Monday, 26 January 1998, 13:56:12.
 
 loading CMLPACKAGE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPACKAGE.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>CMLPACKAGE.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>CMLPACKAGE.;1
 Source file created Thursday, 14 June 1990, 1:35:57.
 FASL file created Sunday, 25 January 1998, 10:25:22.
 
 loading CMLSMARTARGS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSMARTARGS.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>CMLSMARTARGS.DFASL;1
 XCL Compiler output for source file {DSK}<disk>disk2>jdstools>lc3>lispcore3.0>sources>CMLSMARTARGS.;2
 Source file created Tuesday, 27 January 1998, 10:56:02.
 FASL file created Tuesday, 27 January 1998, 10:58:59.
 
 loading IMPLICIT-KEY-HASH
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMPLICIT-KEY-HASH.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>IMPLICIT-KEY-HASH.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>IMPLICIT-KEY-HASH.;1
 Source file created Wednesday, 16 May 1990, 18:10:26.
 FASL file created Sunday, 25 January 1998, 14:31:31.
 
 loading CLOSURE-CACHE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLOSURE-CACHE.DFASL;1
+{DSK}<home>larry>ilisp>medley>sources>CLOSURE-CACHE.DFASL;1
 XCL Compiler output for source file {DSK}<lispcore>sources>CLOSURE-CACHE.;1
 Source file created Wednesday, 16 May 1990, 12:24:08.
 FASL file created Sunday, 25 January 1998, 9:35:47.
 
 loading PUP
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PUP.LCOM;1
-compiled on 26-Jan-98 13:28:26
-File created 19-Jan-93 11:14:09
+{DSK}<home>larry>ilisp>medley>sources>PUP.LCOM;1
+compiled on  1-May-2021 19:49:18
+File created  1-May-2021 19:49:18
 loading 10MBDRIVER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>10MBDRIVER.LCOM;3
+{DSK}<home>larry>ilisp>medley>sources>10MBDRIVER.LCOM;3
 compiled on 25-Jan-98 01:56:51
 File created 26-Feb-91 13:32:30
 10MBDRIVERCOMS
 loading LEAF
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LEAF.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>LEAF.LCOM;1
 compiled on 27-Jan-98 12:52:59
 File created 19-Jan-93 10:41:31
 LEAFCOMS
 loading LLETHER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLETHER.LCOM;1
-compiled on 25-Jan-98 15:52:04
-File created 19-Jan-93 10:49:30
+{DSK}<home>larry>ilisp>medley>sources>LLETHER.LCOM;1
+compiled on  3-May-2021 23:13:56
+File created  3-May-2021 23:13:56
 LLETHERCOMS
 loading DPUPFTP
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DPUPFTP.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>DPUPFTP.LCOM;1
 compiled on 25-Jan-98 12:54:18
 File created 16-May-90 16:10:35
 DPUPFTPCOMS
 loading LOCALFILE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOCALFILE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>LOCALFILE.LCOM;1
 compiled on 25-Jan-98 17:19:53
 File created 19-Jan-93 10:55:28
 LOCALFILECOMS
 loading DSKDISPLAY
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSKDISPLAY.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>DSKDISPLAY.LCOM;1
 compiled on 25-Jan-98 12:58:13
 File created 21-Jun-90 13:01:45
 DSKDISPLAYCOMS
 loading COURIER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COURIER.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>COURIER.LCOM;1
 compiled on 25-Jan-98 11:57:30
 File created  2-Nov-93 13:53:08
 COURIERCOMS
 loading LLNS
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNS.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>LLNS.LCOM;1
 compiled on 25-Jan-98 16:33:55
 File created 19-Jan-93 10:52:26
 LLNSCOMS
 loading TRSERVER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TRSERVER.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>TRSERVER.LCOM;1
 compiled on 29-Jan-98 10:12:58
 File created 17-May-90 15:58:24
 TRSERVERCOMS
 loading SPP
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPP.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>SPP.LCOM;1
 compiled on 26-Jan-98 13:37:20
 File created 19-Jan-93 11:20:29
 SPPCOMS
 loading NSPRINT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSPRINT.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>NSPRINT.LCOM;1
 compiled on 26-Jan-98 13:26:31
 File created 28-Apr-92 17:29:44
 NSPRINTCOMS
 loading AUTHENTICATION
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AUTHENTICATION.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>AUTHENTICATION.LCOM;1
 compiled on 25-Jan-98 08:40:41
 File created 16-May-90 12:10:46
 AUTHENTICATIONCOMS
 loading BSP
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BSP.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>BSP.LCOM;1
 compiled on 25-Jan-98 09:17:10
 File created 19-Jan-93 10:23:19
 BSPCOMS
 loading CLEARINGHOUSE
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLEARINGHOUSE.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>CLEARINGHOUSE.LCOM;1
 compiled on 25-Jan-98 09:31:30
 File created 19-Jan-93 10:24:59
 CLEARINGHOUSECOMS
 loading NSFILING
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSFILING.LCOM;1
+{DSK}<home>larry>ilisp>medley>sources>NSFILING.LCOM;1
 compiled on 28-Jun-99 17:07:45
 File created 28-Jun-99 17:07:34
 NSFILINGCOMS
 loading MAIKOETHER
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOETHER.LCOM;3
+{DSK}<home>larry>ilisp>medley>sources>MAIKOETHER.LCOM;3
 compiled on 25-Jan-98 17:43:08
 File created  4-May-91 15:52:07
 MAIKOETHERCOMS
diff --git a/loadups/lisp.sysout b/loadups/lisp.sysout
index 40d3f5a2..3c5a3911 100644
Binary files a/loadups/lisp.sysout and b/loadups/lisp.sysout differ
diff --git a/loadups/whereis.dribble b/loadups/whereis.dribble
index fa8e743e..aecc61a4 100644
--- a/loadups/whereis.dribble
+++ b/loadups/whereis.dribble
@@ -1,787 +1,786 @@
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>10MBDECLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>10MBDRIVER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AARITH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ABASIC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ACODE.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADDARITH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADIR.;10 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.;9 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADVISE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AERROR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AFONT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AINTERRUPT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APRINT.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APUTDQ.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ARGLIST.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASKUSER.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASTACK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;10 .
-Warning: Error attempting to LOADVARS (CCECHOMODES TERMCLASSES READCODEMASKS READMACROCONTEXTS READCLASSES READMACROWAKEUPS READMACROESCAPES) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;10.
+;;; {DSK}<home>larry>ilisp>medley>sources>10MBDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>10MBDRIVER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>AARITH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ABASIC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ACODE.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ADDARITH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ADIR.;8 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ADISPLAY.;8 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ADVISE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>AERROR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>AFONT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>AINTERRUPT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>AOFD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>APRINT.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>APUTDQ.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ARGLIST.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ASKUSER.;6 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ASTACK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ATBL.;8 .
+Warning: Error attempting to LOADVARS (IL:CCECHOMODES IL:TERMCLASSES IL:READCODEMASKS IL:READMACROCONTEXTS IL:READCLASSES IL:READMACROWAKEUPS IL:READMACROESCAPES) from {DSK}<home>larry>ilisp>medley>sources>ATBL.;8.
 .. done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATTACHEDWINDOW.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AUTHENTICATION.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BREAK-AND-TRACE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BRKDWN.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BSP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CL-ERROR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLEARINGHOUSE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLISP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLISPIFY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLOSURE-CACHE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARITH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY-SUPPORT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAYINSPECTOR.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCHARACTER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCOMPILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDEFFER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDESTRUCT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDOC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLENVIRONMENT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLEVAL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLEXEC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFILESYS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFLOAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFORMAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLHASH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLLIST.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLLOAD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMACROS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMVS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPACKAGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPARSE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPATHNAME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPRED.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPROGV.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLRAND.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREADTABLE.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQ.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQBASICS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQCOMMON.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQFINDER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMAPPERS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMODIFY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSETF.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSMARTARGS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSORT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSPECIALFORMS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTEP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTRING.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSYMBOL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLTIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLTYPES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLUNDO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLWALK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMMENT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMMON.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPARE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPATIBILITY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPILER-PACKAGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-IL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-POST-SI.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-SI.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-PACKAGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COROUTINE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COURIER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>D-ASSEM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>D-ASSEM-PACKAGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEBUGEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEBUGGER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFFER-RUNTIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFPACKAGE-IMPORT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT-RUN-TIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DESCRIBE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEXEC.;12 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DFILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DISKDLION.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DISKVMEMDECLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DLAP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DMISC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DOVEDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DOVEETHERDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DPUPFTP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSKDISPLAY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DTDECLARE.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIMIFY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EDITINTERFACE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME-AFTER-FASL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EXEC-COMMANDS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASDUMP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASL-PACKAGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASL-SUPPORT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASLOAD.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;16 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILEPATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FREEMENU.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>GAINSPACE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HIST.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HLDISPLAY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ICONW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IDLER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IL-ERROR-STUFF.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMPLICIT-KEY-HASH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT.;9 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT-CLOSURE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;7 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LEAF.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LISP-PACKAGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLARITH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLARRAYELT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBASIC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBFS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBIGNUM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCHAR.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCODE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDATATYPE.;14 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLERROR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLETHER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFAULT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFLOAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLGC.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLINTERP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLMVS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNEW.;17 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNSDECLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPACKAGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPARAMS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLRESTART.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSTK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSUBRS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSYMBOL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLTIMER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADFNS.;9 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-FULL.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-LISP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOCALFILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOGOW.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROAUX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROAUX-OPTIMIZERS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOBITBLT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOETHER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1 .Warning: Error attempting to LOADVARS (MAIKOINITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOLOADUPFNS.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAKEINIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MEM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MENU.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MISC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MOD44IO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MODARITH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSFILING.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSPRINT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-CONVERSION-TABLE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PAINTW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PASSWORDS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PMAP.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>POSTLOADUP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;12 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRINTFN.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROFILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PUP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>READSYS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RECORD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEFNS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEMACROS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RESOURCE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ACCESS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-BASE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMENTS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-CONVERT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-DEBUG.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-DECLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-EXPORTS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-INDENT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LINEAR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LIST-FORMATS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LISTS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TERMINAL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TOPLEVEL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SETF-RUNTIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELLFILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPPDECLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>STACKFNS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SYSPRETTY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TCPHTE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TIME.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TRSERVER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;7 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFSCALLC.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNDO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNWINDMACROS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VMEM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WALKER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWICON.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWOBJ.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WRAPPERS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WTFIX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-COMPILER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-EXTRAS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-PACKAGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ALPHA.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ANALYZE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ANNOTATE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-DATABASE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ENV-CTXT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-GENCODE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-META-EVAL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-OPTIMIZERS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-PEEPHOLE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-RUNTIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.;12 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TRANSFORMS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TREES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXFILL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXGEOM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>BIGBITMAPS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>BROWSER.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CASH-FILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHARCODETABLES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHARDEVICE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHARS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATDECLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATSERVER-EMACS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;55 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CMLFLOATARRAY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COLOR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COPYFILES.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;2 .Warning: Error attempting to LOADVARS (DANDELIONKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DANDELIONKEYBOARDS.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DATABASEFNS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DEDITPP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DMCHAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;2 .Warning: Error attempting to LOADVARS (DORADOKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DORADOKEYBOARDS.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOSPRINT.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;2 .Warning: Error attempting to LOADVARS (DOVEKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVEKEYBOARDS.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DOVERS232C.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>ETHERRECORDS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILE-UPDATE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;36 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FONTSAMPLE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FOREIGN-FUNCTIONS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FX-80DRIVER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GCHAX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.;7 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHZOOM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH-FILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HRULE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>KEYBOARDCONFIGS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>KEYBOARDEDITOR.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>lafite>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>LLCOLOR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>LOAD-SKETCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOCOLOR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;4 .Warning: Error attempting to LOADVARS (MAIKOKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;4.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;7 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MATMULT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSANALYZE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSCOMMON.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSPARSE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>NSCHAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>NSMAINTAIN.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>patches> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>patches>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PCTREE.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PRESS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>RDSYS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>READNUMBER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>REMOTEVMEM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SAMEDIR.;11 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SCALEBITMAP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;4 .Warning: Error attempting to LOADVARS (SEDIT-COMMONLISPCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;4.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHBMELT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHELEMENTS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHOBJ.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHOPS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHSTREAM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SPY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SYSEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSERDECLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TBDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCHAT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITDCL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFIND.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITPAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSELECTION.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TELERAID.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXEC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTMODULES.;3 .
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.DFASL;2
+;;; {DSK}<home>larry>ilisp>medley>sources>ATERM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ATTACHEDWINDOW.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>AUTHENTICATION.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>BOOTSTRAP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>BREAK-AND-TRACE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>BRKDWN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>BSP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>BYTECOMPILER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CL-ERROR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CLEARINGHOUSE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CLISP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CLISPIFY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CLOSURE-CACHE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CLSTREAMS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLARITH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLARRAY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLARRAY-SUPPORT.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLARRAYINSPECTOR.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLCHARACTER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLCOMPILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLDEFFER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLDESTRUCT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLDOC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLENVIRONMENT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLEVAL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLEXEC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLFILESYS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLFLOAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLFORMAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLHASH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLLIST.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLLOAD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLMACROS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLMISCIO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLMODULES.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLMVS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLPACKAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLPARSE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLPATHNAME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLPRED.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLPRINT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLPROGV.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLRAND.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLREAD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLREADTABLE.;5 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSEQ.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSEQBASICS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSEQCOMMON.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSEQFINDER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSEQMAPPERS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSEQMODIFY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSETF.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSMARTARGS.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSORT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSPECIALFORMS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSTEP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSTRING.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLSYMBOL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLTIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLTYPES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLUNDO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CMLWALK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>COMMENT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>COMMON.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>COMPARE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>COMPATIBILITY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>COMPILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>COMPILER-PACKAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CONDITION-HIERARCHY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CONDITION-HIERARCHY-IL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CONDITION-HIERARCHY-POST-SI.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CONDITION-HIERARCHY-SI.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>CONDITION-PACKAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>COREIO.;5 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>COROUTINE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>COURIER.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>D-ASSEM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>D-ASSEM-PACKAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DEBUGEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DEBUGGER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DEFFER-RUNTIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DEFPACKAGE-IMPORT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DEFSTRUCT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DEFSTRUCT-RUN-TIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DESCRIBE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DEXEC.;11 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DFILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DIRECTORY.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DISKDLION.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DISKVMEMDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DLAP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DMISC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DOVEDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DOVEETHERDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DPUPFTP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DSK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DSKDISPLAY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DSPRINTDEF.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DTDECLARE.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DWIM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>DWIMIFY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>EDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>EDITINTERFACE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ERROR-RUNTIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ERROR-RUNTIME-AFTER-FASL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>EXEC-COMMANDS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FASDUMP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FASL-PACKAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FASL-SUPPORT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FASLOAD.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FILEIO.;11 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FILEPKG.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FILESETS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FONT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FONTPROFILE.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FONTPROFILEPATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>FREEMENU.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>GAINSPACE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>HARDCOPY.;7 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>HIST.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>HLDISPLAY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>HPRINT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>ICONW.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>IDLER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>IL-ERROR-STUFF.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>IMAGEIO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>IMPLICIT-KEY-HASH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>INSPECT.;8 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>INSPECT-CLOSURE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>INTERPRESS.;7 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>IOCHAR.;6 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LEAF.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LISP-PACKAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLARITH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLARRAYELT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLBASIC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLBFS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLBIGNUM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLCHAR.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLCODE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLDATATYPE.;12 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLDISPLAY.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLERROR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLETHER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLFAULT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLFLOAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLGC.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLINTERP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLKEY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLMVS.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLNEW.;16 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLNS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLNSDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLPACKAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLPARAMS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLREAD.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLRESTART.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLSTK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLSUBRS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLSYMBOL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LLTIMER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LOADFNS.;8 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LOADUP-FULL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LOADUP-LISP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LOCALFILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>LOGOW.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MACHINEINDEPENDENT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MACROAUX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MACROAUX-OPTIMIZERS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MACROS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MAIKOBITBLT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MAIKOETHER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MAIKOINIT.;1 .Warning: Error attempting to LOADVARS (IL:MAIKOINITCOMS) from {DSK}<home>larry>ilisp>medley>sources>MAIKOINIT.;1.
+;;; {DSK}<home>larry>ilisp>medley>sources>MAIKOLOADUPFNS.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MAKEINIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MEM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MENU.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MISC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MOD44IO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>MODARITH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>NEWPRINTDEF.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>NSFILING.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>NSPRINT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PACKAGE-CONVERSION-TABLE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PACKAGE-STARTUP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PAINTW.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PASSWORDS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PMAP.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>POSTLOADUP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PRETTY.;7 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PRINTFN.;5 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PROC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PROFILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>PUP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>READSYS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>RECORD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>RENAMEFNS.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>RENAMEMACROS.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>RESOURCE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-ACCESS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-ATOMIC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-BASE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-COMMANDS.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-COMMENTS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-CONVERT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-DEBUG.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-DECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-EXPORTS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-INDENT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-LINEAR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-LIST-FORMATS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-LISTS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-TERMINAL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-TOPLEVEL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SEDIT-WINDOW.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SETF-RUNTIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SPELL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SPELLFILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SPP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SPPDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>STACKFNS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>SYSPRETTY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>TCPHTE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>TIME.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>TRSERVER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>TTYIN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>TWODINSPECTOR.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>UFS.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>UFSCALLC.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>UNDO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>UNWINDMACROS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>VANILLADISK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>VMEM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>WALKER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>WEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>WINDOW.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>WINDOWICON.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>WINDOWOBJ.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>WINDOWSCROLL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>WRAPPERS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>WTFIX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCL-COMPILER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCL-EXTRAS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCL-PACKAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-ALPHA.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-ANALYZE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-ANNOTATE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-DATABASE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-ENV-CTXT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-GENCODE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-META-EVAL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-OPTIMIZERS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-PEEPHOLE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-RUNTIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-TOP-LEVEL.;11 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-TRANSFORMS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XCLC-TREES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XXFILL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>sources>XXGEOM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>BIGBITMAPS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>BROWSER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CASH-FILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CHARCODETABLES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CHARDEVICE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CHARS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CHATDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CHATSERVER-EMACS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CHATTERMINAL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CLIPBOARD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>CMLFLOATARRAY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>COLOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>COPYFILES.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>DANDELIONKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:DANDELIONKEYBOARDSCOMS) from {DSK}<home>larry>ilisp>medley>library>DANDELIONKEYBOARDS.;3.
+;;; {DSK}<home>larry>ilisp>medley>library>DATABASEFNS.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>DEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>DEDITPP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>DES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>DMCHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>DORADOKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:DORADOKEYBOARDSCOMS) from {DSK}<home>larry>ilisp>medley>library>DORADOKEYBOARDS.;3.
+;;; {DSK}<home>larry>ilisp>medley>library>DOSPRINT.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>DOVEKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:DOVEKEYBOARDSCOMS) from {DSK}<home>larry>ilisp>medley>library>DOVEKEYBOARDS.;3.
+;;; {DSK}<home>larry>ilisp>medley>library>DOVERS232C.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>EDITBITMAP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>ETHERRECORDS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>FILE-UPDATE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>FILEBROWSER.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>FONTSAMPLE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>FOREIGN-FUNCTIONS.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>FX-80DRIVER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>GCHAX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>GRAPHER.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>GRAPHZOOM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>HASH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>HASH-FILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>HRULE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>IMAGEOBJ.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>KEYBOARDCONFIGS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>KEYBOARDEDITOR.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>lafite> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<home>larry>ilisp>medley>library>lafite>.
+;;; {DSK}<home>larry>ilisp>medley>library>LLCOLOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>LOAD-SKETCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>MAIKOCOLOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>MAIKOKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (IL:MAIKOKEYBOARDSCOMS) from {DSK}<home>larry>ilisp>medley>library>MAIKOKEYBOARDS.;3.
+;;; {DSK}<home>larry>ilisp>medley>library>MASTERSCOPE.;5 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>MATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>MATMULT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>MSANALYZE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>MSCOMMON.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>MSPARSE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>NSCHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>NSMAINTAIN.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>patches> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<home>larry>ilisp>medley>library>patches>.
+;;; {DSK}<home>larry>ilisp>medley>library>PCTREE.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>POSTSCRIPTSTREAM.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>PRESS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>RDSYS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>READNUMBER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>REMOTEVMEM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SAMEDIR.;10 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SCALEBITMAP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SEDIT-COMMONLISP.;2 .Warning: Error attempting to LOADVARS (IL:SEDIT-COMMONLISPCOMS) from {DSK}<home>larry>ilisp>medley>library>SEDIT-COMMONLISP.;2.
+;;; {DSK}<home>larry>ilisp>medley>library>SKETCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SKETCHBMELT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SKETCHEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SKETCHELEMENTS.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SKETCHOBJ.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SKETCHOPS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SKETCHSTREAM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SPY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>SYSEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TABLEBROWSER.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TABLEBROWSERDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TBDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDIT.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITABBREV.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITCHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITCOMMAND.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITDCL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITFILE.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITFIND.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITFNKEYS.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITHCPY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITHISTORY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITLOOKS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITMENU.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITPAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITSCREEN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITSELECTION.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEDITWINDOW.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TELERAID.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEXEC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TEXTMODULES.;1 .
+{DSK}<home>larry>ilisp>medley>library>SEDIT-COMMONLISP.DFASL;2
 XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>SEDIT-COMMONLISP.;1
 Source file created  4-Jan-2021 22:52:01
 FASL file created Monday, 4 January 2021, 22:52:13
 
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTMODULES.DFASL;1
+{DSK}<home>larry>ilisp>medley>library>TEXTMODULES.DFASL;1
 XCL Compiler output for source file {DSK}<king>export>lispcore>library>TEXTMODULES.;1
 Source file created Wednesday, 16 January 1991, 9:07:18.
 FASL file created Tuesday, 12 July 1994, 12:31:02.
 
 .. done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTOFD.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TTYCHAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.;172 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXTELNET.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VIRTUALKEYBOARDS.;11 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VT100KP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VTCHAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>WHERE-IS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>XCCS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ACCESS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ACE> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ACE>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ADDRESSBOOK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS-DEMO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AISBLT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ANALYZER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ARCHIVEBROWSER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ARCHIVETOOL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ARMODES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>autosamedir.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AUXMENU.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDIMAGES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDMENU.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BICLOCK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BIGGER-FONT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BITMAP-GALLERY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>bitmapfns.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BLACKBOX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;3 .Warning: Couldn't find BLOCKS-HKBCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BMENCODE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BOYERMOORE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BRKDWNREPORT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>bsearch.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BUTTONS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>C150STREAM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CALENDAR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>canvasconverter.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATEMACS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-NS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-RS232.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-TCP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>checkset.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>circlprint.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CL-TTYEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLORDEMO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLORNNCC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLOROBJ.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLORPOLYGONS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMENTHACKS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMON-MAKE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMWINDOW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPARE-PATHS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPAREDIRECTORIES.;285 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPARESOURCES.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>comparetext.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>compilebang.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERDEFS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIEREVALSERVE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERIMAGESTREAM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVEPATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CROCK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO4096.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATATYPESPLUS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATEFNS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATEFORMAT-EDITOR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATESORT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEBUGGER-CONTEXT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DECL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEDITHARDCOPY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTICON.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTSUBITEMFN.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEFINERPRINT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIALPHONE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICOLOR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;3 .Warning: Error attempting to LOADVARS (DICT-WINDOW-TYPESCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICTTOOL.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIGEST.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIGI-CLOCK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;7 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIRGRAPHER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DLIONFNKEYS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DOC-OBJECTS.;9 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>document.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>donz.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DORADOCOLOR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DPUPFTPPATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DSPSCALE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>dumper.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DUMPLOAD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EDITBG.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EDITFONT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EDITKEYS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EMACS.;11 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ENDNOTE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONFORMS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ETHERBOOT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EVALOBJ.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EYECON.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FASTEDITBM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILECACHE-FIX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FileCacheMsgWindow.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILENAMES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILEWATCH.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILLREGION.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FIND-CITATION.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FINGER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FM-CREATOR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>fm-creator-examples> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>fm-creator-examples>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FONTDECLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FONTSAMPLER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FORMACRO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FTPSERVERPATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;3 .Warning: Error attempting to LOADVARS (GENERIC-INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GRAPHCALLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GraphGroup.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GREP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GRID-ICONS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;3 .Warning: Couldn't find H-ENVCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;3 .Warning: Couldn't find H-LOADCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;3 .Warning: Couldn't find H-PATCHESCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;3 .Warning: Couldn't find H-SOURCECOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HANOI.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HARDCOPY-RETAIN.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HASHBUFFER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HASHDATUM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HEADLINE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HGRAPH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HISTMENU.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HOSTUP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HPGL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-INIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-LOG.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDEASKETCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDLEDRAIN.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDLEHAX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDLESWAP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>INDEX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>INSPECTCODE-TEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IPTALK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISCONSTANTS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISDEMOFNS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISIO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISLIB.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISNET.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISSTREAM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISVIEW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KEYOBJ.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KINETIC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KOTOLOGO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LABEL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITE-INDENT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITEABBREV.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITEPRIVATEDL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITETIMEDDELETE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAMBDATRAN.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAYOUT-SEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LIFE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LISPNERD.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOADIRIS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOADMENUITEMS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LoadPatches.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGIC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-DEVEL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-UNIFIER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGTIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOOKUPINFILES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LUPINE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MACINTERFACE.;81 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MACWINDOW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MAGNIFIER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MAILSHARE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MAKEGRAPH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MANAGER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MANDELBROT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MATHSERVER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>mathserverplot.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MATHTONS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MATRIXOPS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MESATOLISP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MICROTEK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MICROTEKPRINT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MISSILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.;16 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MONITOR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MTP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MULTIPLE-HARDCOPY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NEATICONS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NGROUP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOTECARDS-4045XLPPATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD-CORESTYLES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOVAFONT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSALLOCATION.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSCOPYFILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSDISPLAYSIZES.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSPROTECTION.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSREADERPATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSROUTINGHASH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTALK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTALKGAP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTHASIZE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>OSS-LYRIC-PATCHES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PAC-MAN-IDLE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PACKED-STRUCTURE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PACMAN.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PAGEHOLD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PARSER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PARSERG.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PATCH-LARGEIPBITMAP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PATCH-TWOSIDED.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PCMEMTEST.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PHONE-DIRECTORY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PIECE-MENUS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PIXELBLT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLAINTEXTSTREAM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLAY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOT.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTANDNC-PATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTBOXPATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTEXAMPLES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTINSKETCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS1.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS2.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PORT-CLFILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT-old> .Warning: Error attempting to LOADVARS (NILCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>POSTSCRIPT-old>.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PP-CODE-FILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PREEMPTIVE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRESSFROMNS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRINTERMENU.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PROGRAMCHAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PROMPTREMINDERS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PROOFREADER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-PATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-RS232.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-SEND.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-SKETCH-PATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-TTY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PSCFONT-FIX-FILENAME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>QEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>QIX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READAIS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READAPPLEFONT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READBRUSH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READDATATYPE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READDISPLAYFONT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READEBCDIC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READINTERPRESS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>REGION.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>REGISTER-MACHINE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>REMOTEPSW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCCOMMON.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCDECLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCLOWLEVEL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCOS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCPORTMAPPER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCRPC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCSTRUCT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCXDR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RS232CNETWORK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SCREENPAPER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEARCHMENU.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-COMMONLISP.;3 .(SEDIT-COMMONLISPCOMS reset)
+;;; {DSK}<home>larry>ilisp>medley>library>TEXTOFD.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TFBRAVO.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>TTYCHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>UNICODE.;167 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>UNIXCHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>UNIXCOMM.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>UNIXPRINT.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>UNIXTELNET.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>VIRTUALKEYBOARDS.;9 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>VT100KP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>VTCHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>WHERE-IS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>library>XCCS.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ACCESS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ACE> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<home>larry>ilisp>medley>lispusers>ACE>.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ADDRESSBOOK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>AIREGIONS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>AIREGIONS-DEMO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>AISBLT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ANALYZER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ARCHIVEBROWSER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ARCHIVETOOL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ARMODES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>autosamedir.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>AUXMENU.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BACKGROUNDIMAGES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BACKGROUNDMENU.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BICLOCK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BIGGER-FONT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BITMAP-GALLERY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>bitmapfns.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BLACKBOX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BLOCKS-HKB.;1 .Warning: Couldn't find IL:BLOCKS-HKBCOMS on {DSK}<home>larry>ilisp>medley>lispusers>BLOCKS-HKB.;1.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BMENCODE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BOYERMOORE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BRKDWNREPORT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>bsearch.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>BUTTONS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>C150STREAM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>CALENDAR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>canvasconverter.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>CD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>CHATEMACS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>CHATSERVER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>CHATSERVER-NS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>CHATSERVER-RS232.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>CHATSERVER-TCP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>checkset.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>circlprint.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>CL-TTYEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COLORDEMO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COLORNNCC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COLOROBJ.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COLORPOLYGONS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COMMENTHACKS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COMMON-MAKE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COMMWINDOW.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COMPARE-PATHS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COMPAREDIRECTORIES.;275 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COMPARESOURCES.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>comparetext.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>compilebang.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COURIERDEFS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COURIEREVALSERVE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COURIERIMAGESTREAM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COURIERSERVE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>COURIERSERVEPATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>CROCK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DANDELIONUFO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DANDELIONUFO4096.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DATATYPESPLUS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DATE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DATEFNS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DATEFORMAT-EDITOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DATESORT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DEBUGGER-CONTEXT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DECL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DEDITHARDCOPY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DEFAULTICON.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DEFAULTSUBITEMFN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DEFINERPRINT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DIALPHONE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DICOLOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DICT-WINDOW-TYPES.;1 .Warning: Error attempting to LOADVARS (IL:DICT-WINDOW-TYPESCOMS) from {DSK}<home>larry>ilisp>medley>lispusers>DICT-WINDOW-TYPES.;1.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DICTTOOL.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DIGEST.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DIGI-CLOCK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DINFO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DIRGRAPHER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DLIONFNKEYS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DOC-OBJECTS.;8 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>document.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>donz.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DORADOCOLOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DPUPFTPPATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DSPSCALE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>dumper.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>DUMPLOAD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>EDITBG.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>EDITFONT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>EDITKEYS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>EMACS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ENDNOTE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>EQUATIONFORMS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>EQUATIONS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ETHERBOOT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>EVALOBJ.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>EYECON.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FASTEDITBM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FILECACHE-FIX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FileCacheMsgWindow.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FILENAMES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FILEWATCH.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FILLREGION.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FIND-CITATION.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FINGER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FM-CREATOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>fm-creator-examples> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<home>larry>ilisp>medley>lispusers>fm-creator-examples>.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FONTDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FONTSAMPLER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FORMACRO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>FTPSERVERPATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>GENERIC-INIT.;1 .Warning: Error attempting to LOADVARS (IL:GENERIC-INITCOMS) from {DSK}<home>larry>ilisp>medley>lispusers>GENERIC-INIT.;1.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>GRAPHCALLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>GraphGroup.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>GREP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>GRID-ICONS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>H-ENV.;1 .Warning: Couldn't find IL:H-ENVCOMS on {DSK}<home>larry>ilisp>medley>lispusers>H-ENV.;1.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>H-LOAD.;1 .Warning: Couldn't find IL:H-LOADCOMS on {DSK}<home>larry>ilisp>medley>lispusers>H-LOAD.;1.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>H-PATCHES.;1 .Warning: Couldn't find IL:H-PATCHESCOMS on {DSK}<home>larry>ilisp>medley>lispusers>H-PATCHES.;1.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>H-SOURCE.;1 .Warning: Couldn't find IL:H-SOURCECOMS on {DSK}<home>larry>ilisp>medley>lispusers>H-SOURCE.;1.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HANOI.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HARDCOPY-RETAIN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HASHBUFFER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HASHDATUM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HEADLINE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HELPSYS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HGRAPH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HISTMENU.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HOSTUP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HPGL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HYPERDESK-INIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>HYPERDESK-LOG.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IDEASKETCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IDLEDRAIN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IDLEHAX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IDLESWAP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>INDEX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>INSPECTCODE-TEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IPTALK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IRISCONSTANTS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IRISDEMOFNS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IRISIO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IRISLIB.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IRISNET.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IRISSTREAM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>IRISVIEW.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>ISO8859IO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>KEYOBJ.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>KINETIC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>KOTOLOGO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LABEL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LAFITE-INDENT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LAFITEABBREV.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LAFITEPRIVATEDL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LAFITETIMEDDELETE.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LAMBDATRAN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LAYOUT-SEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LIFE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LISPNERD.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LOADIRIS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LOADMENUITEMS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LoadPatches.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LOGIC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LOGIC-DEVEL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LOGIC-UNIFIER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LOGTIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LOOKUPINFILES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>LUPINE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MACINTERFACE.;50 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MACWINDOW.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MAGNIFIER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MAILSHARE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MAKEGRAPH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MANAGER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MANDELBROT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MATHSERVER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>mathserverplot.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MATHTONS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MATRIXOPS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MESATOLISP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MICROTEK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MICROTEKPRINT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MISSILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MODERNIZE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MONITOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MTP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>MULTIPLE-HARDCOPY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NEATICONS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NGROUP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NOTECARDS-4045XLPPATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NOTEPAD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NOTEPAD-CORESTYLES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NOVAFONT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NSALLOCATION.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NSCOPYFILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NSDISPLAYSIZES.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NSPROTECTION.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NSREADERPATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NSROUTINGHASH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NSTALK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NSTALKGAP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>NSTHASIZE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>OSS-LYRIC-PATCHES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PAC-MAN-IDLE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PACKED-STRUCTURE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PACMAN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PAGEHOLD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PARSER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PARSERG.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PATCH-LARGEIPBITMAP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PATCH-TWOSIDED.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PCMEMTEST.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PHONE-DIRECTORY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PIECE-MENUS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PIXELBLT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLAINTEXTSTREAM.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLAY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLOT.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLOTANDNC-PATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLOTBOXPATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLOTEXAMPLES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLOTINSKETCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLOTOBJECTS.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLOTOBJECTS1.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PLOTOBJECTS2.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PORT-CLFILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>POSTSCRIPT> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<home>larry>ilisp>medley>lispusers>POSTSCRIPT>.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>POSTSCRIPT-old> .Warning: Error attempting to LOADVARS (IL:NILCOMS) from {DSK}<home>larry>ilisp>medley>lispusers>POSTSCRIPT-old>.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PP-CODE-FILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PREEMPTIVE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PRESSFROMNS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PRETTYFILEINDEX.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PRINTERMENU.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PROGRAMCHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PROMPTREMINDERS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PROOFREADER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PS-PATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PS-RS232.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PS-SEND.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PS-SKETCH-PATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PS-TTY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>PSCFONT-FIX-FILENAME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>QEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>QIX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>READAIS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>READAPPLEFONT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>READBRUSH.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>READDATATYPE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>READDISPLAYFONT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>READEBCDIC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>READINTERPRESS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>REGION.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>REGISTER-MACHINE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>REMOTEPSW.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RPC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RPCCOMMON.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RPCDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RPCLOWLEVEL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RPCOS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RPCPORTMAPPER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RPCRPC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RPCSTRUCT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RPCXDR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>RS232CNETWORK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SCREENPAPER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SEARCHMENU.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SEDIT-COMMONLISP.;1 .(SEDIT-COMMONLISPCOMS reset)
 .. done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-MENU-ALWAYS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PATCHES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PROFILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SETDEFAULTPRINTER.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SFFONT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SHOWTIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SIMPLECHAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SIMPLIFY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SINGLEFILEINDEX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SKETCHCOLOR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SKETCHTALK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SNAPW-ICON.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SOLID-MOVEW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SOLITAIRE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STARBG.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STEP-COMMAND-MENU.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STORAGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STREAMDECLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STYLESHEET.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SUPERPARENTHESES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SYSTATS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TALK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TALKGAP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TCPTIME.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-CLOSE-ON-SHRINK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-LINE-NUMBERING.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tedit-process-killer.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITDORADOKEYS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITKEY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITTALK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEK4010.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEK4010CHAT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TILED-SEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tkdorado.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-DATE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-ENDNOTE.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-INDEX.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGRAPH.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGROUP.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NUMBER.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-XREF.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tmenu.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRAJECTORY-FOLLOWER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR-LOADTRAN.;1 .Warning: Couldn't find TRANSOR-LOADTRANCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRANSOR-LOADTRAN.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRICKLE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TSET.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TTYTALK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TURBO-WINDOWS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TWODGRAPHICS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UNBOXEDOPS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UNDIGESTIFY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UNIFIER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UPCSTATS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UTILISOPRS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UUENCODE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;3 .Warning: Error attempting to LOADVARS (VANILLA-INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VSTATS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WALKFILES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WDWHACKS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;46 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHOCALLS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WINK.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WORDNERD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XCL-BRIDGE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XORCURSORPATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XREF.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ABC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARCLEANUP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>AREDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARHACK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARINDEX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARQUERY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;2 .Warning: Error attempting to LOADVARS (ARREPORT-TESTCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARSREPORT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CALENDARHACKS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CHANGECONTROL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>COMPTEST.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CONDITIONGRAPH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DICOLOR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DO-TEST.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DUMPFILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>FASL-DEBUG.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>FLOAT-ARRAY-SUPPORT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>GIVE-AND-TAKE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MACROTEST.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MACROTESTAUX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAILCLIENT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAINTAIN.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAKE-EXPORTS-ALL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAKE-TCP-EXPORTS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MEDLEY-UTILS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MESATYPES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>msx.;2 .Warning: Error attempting to LOADVARS (MSXCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>msx.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MULTI-COMPILE.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;2 .Warning: Error attempting to LOADVARS (NATIVE-TRANSLATORCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR-PACKAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NSTOASCIIDISPLAYFONT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>PEANO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>READ-PRINT-PROFILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>RELEASETOOLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>SMART-TRICKLE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>SPLICE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>TAR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>TYPEHAX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>WHEREIS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>XCLC-DEBUG.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;1 .(INITCOMS reset)
-Warning: Error attempting to LOADVARS (INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>INIT.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>LOCAL-INIT.;45 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>PARC-INIT.;21 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>greetfiles>SIMPLE-INIT.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMINDEX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMNAME.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMTEDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMTOOLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>docs>Documentation Tools>IMTRAN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SEDIT-MENU-ALWAYS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SEDIT-PATCHES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SEDIT-PROFILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SETDEFAULTPRINTER.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SFFONT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SHOWTIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SIMPLECHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SIMPLIFY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SINGLEFILEINDEX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SKETCHCOLOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SKETCHTALK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SNAPW-ICON.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SOLID-MOVEW.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SOLITAIRE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>STARBG.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>STEP-COMMAND-MENU.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>STORAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>STREAMDECLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>STYLESHEET.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SUPERPARENTHESES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>SYSTATS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TALK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TALKGAP.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TCPTIME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TEDIT-CLOSE-ON-SHRINK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TEDIT-LINE-NUMBERING.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>tedit-process-killer.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TEDITDORADOKEYS.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TEDITKEY.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TEDITTALK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TEK4010.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TEK4010CHAT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>THINFILES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TILED-SEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>tkdorado.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TMAX.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TMAX-DATE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TMAX-ENDNOTE.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TMAX-INDEX.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TMAX-NGRAPH.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TMAX-NGROUP.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TMAX-NUMBER.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TMAX-XREF.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>tmenu.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TRAJECTORY-FOLLOWER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TRANSOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TRANSOR-LOADTRAN.;1 .Warning: Couldn't find IL:TRANSOR-LOADTRANCOMS on {DSK}<home>larry>ilisp>medley>lispusers>TRANSOR-LOADTRAN.;1.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TRICKLE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TSET.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TTYTALK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TURBO-WINDOWS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>TWODGRAPHICS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>UNBOXEDOPS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>UNDIGESTIFY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>UNIFIER.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>UPCSTATS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>UTILISOPRS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>UUENCODE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>VANILLA-INIT.;1 .Warning: Error attempting to LOADVARS (IL:VANILLA-INITCOMS) from {DSK}<home>larry>ilisp>medley>lispusers>VANILLA-INIT.;1.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>VSTATS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>WALKFILES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>WDWHACKS.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>WHEELSCROLL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>WHOCALLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>WINK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>WORDNERD.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>XCL-BRIDGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>XORCURSORPATCH.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>lispusers>XREF.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>ABC.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>ARCLEANUP.;2 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>AREDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>ARHACK.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>ARINDEX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>ARQUERY.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>arreport-test.;1 .Warning: Error attempting to LOADVARS (IL:ARREPORT-TESTCOMS) from {DSK}<home>larry>ilisp>medley>internal>library>arreport-test.;1.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>ARSREPORT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>CALENDARHACKS.;4 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>CHANGECONTROL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>COMPTEST.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>CONDITIONGRAPH.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>DICOLOR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>DO-TEST.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>DUMPFILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>FASL-DEBUG.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>FLOAT-ARRAY-SUPPORT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>GIVE-AND-TAKE.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>MACROTEST.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>MACROTESTAUX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>MAILCLIENT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>MAINTAIN.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>MAKE-EXPORTS-ALL.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>MAKE-TCP-EXPORTS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>MEDLEY-UTILS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>MESATYPES.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>msx.;1 .Warning: Error attempting to LOADVARS (IL:MSXCOMS) from {DSK}<home>larry>ilisp>medley>internal>library>msx.;1.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>MULTI-COMPILE.;5 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>NATIVE-TRANSLATOR.;1 .Warning: Error attempting to LOADVARS (IL:NATIVE-TRANSLATORCOMS) from {DSK}<home>larry>ilisp>medley>internal>library>NATIVE-TRANSLATOR.;1.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>NATIVE-TRANSLATOR-PACKAGE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>NSTOASCIIDISPLAYFONT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>PEANO.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>READ-PRINT-PROFILE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>RELEASETOOLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>SMART-TRICKLE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>SPLICE.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>TAR.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>TYPEHAX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>WHEREIS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>internal>library>XCLC-DEBUG.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>greetfiles>INIT.;2 .Warning: Error attempting to LOADVARS (IL:INITCOMS) from {DSK}<home>larry>ilisp>medley>greetfiles>INIT.;2.
+;;; {DSK}<home>larry>ilisp>medley>greetfiles>LOCAL-INIT.;46 ... done.
+;;; {DSK}<home>larry>ilisp>medley>greetfiles>PARC-INIT.;21 ... done.
+;;; {DSK}<home>larry>ilisp>medley>greetfiles>SIMPLE-INIT.;3 ... done.
+;;; {DSK}<home>larry>ilisp>medley>docs>Documentation Tools>IMINDEX.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>docs>Documentation Tools>IMNAME.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>docs>Documentation Tools>IMTEDIT.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>docs>Documentation Tools>IMTOOLS.;1 ... done.
+;;; {DSK}<home>larry>ilisp>medley>docs>Documentation Tools>IMTRAN.;1 ... done.
diff --git a/loadups/whereis.hash b/loadups/whereis.hash
index 9cbb471f..b782e9de 100644
Binary files a/loadups/whereis.hash and b/loadups/whereis.hash differ
