diff --git a/library/RDSYS b/library/RDSYS
index 1a0596ed..1bdd51f3 100644
--- a/library/RDSYS
+++ b/library/RDSYS
@@ -1,6 +1,298 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "26-Apr-2021 23:01:16" |{DSK}<Users>kaplan>Local>medley3.5>git-medley>tmp>RDSYS.;16|
)


(PRETTYCOMPRINT RDSYSCOMS)

(RPAQQ RDSYSCOMS ((FNS VREADPAGEMAP VREADPAGEMAPBLOCK VCHECKIFPAGE V\\LOCKEDPAGEP V\\LOOKUPPAGEMAP VCHECKPAGEMAP VCHECKFPTOVP VCHECKFPTOVP1 V\\SHOWPAGETABLE V\\PRINTFPTOVP) (FNS VRAIDCOMMAND VRAIDSHOWFRAME VRAIDSTACKCMD VRAIDROOTFRAME VPRINTADDRS VPRINTVA VREADVA VREADOCT VREADATOM VSHOWSTACKBLOCKS VSHOWSTACKBLOCK1 VPRINCOPY VNOSUCHATOM) (FNS V\\BACKTRACE V\\STKNAME V\\PRINTBF V\\PRINTFRAME V\\SCANFORNTENTRY V\\PRINTSTK) (FNS V\\CHECKARRAYBLOCK V\\PARSEARRAYSPACE V\\PARSEARRAYSPACE1) (FNS VPRINTCODE VPRINTCODENT VBROKENDEF) (FNS V\\CAR.UFN V\\CDR.UFN) (FNS V\\COPY V\\UNCOPY) (FNS V\\GETBASEBYTE V\\PUTBASEBYTE) (FNS VNTYPX VTYPENAME V\\TYPENAMEFROMNUMBER) (FNS VUNCOPYATOM VMAKE.LOCAL.ATOM VSYMBOL.VALUE VSYMBOL.PNAME VSYMBOL.PACKAGE VOLD.FIND.SYMBOL VLOOKUP-SYMBOL VFIND.PACKAGE VFIND.SYMBOL VPACKAGE.NAME V\\MKATOM VGETTOPVAL VGETPROPLIST VSETTOPVAL VGETDEFN V\\ATOMCELL) (FNS VLISTP) (VARS (COPYATOMSTR)) (FNS V\\GET-COMPILED-CODE-BASE) (* |;;| "YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)") (FILES VMEM) (VARS RDVALS RDPTRS) (DECLARE\: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) VMEM))))
(DEFINEQ

(VREADPAGEMAP
(LAMBDA NIL (*) (*) (PROG (D) (MAPVMPAGE (IPLUS (LLSH (VHILOC (VVAG2 20 0)) 8) (LRSH (VLOLOC (VVAG2 20 0)) 8)) 1) (*) (*) (MAPVMPAGE (IPLUS (LLSH (VHILOC (VVAG2 5 0)) 8) (LRSH (VLOLOC (VVAG2 5 0)) 8)) (SUB1 (VGETBASE (VVAG2 20 0) 22))) (*) (SETVMPTR (VVAG2 5 0)) (|for| I |from| 0 |to| (SUB1 (LRSH (IPLUS 256 31) 5)) |as| VP |from| (IPLUS (LLSH (VHILOC (VVAG2 5 0)) 8) (LRSH (VLOLOC (VVAG2 5 0)) 8)) |by| 32 |do| (*) (VREADPAGEMAPBLOCK VP)) (|for| J |from| 0 |to| (SUB1 8) |as| FP |from| (SUB1 (VGETBASE (VVAG2 20 0) 23)) |do| (*) (MAPVMPAGE (IPLUS (IPLUS (LLSH (VHILOC (VVAG2 20 512)) 8) (LRSH (VLOLOC (VVAG2 20 512)) 8)) J) FP)) (|for| I |from| 0 |to| (SUB1 (LLSH 8 8)) |do| (COND ((IEQ (SETQ D (VGETBASE (VVAG2 20 512) I)) 65535)) (T (SETVMPTR (VADDBASE (VVAG2 5 0) D)) (VREADPAGEMAPBLOCK (LLSH I 5)))))))
)

(VREADPAGEMAPBLOCK
(LAMBDA (VP) (*) (PROG ((B VP) P) (FRPTQ 32 (COND ((NEQ (SETQ P (VBIN2)) 0) (MAPVMPAGE B (SUB1 P)))) (SETQ B (ADD1 B)))))
)

(VCHECKIFPAGE
(LAMBDA NIL (*) (COND ((NOT (EQUAL 5603 (VGETBASE (VVAG2 20 0) 15))) (|printout| T "Warning: " "Interface page key" "= " (PROGN 5603) ", but \\InterfacePage says " (VGETBASE (VVAG2 20 0) 15) T))))
)

(V\\LOCKEDPAGEP
(LAMBDA (VP TEMP) (*) (*) (OR (NEQ 0 (LOGAND (LLSH 1 (IMOD VP 16)) (VGETBASE (VADDBASE (VVAG2 20 28672) (LRSH VP 4)) 0))) NIL))
)

(V\\LOOKUPPAGEMAP
(LAMBDA (VP) (*) (*) (LET ((PRIMENTRY (VGETBASE (VVAG2 20 512) (LRSH VP 5)))) (COND ((EQ PRIMENTRY 65535) 0) (T (VGETBASE (VVAG2 5 0) (IPLUS PRIMENTRY (LOGAND VP 31)))))))
)

(VCHECKPAGEMAP
(LAMBDA NIL (*) (LET ((*PRINT-BASE* 8) (NUMOCCUPIED 0) (NUMLOCKED 0) (CHAINOCCUPIED 0) (CHAINLOCKED 0) RPTR FPBASE FP VP RP) (VCHECKFPTOVP) (|for| RPTINDEX |from| 1 |to| (SUB1 VRPTSIZE) |when| (ILESSP (VGETBASE (PROGN (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RPTINDEX 1)) RPTINDEX))) 1) 65534) |do| (SETQ NUMOCCUPIED (PLUS NUMOCCUPIED 1)) (SETQ VP (VGETBASE RPTR 1)) (SETQ FP (VGETBASE RPTR 2)) (COND ((VCHECKFPTOVP1 FP VP RPTINDEX)) ((NEQ VP (\\GETBASEFIXP (SETQ FPBASE (VADDBASE (VVAG2 2 0) FP)) 0)) (|printout| T "RPT for RP " (RPFROMRPT RPTINDEX) " says VP ") (\\PRINTVP VP T) (|printout| T " lives in FP " FP "; but FP Map says that FP contains ") (\\PRINTVP (\\GETBASEFIXP FPBASE 0) T) (|printout| T T)) ((V\\LOCKEDPAGEP VP) (SETQ NUMLOCKED (PLUS NUMLOCKED 1)) (COND ((NOT (NEQ 0 (LRSH (VGETBASE RPTR 0) 15))) (|printout| T "VP " VP ", living in RP " (RPFROMRPT RPTINDEX) " should be locked but isn't." T)) ((IGREATERP FP (DLRPFROMFP (VGETBASE (VVAG2 20 0) 57))) (|printout| T "VP " VP " is locked, but living in FP " FP ", which is not in the locked page area" T)))))) (PROGN (SETQ RPTR VREALPAGETABLE) (*) (|while| (NEQ (SETQ RP (LOGAND (VGETBASE RPTR 0) 32767)) 0) |when| (ILESSP (VGETBASE (PROGN (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RP 1)) RP))) 1) 65534) |do| (SETQ CHAINOCCUPIED (PLUS CHAINOCCUPIED 1)) (COND ((NEQ 0 (LRSH (VGETBASE RPTR 0) 15)) (SETQ CHAINLOCKED (PLUS CHAINLOCKED 1))))) (COND ((ILESSP CHAINOCCUPIED NUMOCCUPIED) (|printout| T NUMOCCUPIED " occupied pages, but only " CHAINOCCUPIED " are on page chain.  " NUMLOCKED " pages are permanently locked; " CHAINLOCKED " pages on chain are locked somehow." T))))))
)

(VCHECKFPTOVP
(LAMBDA NIL (*) (|for| FP |from| 1 |to| (\\GETBASEFIXP (VVAG2 20 0) 82) |as| (FPBASE _ (VADDBASE (VVAG2 2 0) 1)) |by| (VADDBASE FPBASE 1) |when| (NEQ (VGETBASE FPBASE 0) 65535) |do| (VCHECKFPTOVP1 FP (\\GETBASEFIXP FPBASE 0))))
)

(VCHECKFPTOVP1
(LAMBDA (FP VP RPTINDEX) (*) (PROG ((FP2 (V\\LOOKUPPAGEMAP VP))) (RETURN (COND ((NEQ FP2 FP) (COND (NIL (|printout| T "RPT for RP " (RPFROMRPT RPTINDEX))) (T (|printout| T "FP map"))) (|printout| T " says FP " FP " contains VP ") (\\PRINTVP VP T) (|printout| T "; but PageMap says that page is in FP " FP2 T) T)))))
)

(V\\SHOWPAGETABLE
(LAMBDA (MODE FILE) (*) (PROG ((*PRINT-BASE* 8) (OUTSTREAM (GETSTREAM FILE (QUOTE OUTPUT))) (RPTR VREALPAGETABLE) (RP 0) FLAGS VP STATE FIRSTONE LASTONE) (|printout| OUTSTREAM "     RP      VP           FilePage  Status" T) (|until| (SELECTQ MODE (CHAIN (EQ (SETQ RP (LOGAND (VGETBASE RPTR 0) 32767)) 0)) (NIL (SETQ RP (PLUS RP 1)) (IGEQ RP VRPTSIZE)) (\\ILLEGAL.ARG MODE)) |do| (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RP 1)) RP)) (SETQ VP (VGETBASE RPTR 1)) (COND ((AND (NULL MODE) (EQ VP STATE)) (SETQ LASTONE RP)) (T (COND (LASTONE (|printout| OUTSTREAM "ditto thru " LASTONE T) (SETQ LASTONE NIL))) (SETQ FIRSTONE RP) (SETQ STATE VP) (|printout| OUTSTREAM .I7.8 (RPFROMRPT RP)) (COND ((EQ (VGETBASE RPTR 1) 65534) (PRIN1 " Empty" OUTSTREAM)) ((NOT (ILESSP (VGETBASE RPTR 1) 65534)) (PRIN1 " Unavailable" OUTSTREAM)) (T (|printout| OUTSTREAM .I8.8 VP \,) (\\PRINTVP VP OUTSTREAM) (|printout| OUTSTREAM 28 .I6.8 (VGETBASE RPTR 2) |,,|) (COND ((NEQ 0 (LRSH (VGETBASE RPTR 0) 15)) (COND ((NOT (V\\LOCKEDPAGEP VP)) (*) (PRIN1 "Temp" OUTSTREAM))) (PRIN1 "Locked " OUTSTREAM))) NIL)) (TERPRI OUTSTREAM))))))
)

(V\\PRINTFPTOVP
(LAMBDA (FIRSTPAGE NWORDS TYPEFLG STREAM VPRAWFLG) (*) (SETQ STREAM (GETSTREAM STREAM (QUOTE OUTPUT))) (OR FIRSTPAGE (SETQ FIRSTPAGE 1)) (OR NWORDS (SETQ NWORDS (\\GETBASEFIXP (VVAG2 20 0) 82))) (LET ((BASE (VADDBASE (VVAG2 2 0) (SUB1 FIRSTPAGE))) (*PRINT-BASE* 8) (LASTVP -2) (NEXTFP (SUB1 FIRSTPAGE)) FIRSTFP FIRSTVP NEXTVP LOCKEDP TYPE NEXTLOCKED NEXTTYPE) (|while| (IGEQ NWORDS 0) |do| (SETQ NEXTFP (PLUS NEXTFP 1)) (COND ((EQ NWORDS 0) (SETQ NEXTVP -1)) ((NEQ (SETQ NEXTVP (VGETBASE (SETQ BASE (VADDBASE BASE 1)) 0)) 65535) (SETQ NEXTLOCKED (V\\LOCKEDPAGEP NEXTVP)) (|if| TYPEFLG |then| (SETQ NEXTTYPE (VTYPENAME ((LAMBDA ($$1) (VVAG2 (LRSH (SETQ $$1 NEXTVP) 8) (LLSH (LOGAND $$1 255) 8))) NIL))) (|if| (NULL NEXTTYPE) |then| (SETQ NEXTTYPE (SELECTC (LRSH NEXTVP 8) ((LIST 8 (CL:1+ 8)) "Pnames") ((LIST 10 (CL:1+ 10)) "Definitions") ((LIST 12 (CL:1+ 12)) "Value cells") ((LIST 2 (CL:1+ 2)) "Property lists") ((VHILOC (VVAG2 2 0)) "\\FPTOVP") (1 "Stack") ((VHILOC (VVAG2 22 0)) "GC Main table") ((VHILOC (VVAG2 23 0)) "GC Overflow table") NIL)))))) (COND ((COND ((EQ NEXTVP 65535) (NEQ LASTVP 65535)) (T (OR (NEQ NEXTVP (ADD1 LASTVP)) (NEQ NEXTLOCKED LOCKEDP) (NEQ TYPE NEXTTYPE)))) (COND ((IGEQ LASTVP 0) (COND (FIRSTFP (|printout| STREAM FIRSTFP "-"))) (|printout| STREAM (SUB1 NEXTFP) 12) (COND ((EQ LASTVP 65535) (|printout| STREAM "empty")) (T (COND (FIRSTFP (|if| VPRAWFLG |then| (PRIN1 FIRSTVP STREAM) |else| (\\PRINTVP FIRSTVP STREAM)) (PRIN1 "-" STREAM))) (|if| VPRAWFLG |then| (PRIN1 LASTVP STREAM) |else| (\\PRINTVP LASTVP STREAM)) (COND (LOCKEDP (PRIN1 (QUOTE *) STREAM))) (|if| TYPE |then| (|printout| STREAM 32 TYPE)))))) (SETQ FIRSTFP) (TERPRI STREAM) (SETQ FIRSTVP NEXTVP)) (T (*) (OR FIRSTFP (SETQ FIRSTFP (SUB1 NEXTFP))))) (SETQ LASTVP NEXTVP) (SETQ LOCKEDP NEXTLOCKED) (SETQ TYPE NEXTTYPE) (SETQ NWORDS (PLUS NWORDS -1)))))
)
)
(DEFINEQ

(VRAIDCOMMAND
(LAMBDA NIL (*) (DECLARE (USEDFREE ROOTFRAME ALINKS? RAIDIX FRAME# VPRINTLEVEL)) (FRESHLINE T) (PROG (CMD) (SELECTQ (SETQ CMD (ASKUSER NIL NIL "@" (QUOTE ((Q "uit [confirm]" CONFIRMFLG T) (\ "^N - remote return [confirm]" NOECHOFLG T CONFIRMFLG T RETURN (QUOTE ^N)) (L "isp stack ") (\ "Lisp stack " NOECHOFLG T EXPLAINSTRING "^L -- Lisp stack from arbitrary frame or context" RETURN (QUOTE ^L)) (F "rame ") (\
- "Next frame " EXPLAINSTRING "LF - next frame" RETURN (QUOTE LF)) (^ " Previous frame ") (A "tom top-level value of atom: ") (D "efinition for atom: ") (P "roperty list for atom: ") (V " -- show object at Virtual address: ") (B "lock of storage starting at address: ") (S "how raw stack from address: ") (C "ode for function:") (\ "Basic frame at: " EXPLAINSTRING "^F - print basic frame at octal address" RETURN (QUOTE ^F)) (\ "frame extension at: " EXPLAINSTRING "^X - print frame extension at octal address" RETURN (QUOTE ^X)) (W "alk stack blocks starting at: ") (K "" EXPLAINSTRING "K -- Set linKtype for stack ops") (_ " Set word at address: ") (\ " Set value of atom " EXPLAINSTRING "^V -- Set value of atom" RETURN (QUOTE ^V)) (\ "atom number for atom: " EXPLAINSTRING "^O - look up atom" RETURN (QUOTE ^O)) (Z "Zap Print level to: ") (I "nspect InterfacePage [confirm]" CONFIRMFLG T) (U " -- Show remote screen [confirm]" CONFIRMFLG T) ("\
-" "" RETURN NIL) (\ " Enter Lisp " EXPLAINSTRING "^Y -- Enter Lisp" RETURN (QUOTE ^Y)))) T)) (^N (RETURN (QUOTE RETURN))) (Q (TERPRI T) (RETURN (QUOTE QUIT))) (NIL) (A (VPRINCOPY (VGETTOPVAL (VREADATOM)))) (P (VPRINCOPY (VGETPROPLIST (VREADATOM)))) (C (VPRINTCODE (VREADATOM) T RAIDIX)) (V (VPRINCOPY (VREADVA))) (B (VPRINTADDRS (VREADVA) (VREADOCT " for (number of words): "))) (S (VPRINTADDRS (VVAG2 1 (VREADOCT)) (VREADOCT " for (number of words): "))) (D (VPRINTADDRS (V\\ATOMCELL (PROGN (VREADATOM)) 10) 2)) (^O (PRINTNUM .I2 (VATOMNUMBER (VREADATOM)) T)) (^V (PROG ((ATM (VREADATOM))) (|printout| T " to be ") (VSETTOPVAL ATM (READ T T)))) ((L ^L) (VRAIDSTACKCMD CMD)) (F (VRAIDSHOWFRAME (SETQ FRAME# (PROG1 (READ T T) (READC T))))) (LF (OR FRAME# (SETQ FRAME# 0)) (|printout| T "(" .I1 (SETQ FRAME# (PLUS FRAME# 1)) ")" T) (VRAIDSHOWFRAME FRAME#)) (^ (COND ((OR (NULL FRAME#) (ILEQ FRAME# 1)) (|printout| T "No previous frame" T)) (T (|printout| T "(" .I1 (SETQ FRAME# (PLUS FRAME# -1)) ")" T) (VRAIDSHOWFRAME FRAME#)))) (^F (V\\PRINTBF (VREADOCT) NIL (FUNCTION VPRINCOPY))) (Z (LET ((A (PROG1 (READ T T) (READC T))) (D (PROG1 (READ T T) (READC T)))) (COND ((AND (FIXP A) (FIXP D)) (SETQ VPRINTLEVEL (CONS A D))) (T (PRINTOUT T "Must be two integers, car level then cdr level" T) (ERROR!))))) (W (VSHOWSTACKBLOCKS (COND ((EQ (PEEKC T) (QUOTE \
-)) (READC T) (VGETBASE (VVAG2 20 0) 30)) (T (VREADOCT))))) (^X (V\\PRINTFRAME (VREADOCT) (QUOTE PRINCOPY))) (^Y (TERPRI T) (USEREXEC (QUOTE :\:))) (K (SETQ ALINKS? (EQ (ASKUSER NIL NIL " Set link type for stack operations to " (QUOTE ((A "links\
-") (C "links\
-"))) T) (QUOTE A)))) (_ (PROG ((VA (VREADVA))) (|printout| T " Currently ") (PRINTNUM .I7 (VGETBASE VA 0) T) (|printout| T " to be ") (VPUTBASE VA 0 (VREADOCT)))) (I (COND ((NULL (GETD (QUOTE INSPECT)))) ((RECLOOK (QUOTE IFPAGE)) (INSPECT (COND ((LISTP VMEMFILE) (VMAPPAGE (|fetch| (POINTER PAGE#) |of| |\\InterfacePage|))) (T (PROG ((PAGE (NCREATE (QUOTE VMEMPAGEP)))) (SETVMPTR (VGETTOPVAL (QUOTE |\\InterfacePage|))) (\\BINS (GETSTREAM VMEMFILE) PAGE 0 BYTESPERPAGE) (RETURN PAGE)))) (QUOTE IFPAGE))) (T (PRIN1 " Can't -- no record for IFPAGE"))) (TERPRI T)) (U (SHOWREMOTESCREEN)) (HELP)) (RETURN NIL)))
)

(VRAIDSHOWFRAME
(LAMBDA (N) (*) (PROG ((FRAME (OR ROOTFRAME (VRAIDROOTFRAME)))) (FRPTQ (SUB1 N) (COND ((EQ (PROGN (SETQ FRAME (COND (ALINKS? (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10)) (T (IDIFFERENCE (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1))) (VGETBASE (VVAG2 1 FRAME) 1)) (T (VGETBASE (VVAG2 1 FRAME) 9))) 10))))) 0) (RETURN (|printout| T N " is beyond the bottom of the stack" T))))) (V\\BACKTRACE FRAME FRAME T NIL T T NIL (FUNCTION VPRINCOPY) NIL RAIDIX)))
)

(VRAIDSTACKCMD
(LAMBDA (CMD) (*) (DECLARE (USEDFREE FRAME# ROOTFRAME)) (PROG (FRAME) (SETQ FRAME# 0) (COND ((EQ CMD (QUOTE L)) (VRAIDROOTFRAME)) (T (SETQ ROOTFRAME (SELECTQ (SETQ FRAME (ASKUSER NIL NIL "in context (? for help): " (QUOTE ((P "age fault") (G "arbage collection") (K "eyboard handler") (H "ard Return") (S "tack manipulator") (R "eset") (M "iscellaneous") (F "rame at location: "))) T)) (P (VGETBASE (VVAG2 20 0) 6)) (G (VGETBASE (VVAG2 20 0) 5)) (K (VGETBASE (VVAG2 20 0) 3)) (H (VGETBASE (VVAG2 20 0) 4)) (S (VGETBASE (VVAG2 20 0) 2)) (R (VGETBASE (VVAG2 20 0) 1)) (M (VGETBASE (VVAG2 20 0) 14)) (COND ((AND (ILESSP (SETQ FRAME (VREADOCT)) 256) (ILESSP (VGETBASE (VVAG2 20 0) FRAME) (VGETBASE (VVAG2 20 0) 7)) (IEQ (LRSH (VGETBASE (VVAG2 1 (PROGN (PROGN (VGETBASE (VVAG2 20 0) FRAME)))) 0) 13) 6)) (VGETBASE (VVAG2 20 0) FRAME)) ((IEQ (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 13) 6) FRAME) (T (PRINTNUM .I7 FRAME) (|printout| T " not a valid frame." T) (RETURN))))))) (FRESHLINE T) (V\\BACKTRACE ROOTFRAME NIL T NIL NIL NIL ALINKS? (FUNCTION VPRINCOPY) 1 RAIDIX)))
)

(VRAIDROOTFRAME
(LAMBDA NIL (*) (SETQ ROOTFRAME (PROG1 (COND ((LISTP VMEMFILE) (PRIN1 "in TeleRaid Context" T) (VGETBASE (VVAG2 20 0) 24)) (T (VGETBASE (VVAG2 20 0) 0))) (TERPRI T))))
)

(VPRINTADDRS
(LAMBDA (BASE CNT) (*) (PRIN1 "words from ") (VPRINTVA BASE) (PRIN1 " to ") (VPRINTVA (VADDBASE BASE (SUB1 CNT))) (TERPRI) (SPACES 7) (|for| I |from| 0 |to| 7 |do| (PRINTNUM .I7 I)) (PROG ((NB (VVAG2 (VHILOC BASE) (LOGAND (VLOLOC BASE) (CONSTANT (LOGXOR (SUB1 8) -1))))) (LB (VADDBASE BASE CNT))) (|do| (COND ((EVENP (VLOLOC NB) 8) (TAB 0 0) (PRINTNUM .I5 (VLOLOC NB)) (PRIN1 ": "))) (COND ((IGREATERP BASE NB) (SPACES 7)) (T (PRINTNUM .I7 (VGETBASE NB 0)))) (SETQ NB (VADDBASE NB 1)) |repeatwhile| (IGREATERP LB NB)) (TAB 0 0)))
)

(VPRINTVA
(LAMBDA (X) (*) (PRIN1 "{") (PRINTNUM .I2 (VHILOC X)) (PRIN1 ",") (PRINTNUM .I2 (VLOLOC X)) (PRIN1 "}"))
)

(VREADVA
(LAMBDA NIL (*) (VVAG2 (VREADOCT) (VREADOCT))))

(VREADOCT
(LAMBDA (PROMPT) (*) (DECLARE (USEDFREE RAIDIX)) (COND ((AND PROMPT (NOT (READP T))) (|printout| T PROMPT))) (|bind| STR |while| (EQUAL (SETQ STR (RSTRING T T)) "") |do| (READC T) |finally| (RETURN (PROG1 (OR (FIXP (SELECTQ RAIDIX (8 (MKATOM (CONCAT STR "Q"))) (16 (|bind| (N _ 0) CHAR |while| (SETQ CHAR (GNC STR)) |do| (SETQ N (IPLUS (ITIMES N 16) (COND ((FIXP CHAR) CHAR) ((AND (IGEQ (SETQ CHAR (CHCON1 CHAR)) (CHARCODE A)) (ILEQ CHAR (CHARCODE F))) (IPLUS (IDIFFERENCE CHAR (CHARCODE A)) 10)) (T (ERROR CHAR (QUOTE ?) T))))) |finally| (RETURN N))) (SHOULDNT))) (PROGN (PRIN1 "?" T) (ERROR!))) (READC T)))))
)

(VREADATOM
(LAMBDA NIL (*) (PROG1 (HANDLER-BIND ((XCL:MISSING-EXTERNAL-SYMBOL (CL:FUNCTION (LAMBDA (CONDITION) (* |;;| "MAKE AN INTERNAL SYMBOL INSTEAD") (CL:INTERN (XCL:MISSING-EXTERNAL-SYMBOL-NAME CONDITION) (XCL:MISSING-EXTERNAL-SYMBOL-PACKAGE CONDITION))))) (XCL:MISSING-PACKAGE (CL:FUNCTION (LAMBDA (CONDITION) (* |;;| "FAKE A PACKAGE BY THIS NAME AND MAKE THE SYMBOL IN IT") (CL:INTERN (XCL:MISSING-PACKAGE-SYMBOL-NAME CONDITION) (CL:MAKE-PACKAGE (XCL:MISSING-PACKAGE-PACKAGE-NAME CONDITION) :USE NIL)))))) (CL:READ T)) (READC T)))
)

(VSHOWSTACKBLOCKS
(LAMBDA (SCANPTR WAITFLG) (*) (*) (PROG ((EASP (VGETBASE (VVAG2 20 0) 7))) SCAN (SELECTC (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) (5 (VSHOWSTACKBLOCK1 SCANPTR "free block" (IEQ (VGETBASE (VVAG2 1 SCANPTR) 0) 40960)) (SETQ SCANPTR (PLUS SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 1)))) (7 (VSHOWSTACKBLOCK1 SCANPTR "guard block" T) (SETQ SCANPTR (PLUS SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 1)))) (6 (*) (VSHOWSTACKBLOCK1 SCANPTR "Frame extn = " (AND (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 6) (OR (IEQ (IDIFFERENCE SCANPTR 2) (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 SCANPTR) 1) 1))) (IDIFFERENCE SCANPTR 2)) (T (VGETBASE (VVAG2 1 SCANPTR) 8)))) (AND (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 (PROGN (IDIFFERENCE SCANPTR 2))) 0) 9) 1)) (IEQ (VGETBASE (VVAG2 1 (PROGN (IDIFFERENCE SCANPTR 2))) 1) (VGETBASE (VVAG2 1 (PROGN (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 SCANPTR) 1) 1))) (IDIFFERENCE SCANPTR 2)) (T (VGETBASE (VVAG2 1 SCANPTR) 8))))) 1)))))) (PRIN2 (V\\UNCOPY (VGETBASEPTR (PROGN (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 SCANPTR) 6)) (T (VGETBASEPTR (VVAG2 1 SCANPTR) 2)))) 4))) (SETQ SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 4))) (PROG ((ORIG SCANPTR) IVAR) (*) (|while| (EQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 0) |do| (SETQ SCANPTR (PLUS SCANPTR 2))) (COND ((NOT (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 4)) (VSHOWSTACKBLOCK1 ORIG "Garbage" T)) (T (SETQ IVAR (VGETBASE (VVAG2 1 SCANPTR) 1)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 9) 1)) (VSHOWSTACKBLOCK1 SCANPTR "Residual BF" (EQ SCANPTR ORIG)) (PRIN1 " with IVar = ") (PRINTNUM .I7 IVAR)) (T (VSHOWSTACKBLOCK1 SCANPTR "Basic frame" (AND (EQ ORIG IVAR) (AND (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 4) (|for| I |from| (VGETBASE (VVAG2 1 SCANPTR) 1) |to| (IDIFFERENCE SCANPTR 2) |by| 2 |always| (IEQ 0 (LRSH (VGETBASE (VVAG2 1 I) 0) 13)))))))) (SETQ SCANPTR (PLUS SCANPTR 2)))))) (TERPRI) (COND ((IGREATERP SCANPTR EASP) (RETURN))) (AND WAITFLG (READC T)) (GO SCAN)))
)

(VSHOWSTACKBLOCK1
(LAMBDA (PTR STR GOODFLG) (*) (PRINTNUM .I7 PTR) (SPACES 1) (OR GOODFLG (PRIN1 "[bad] ")) (PRIN1 STR))
)

(VPRINCOPY
(LAMBDA (X) (*) (PRINT (V\\UNCOPY X (CAR VPRINTLEVEL) (CDR VPRINTLEVEL)) T T)))

(VNOSUCHATOM
(LAMBDA (ATM) (*) (*) (|printout| T "No such atom: " ATM T) (ERROR "No such atom: ")))
)
(DEFINEQ

(V\\BACKTRACE
(LAMBDA (IPOS EPOS NAMES VARS LOCALS JUNK ALINKS PRINTFN CNT RADIX) (*) (OR RADIX (SETQ RADIX 8)) (PROG (NARGS NPVARS NAME ARGNAME BLINK (.I7 (NUMFORMATCODE (LIST (QUOTE FIX) 7 RADIX)))) (DECLARE (SPECVARS .I7)) POSLP (COND (CNT (|printout| NIL .I3 CNT ": ") (SETQ CNT (PLUS CNT 1)))) (SETQ NAME (V\\STKNAME IPOS)) (COND (JUNK (TERPRI) (TERPRI) (PRIN1 "Basic frame at ") (PRINTNUM .I7 (SETQ BLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (IDIFFERENCE IPOS 2)) (T (VGETBASE (VVAG2 1 IPOS) 8))))) (TERPRI) (V\\PRINTBF BLINK (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 IPOS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 IPOS) 6)) (T (VGETBASEPTR (VVAG2 1 IPOS) 2))) PRINTFN) (PROGN (TERPRI) (PRIN1 "Frame xtn at ") (PRINTNUM .I7 IPOS) (PRIN1 ", frame name= ")) (APPLY* PRINTFN NAME) (V\\PRINTFRAME IPOS PRINTFN)) ((OR VARS LOCALS) (V\\PRINTBF (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (IDIFFERENCE IPOS 2)) (T (VGETBASE (VVAG2 1 IPOS) 8))) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 IPOS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 IPOS) 6)) (T (VGETBASEPTR (VVAG2 1 IPOS) 2))) PRINTFN (COND (LOCALS (QUOTE LOCALS)) (T T))) (COND (NAMES (APPLY* PRINTFN NAME) (TERPRI))) (V\\PRINTFRAME IPOS PRINTFN (COND (LOCALS (QUOTE LOCALS)) (T T)))) (NAMES (APPLY* PRINTFN NAME))) (COND ((AND (NEQ EPOS IPOS) (NOT (EQ (PROGN (SETQ IPOS (COND (ALINKS (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10)) (T (IDIFFERENCE (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (VGETBASE (VVAG2 1 IPOS) 1)) (T (VGETBASE (VVAG2 1 IPOS) 9))) 10))))) 0))) (GO POSLP))) (RETURN T)))
)

(V\\STKNAME
(LAMBDA (POS) (*) (*) (LET ((NAME (VGETBASEPTR (PROGN (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 POS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 POS) 6)) (T (VGETBASEPTR (VVAG2 1 POS) 2)))) 4))) (|if| (EQ NAME (QUOTE \\INTERPRETER)) |then| (VGETBASEPTR (VVAG2 1 0) (LET ((BFLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 POS) 1) 1))) (IDIFFERENCE POS 2)) (T (VGETBASE (VVAG2 1 POS) 8))))) (+ (VGETBASE (VVAG2 1 BFLINK) 1) (TIMES (CL:1- (IDIFFERENCE (LRSH (IDIFFERENCE BFLINK (VGETBASE (VVAG2 1 BFLINK) 1)) 1) (LOGAND (LRSH (VGETBASE (VVAG2 1 BFLINK) 0) 8) 1))) 2)))) |else| NAME)))
)

(V\\PRINTBF
(LAMBDA (BL NMT PRINTFN VARSONLY) (*) (|bind| NM |for| I |from| (VGETBASE (VVAG2 1 BL) 1) |by| 2 |as| J |from| 0 |to| (SUB1 (IDIFFERENCE (LRSH (IDIFFERENCE BL (VGETBASE (VVAG2 1 BL) 1)) 1) (LOGAND (LRSH (VGETBASE (VVAG2 1 BL) 0) 8) 1))) |do| (OR VARSONLY (V\\PRINTSTK I)) (COND ((OR (SETQ NM (V\\SCANFORNTENTRY (OR NMT (RETURN (OR VARSONLY (TERPRI)))) (MAKE-NTENTRY 0 J))) (AND (NEQ VARSONLY T) (SETQ NM (QUOTE |*local*|)))) (AND VARSONLY (SPACES 3)) (PRIN2 NM) (SPACES 1) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 0) I)))) |finally| (OR VARSONLY (|while| (ILESSP I BL) |do| (V\\PRINTSTK I) (|printout| NIL "[padding]" T) (SETQ I (PLUS I 2))))) (COND ((NOT VARSONLY) (V\\PRINTSTK BL) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 BL) 0) 9) 1)) (PRIN1 "residual "))) (COND ((NEQ (LOGAND (VGETBASE (VVAG2 1 BL) 0) 255) 0) (|printout| NIL "usecnt= " (LOGAND (VGETBASE (VVAG2 1 BL) 0) 255) \,))) (TERPRI))))
)

(V\\PRINTFRAME
(LAMBDA (FRAME PRINTFN VARSONLY) (*) (PROG ((NMT (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 FRAME) 6)) (T (VGETBASEPTR (VVAG2 1 FRAME) 2)))) (I 0) (FT (IPLUS (IPLUS FRAME (PROGN 10)) (LLSH (ADD1 (SIGNED (VGETBASE (PROGN (VGETBASEPTR (VVAG2 1 FRAME) 2)) 2) 16)) 2) (PROGN 4))) TMP NLOCALS) (COND ((NOT VARSONLY) (V\\PRINTSTK FRAME) (PRIN1 "[") (PROGN (PROG ((FAST (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 12) 1)))) (DECLARE (LOCALVARS FAST)) (COND (FAST (PRIN1 (QUOTE "F, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "F, ") -1)) (= (|printout| NIL \, FAST NIL)) NIL) T))) (PROG ((INCALL (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 10) 1)))) (DECLARE (LOCALVARS INCALL)) (COND (INCALL (PRIN1 (QUOTE "C, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "C, ") -1)) (= (|printout| NIL \, INCALL NIL)) NIL) T))) (PROG ((VALIDNAMETABLE (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)))) (DECLARE (LOCALVARS VALIDNAMETABLE)) (COND (VALIDNAMETABLE (PRIN1 (QUOTE "V, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "V, ") -1)) (= (|printout| NIL \, VALIDNAMETABLE NIL)) NIL) T))) (PROG ((NOPUSH (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 8) 1)))) (DECLARE (LOCALVARS NOPUSH)) (COND (NOPUSH (PRIN1 (QUOTE "N, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "N, ") -1)) (= (|printout| NIL \, NOPUSH NIL)) NIL) T))) (PROG ((USECNT (LOGAND (VGETBASE (VVAG2 1 FRAME) 0) 255))) (DECLARE (LOCALVARS USECNT)) (COND ((NEQ USECNT 0) (PRIN1 (QUOTE "USE=")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "USE=") -1)) (= (|printout| NIL \, USECNT ", ")) NIL) T))) (PROG ((SLOWP (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1)))) (DECLARE (LOCALVARS SLOWP)) (COND (SLOWP (PRIN1 (QUOTE "X, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "X, ") -1)) (= (|printout| NIL \, SLOWP NIL)) NIL) T))) (PROG ((ALINK (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10))) (DECLARE (LOCALVARS ALINK)) (COND (T (PRIN1 (QUOTE " alink]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE " alink]") -1)) (= (|printout| NIL \, ALINK NIL)) NIL) T)))) (TERPRI) (PROGN (V\\PRINTSTK (IPLUS FRAME 2)) (PROGN (PROG ((FNHEADER (VGETBASEPTR (VVAG2 1 FRAME) 2))) (DECLARE (LOCALVARS FNHEADER)) (COND (T (PRIN1 (QUOTE "[fn header]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[fn header]") -1)) (= (|printout| NIL \, FNHEADER NIL)) NIL) T)))) (TERPRI)) (PROGN (V\\PRINTSTK (IPLUS FRAME 4)) (PROGN (PROG ((NEXTBLOCK (VGETBASE (VVAG2 1 FRAME) 4))) (DECLARE (LOCALVARS NEXTBLOCK)) (COND (T (PRIN1 (QUOTE "[next, pc]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[next, pc]") -1)) (= (|printout| NIL \, NEXTBLOCK NIL)) NIL) T)))) (TERPRI)) (PROGN (V\\PRINTSTK (IPLUS FRAME 6)) (PROGN (PROG ((NAMETABLE (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 FRAME) 6)) (T (VGETBASEPTR (VVAG2 1 FRAME) 2))))) (DECLARE (LOCALVARS NAMETABLE)) (COND (T (PRIN1 (QUOTE "[nametable]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[nametable]") -1)) (= (|printout| NIL \, NAMETABLE NIL)) NIL) T)))) (TERPRI)) (PROGN (V\\PRINTSTK (IPLUS FRAME 8)) (PROGN (PROG ((BLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1))) (IDIFFERENCE FRAME 2)) (T (VGETBASE (VVAG2 1 FRAME) 8))))) (DECLARE (LOCALVARS BLINK)) (COND (T (PRIN1 (QUOTE "[blink, clink]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[blink, clink]") -1)) (= (|printout| NIL \, BLINK NIL)) NIL) T)))) (TERPRI)))) (SETQ NLOCALS (LRSH (VGETBASE NMT 7) 8)) (|for| |old| I |from| (IPLUS FRAME (PROGN 10)) |by| 2 |while| (ILESSP I FT) |as| J |from| 0 |do| (OR VARSONLY (V\\PRINTSTK I)) (COND ((ILESSP J NLOCALS) (COND ((OR (SETQ TMP (V\\SCANFORNTENTRY NMT (MAKE-NTENTRY 32768 J))) (AND (NEQ VARSONLY T) (SETQ TMP "local"))) (COND ((EQ (LRSH (VGETBASE (PROGN (VVAG2 1 I)) 0) 12) 0) (AND VARSONLY (SPACES 3)) (PRIN2 TMP) (SPACES 1) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 I) 0))) ((NOT VARSONLY) (|printout| NIL TMP " [unbound]" T)))))) ((NOT VARSONLY) (COND ((SETQ TMP (V\\SCANFORNTENTRY NMT (MAKE-NTENTRY 49152 J))) (|printout| NIL "[fvar " .P2 TMP " " (COND ((EVENP (VGETBASE (PROGN (VVAG2 1 I)) 0)) (COND ((EQ (SETQ TMP (VHILOC ((LAMBDA ($$1) (VVAG2 (VGETBASE (PROGN $$1) 1) (VGETBASE $$1 0))) (VVAG2 1 I)))) 1) " on stack]") ((NEQ (LOGAND TMP (CONSTANT (LOGXOR (SUB1 2) -1))) (VHILOC (VVAG2 12 0))) (*) " non-stack binding]") (T " top value]"))) (T " not looked up]")) T)) (T (|printout| NIL "[padding]" T)))))) (COND ((NOT VARSONLY) (SETQ FT (VGETBASE (VVAG2 1 FRAME) 4)) (|for| |old| I |by| 2 |while| (ILESSP I FT) |do| (*) (V\\PRINTSTK I) (COND ((EQ (LRSH (VGETBASE (PROGN (VVAG2 1 I)) 0) 12) 0) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 I) 0))) (T (TERPRI))))))))
)

(V\\SCANFORNTENTRY
(LAMBDA (NMT NTENTRY) (*) (*) (|bind| NM |for| NT1 |from| (PROGN 8) |by| (CONSTANT (PROGN 2)) |as| NT2 |from| (IPLUS (PROGN 8) (VGETBASE NMT 6)) |by| (CONSTANT (WORDSPERNTOFFSETENTRY)) |do| (COND ((NULL-NTENTRY (SETQ NM (GETSTKNAMEENTRY NMT NT1))) (RETURN))) (COND ((IEQP NTENTRY (GETSTKNTOFFSETENTRY NMT NT2)) (RETURN (VATOM NM))))))
)

(V\\PRINTSTK
(LAMBDA (I) (*) (PRINTNUM .I7 I) (PRIN1 ": ") (PRINTNUM .I7 (VGETBASE (VVAG2 1 0) I)) (PRINTNUM .I7 (VGETBASE (VVAG2 1 0) (ADD1 I))) (SPACES 1))
)
)
(DEFINEQ

(V\\CHECKARRAYBLOCK
(LAMBDA (BASE FREE ONFREELIST) (*) (COND (T (PROG (ERROR TRAILER) (COND ((NEQ (LRSH (VGETBASE BASE 0) 3) 5461) (SETQ ERROR "ARRAYBLOCK Password wrong")) ((NEQ (NEQ 0 (LOGAND (VGETBASE BASE 0) 1)) (NOT FREE)) (SETQ ERROR "ARRAYBLOCK INUSE bit set wrong")) (NIL (SETQ ERROR "Free ARRAYBLOCK with RefCnt not 1")) ((NEQ (LRSH (VGETBASE (SETQ TRAILER ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) BASE (IDIFFERENCE (VGETBASE BASE 1) 1))) 0) 3) 5461) (SETQ ERROR "ARRAYBLOCK Trailer password wrong")) ((NEQ (VGETBASE BASE 1) (VGETBASE TRAILER 1)) (SETQ ERROR "ARRAYBLOCK Header and Trailer length don't match")) ((NEQ (NEQ 0 (LOGAND (VGETBASE BASE 0) 1)) (NOT FREE)) (SETQ ERROR "ARRAYBLOCK Trailer INUSE bit set wrong")) ((OR (NOT ONFREELIST) (ILESSP (VGETBASE BASE 1) 4)) (*) (RETURN)) ((OR (NOT (EQUAL (VGETBASEPTR (VGETBASEPTR BASE 4) 2) BASE)) (NOT (EQUAL (VGETBASEPTR (VGETBASEPTR BASE 2) 4) BASE))) (SETQ ERROR "ARRAYBLOCK links fouled")) ((|bind| (FBL _ ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) VFREEBLOCKBUCKETS (IMIN (INTEGERLENGTH (VGETBASE BASE 1)) 30))) ROVER |first| (OR (SETQ ROVER (VGETBASEPTR FBL 0)) (RETURN (SETQ ERROR "Free block's bucket empty"))) |do| (AND (EQUAL ROVER BASE) (RETURN)) (V\\CHECKARRAYBLOCK ROVER T) |repeatuntil| (EQ (SETQ ROVER (VGETBASEPTR ROVER 2)) (VGETBASEPTR FBL 0)))) (T (*) (RETURN))) (ERROR BASE ERROR) (RETURN ERROR)))))
)

(V\\PARSEARRAYSPACE
(LAMBDA (FN) (*) (COND ((NEQ |VArrayFrLst2| (VVAG2 64 0)) (*) (V\\PARSEARRAYSPACE1 FN (VVAG2 46 0) |VArrayFrLst2|) (V\\PARSEARRAYSPACE1 FN (VVAG2 64 0) |VArrayFrLst|)) (T (V\\PARSEARRAYSPACE1 FN (VVAG2 46 0) |VArrayFrLst|))))
)

(V\\PARSEARRAYSPACE1
(LAMBDA (FN START END) (*) (|for| (ROVER _ START) |repeatuntil| (EQUAL END (SETQ ROVER ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) ROVER (VGETBASE ROVER 1)))) |do| (V\\CHECKARRAYBLOCK ROVER (NOT (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1))) (AND (NOT (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1))) (VGETBASEPTR ROVER 2))) (AND FN (APPLY* FN ROVER (VGETBASE ROVER 1) (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1)) (LOGAND (LRSH (VGETBASE ROVER 0) 1) 3)))))
)
)
(DEFINEQ

(VPRINTCODE
(LAMBDA (FN LVFLG RADIX OUTF FIRSTBYTE PC FN.IS.CODEBASE) (*) (*) (*) (*) (*) (*) (DECLARE (SPECVARS OUTF)) (OR RADIX (SETQ RADIX 16)) (LET ((CODEBASE (COND (FN.IS.CODEBASE FN) (T (OR (V\\GET-COMPILED-CODE-BASE FN) (AND (LITATOM FN) (V\\GET-COMPILED-CODE-BASE (GET FN (QUOTE CODE)))) (ERROR FN "not compiled code"))))) (I4 (NUMFORMATCODE (LIST (QUOTE FIX) (|if| (IGREATERP RADIX 15) |then| 3 |else| 4) RADIX))) (I6 (NUMFORMATCODE (LIST (QUOTE FIX) (|if| (IGREATERP RADIX 15) |then| 5 |else| 6) RADIX))) NTSIZE STARTPC TAG TEMP OP# PVARS FVARS IVARS) (DECLARE (SPECVARS CODEBASE IVARS PVARS FVARS I4 I6)) (*) (LET ((*PRINT-BASE* RADIX)) (|for| I |from| 0 |by| 2 |while| (ILESSP I (LLSH (PROGN 8) 1)) |do| (PRINTNUM I4 I OUTF) (PRIN1 ": " OUTF) (PRINTNUM I6 (LOGOR (LLSH (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR I 3))) (T (V\\GETBASEBYTE CODEBASE I))) 8) ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (ADD1 I))) OUTF) (SELECTQ I (0 (PRIN1 " stkmin" OUTF)) (2 (PRIN1 " na" OUTF)) (4 (PRIN1 " pv" OUTF)) (6 (PRIN1 " startpc" OUTF)) (8 (AND (NEQ 0 (LRSH (VGETBASE CODEBASE 4) 15)) (PRIN1 "[CLOSUREP]" OUTF)) (|printout| OUTF " byteswapped: " (NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1))) (|printout| OUTF " argtype: " (LOGAND (LRSH (VGETBASE CODEBASE 4) 12) 3))) (10 (|printout| OUTF " frame name: " .P2 (V\\UNCOPY (VGETBASEPTR CODEBASE 4)))) (12 (PRIN1 " ntsize" OUTF)) (14 (|printout| OUTF " nlocals: " (LRSH (VGETBASE CODEBASE 7) 8)) (|printout| OUTF " fvaroffset: " (LOGAND (VGETBASE CODEBASE 7) 255))) NIL) (*) (TERPRI OUTF))) (SETQ NTSIZE (VGETBASE CODEBASE 6)) (VPRINTCODENT "name table: " (LLSH (PROGN 8) 1) (LLSH NTSIZE 1)) (SETQ STARTPC (VGETBASE CODEBASE 3)) (COND ((GREATERP (SETQ NTSIZE (IDIFFERENCE (COND ((PROGN NIL) (*) (- STARTPC 4)) (T STARTPC)) (SETQ TEMP (IPLUS (LLSH (PROGN 8) 1) (COND ((EQ NTSIZE 0) (*) 8) (T (LLSH NTSIZE 2))))))) 4) (VPRINTCODENT "Local args: " TEMP (LRSH NTSIZE 1))) ((EQ NTSIZE 4) (*) (|printout| OUTF T "Info: " .P2 (VGETBASEPTR CODEBASE (LRSH TEMP 1)) T))) (|printout| OUTF T "----" T) (PROG ((CODELOC STARTPC) (LEVEL (AND LVFLG 0)) B B1 B2 B3 B4 B5 FN LEN LEVADJ STK) (COND (LEVEL (SETUPHASHARRAY (QUOTE \\PRINTCODE.LEVEL)) (SETUPHASHARRAY (QUOTE \\PRINTCODE.STKSTATE)) (CLRHASH \\PRINTCODE.LEVEL) (CLRHASH \\PRINTCODE.STKSTATE))) LP (COND ((AND PC (IGEQ CODELOC PC)) (*) (COND ((NOT (IEQP CODELOC PC)) (PRINTOUT OUTF "(PC ") (PRINTNUM I4 PC OUTF) (PRINTOUT OUTF " not found)"))) (|printout| OUTF "------------------------------" T) (SETQ PC))) (COND ((OR (NULL FIRSTBYTE) (IGEQ CODELOC FIRSTBYTE)) (PRINTNUM I4 CODELOC OUTF) (PRIN1 ": " OUTF) (COND (LVFLG (SETQ TEMP (GETHASH CODELOC \\PRINTCODE.LEVEL)) (COND (LEVEL (COND ((AND TEMP (OR (NEQ LEVEL TEMP) (NOT (EQUAL STK (GETHASH CODELOC \\PRINTCODE.STKSTATE))))) (PRIN1 "*" OUTF)))) (T (SETQ LEVEL TEMP) (SETQ STK (GETHASH CODELOC \\PRINTCODE.STKSTATE)))) (COND (LEVEL (TAB 7 NIL OUTF) (PRINTNUM I4 LEVEL OUTF))))) (TAB 12 NIL OUTF)) (T (*) (SETQ TAG (\\FINDOP ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1)))))) (SELECTQ (OR (|fetch| OPPRINT |of| TAG) (|fetch| OPCODENAME |of| TAG)) (-X- (TERPRI OUTF) (RETURN)) (BIND (COND (LEVEL (|push| STK (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL (LOGAND (CODEBASELT CODEBASE CODELOC) 15)))))))) (UNBIND (AND LEVEL (SETQ LEVEL (|pop| STK)))) (DUNBIND (AND LEVEL (SETQ LEVEL (SUB1 (|pop| STK))))) (RETURN (SETQ LEVEL)) (SUBRCALL (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (ADD1 CODELOC))))))) (MISCN (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (IPLUS 2 CODELOC))))))) NIL) (COND ((AND LEVEL (SETQ LEVADJ (|fetch| LEVADJ |of| TAG))) (COND ((LISTP LEVADJ) (SETQ LEVADJ (CAR LEVADJ)))) (SELECTQ LEVADJ (FNX (SETQ LEVEL (PLUS LEVEL (IDIFFERENCE 1 (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR CODELOC 3))) (T (V\\GETBASEBYTE CODEBASE CODELOC))))))) (POP.N (SETQ LEVEL (IDIFFERENCE LEVEL (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR CODELOC 3))) (T (V\\GETBASEBYTE CODEBASE CODELOC)))))) ((JUMP UNWIND) (SETQ LEVEL)) ((CJUMP NCJUMP) (SETQ LEVEL (PLUS LEVEL -1))) (COND ((NUMBERP LEVADJ) (SETQ LEVEL (PLUS LEVEL LEVADJ))))))) (|add| CODELOC (|fetch| OPNARGS |of| TAG)) (GO LP))) (SETQ LEN (|fetch| OPNARGS |of| (SETQ TAG (\\FINDOP (SETQ B ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))))))) (PRINTNUM I4 B OUTF) (COND ((IGREATERP LEN 0) (PRINTNUM I4 (SETQ B1 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 1) (PRINTNUM I4 (SETQ B2 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 2) (PRINTNUM I4 (SETQ B3 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 3) (PRINTNUM I4 (SETQ B4 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 4) (PRINTNUM I4 (SETQ B5 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (PROGN (|printout| OUTF 30 (|fetch| OPCODENAME |of| TAG)) (SETQ OP# (|fetch| OP# |of| TAG)) (SETQ LEVADJ (|fetch| LEVADJ |of| TAG))) (COND ((LISTP OP#) (SETQ OP# (CAR OP#)))) (SELECTQ (SETQ TAG (OR (|fetch| OPPRINT |of| TAG) (|fetch| OPCODENAME |of| TAG))) (-X- (TERPRI OUTF) (RETURN)) (IVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) IVARS) (RETURN (|printout| OUTF "[" (QUOTE |ivar|) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (PVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) PVARS) (RETURN (|printout| OUTF "[" (QUOTE |pvar|) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (FVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) FVARS) (RETURN (|printout| OUTF "[" (QUOTE |fvar|) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (JUMP ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \\PRINTCODE.LEVEL) (PUTHASH N STK \\PRINTCODE.STKSTATE)))) (IPLUS (IDIFFERENCE B OP#) 2))) (SIC (|printout| OUTF 40 .P2 B1)) (SNIC (|printout| OUTF 40 .P2 (IDIFFERENCE B1 256))) (SICX (|printout| OUTF 40 .P2 (IPLUS (LLSH B1 8) B2))) (JUMPX ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \\PRINTCODE.LEVEL) (PUTHASH N STK \\PRINTCODE.STKSTATE)))) (COND ((IGEQ B1 128) (IDIFFERENCE B1 256)) (T B1)))) (FN (*) (NEW-SYMBOL-CODE (SETQ B (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B1 8) B2) 8) B3) 8) B4)) (SETQ B (IPLUS (LLSH B1 8) B2))) (|printout| OUTF 40 .P2 (VATOM B))) (BIND (TAB 40 NIL OUTF) (PROG ((NNILS (LRSH B1 4)) (NVALS (LOGAND B1 15))) (|for| I |from| (ADD1 (IDIFFERENCE B2 (IPLUS NNILS NVALS))) |to| (IDIFFERENCE B2 NNILS) |do| (SPACES 1 OUTF) (PCVAR I PVARS (QUOTE |pvar|))) (PRIN1 (QUOTE \;) OUTF) (|for| I |from| (ADD1 (IDIFFERENCE B2 NNILS)) |to| B2 |do| (SPACES 1 OUTF) (PCVAR I PVARS (QUOTE |pvar|))) (COND (LEVEL (|push| STK (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL NVALS)))))))) (JUMPXX ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \\PRINTCODE.LEVEL) (PUTHASH N STK \\PRINTCODE.STKSTATE)))) (IPLUS (LLSH B1 8) B2 (COND ((IGREATERP B1 127) -65536) (T 0))))) (ATOM (|printout| OUTF 40 .P2 (VATOM (NEW-SYMBOL-CODE (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B1 8) B2) 8) B3) 8) B4) (IPLUS (LLSH B1 8) B2))))) (GCONST (|printout| OUTF 40 .P2 (V\\UNCOPY (VVAG2 (IPLUS (LLSH B1 8) B2) (IPLUS (LLSH B3 8) B4))))) (FNX (|printout| OUTF "(" B1 ")" 40 .P2 (VATOM (NEW-SYMBOL-CODE (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B2 8) B3) 8) B4) 8) B5) (IPLUS (LLSH B2 8) B3))))) (TYPEP (|printout| OUTF "(" .P2 (OR (V\\TYPENAMEFROMNUMBER B1) (QUOTE ?)) ")")) (UNBIND (AND LEVEL (SETQ LEVEL (|pop| STK)))) (DUNBIND (AND LEVEL (SETQ LEVEL (SUB1 (|pop| STK))))) (RETURN (SETQ LEVEL)) (SUBRCALL (|printout| OUTF 40 (|for| X |in| \\INITSUBRS |when| (EQ B1 (CADR X)) |do| (RETURN (CAR X)) |finally| (RETURN "?"))) (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL B2))))) (MISCN (|printout| OUTF 40 (|for| X |in| \\USER-SUBR-LIST |when| (EQ B1 (CADR X)) |do| (RETURN (CAR X)) |finally| (RETURN "?"))) (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL B2))))) (COND ((LISTP TAG) (|printout| OUTF 40 (CAR (NTH TAG (ADD1 B1))))))) (TERPRI OUTF) (COND ((AND LEVEL LEVADJ) (SELECTQ LEVADJ (FNX (SETQ LEVEL (PLUS LEVEL (IDIFFERENCE 1 B1)))) (POP.N (SETQ LEVEL (IDIFFERENCE LEVEL B1))) ((JUMP UNWIND) (SETQ LEVEL)) ((CJUMP NCJUMP) (SETQ LEVEL (PLUS LEVEL -1))) (COND ((NUMBERP LEVADJ) (SETQ LEVEL (PLUS LEVEL LEVADJ))))))) (GO LP))))
)

(VPRINTCODENT
(LAMBDA (STR START1 START2) (DECLARE (USEDFREE CODEBASE IVARS PVARS FVARS I4 I6 OUTF)) (*) (*) (LET (NAME TAG) (COND ((ILESSP START1 (SETQ START2 (IPLUS START2 START1))) (|printout| OUTF STR T) (|for| NT1 |from| START1 |by| (LLSH (CONSTANT (PROGN 2)) 1) |while| (ILESSP NT1 START2) |as| NT2 |from| START2 |by| (LLSH (PROGN 2) 1) |do| (PRINTNUM I4 NT1 OUTF) (PRIN1 ": " OUTF) (|for| I |from| 0 |to| (CONSTANT (SUB1 (LLSH (CONSTANT (PROGN 2)) 1))) |do| (PRINTNUM I4 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (IPLUS NT1 I)) OUTF)) (SPACES 2 OUTF) (PRINTNUM I4 NT2 OUTF) (PRIN1 ": " OUTF) (COND ((SETQ NAME (VATOM (CODEBASEGETNAME CODEBASE NT1))) (SETQ TAG (GETNTOFFSET CODEBASE NT2)) (|printout| OUTF .SP 1 (SELECTC (NTSLOT-VARTYPE (GETNTOFFSETENTRY CODEBASE NT2)) (0 (|push| IVARS (LIST TAG NAME)) (QUOTE IVAR)) (32768 (|push| PVARS (LIST TAG NAME)) (QUOTE PVAR)) (PROGN (|push| FVARS (LIST TAG NAME)) (QUOTE FVAR))) " " TAG ": " .P2 NAME))) (TERPRI OUTF))))))
)

(VBROKENDEF
(LAMBDA (DEF WHEN) (*) (PROG ((CA (V\\GET-COMPILED-CODE-BASE DEF)) BEFORE AFTER SIZE FIRSTBYTE NEWCA) (SETQ FIRSTBYTE (VGETBASE CA 3)) NIL (*) (PROGN (*) (PROGN (*) (SETQ NEWCA CA) (SETQ AFTER T)) (*) (COND (AFTER (*) (|bind| OP |do| (SELECTQ (CADR (SETQ OP (\\FINDOP (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE NEWCA 4) 14) 1)) (V\\GETBASEBYTE NEWCA (LOGXOR FIRSTBYTE 3))) (T (V\\GETBASEBYTE NEWCA FIRSTBYTE)))))) (-X- (RETURN)) (GCONST NIL) (RETURN ((LAMBDA (CODEBASE OFFSET NEWVALUE) (DECLARE (LOCALVARS CODEBASE OFFSET NEWVALUE)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\\PUTBASEBYTE CODEBASE (LOGXOR OFFSET 3) NEWVALUE)) (T (V\\PUTBASEBYTE CODEBASE OFFSET NEWVALUE)))) NEWCA FIRSTBYTE (V\\CAR.UFN (\\FINDOP (QUOTE \\RETURN))))) NIL) (SETQ FIRSTBYTE (PLUS FIRSTBYTE 1 (CADDR OP))))))) (RETURN NEWCA)))
)
)
(DEFINEQ

(V\\CAR.UFN
(LAMBDA (X) (*) (*) (*) (COND ((VLISTP X) (COND ((ZEROP 1) (VGETBASEPTR X 0)) (T (COND ((EQ (LRSH (VGETBASE X 0) 12) 0) (VGETBASEPTR (VGETBASEPTR X 0) 0)) (T (VGETBASEPTR X 0)))))) ((NULL X) NIL) (T (SELECTQ T (T (LISPERROR "ARG NOT LIST" X)) ((NIL V\\CDR.UFN) (COND ((EQ X T) T) ((LITATOM X) NIL) (T (QUOTE "{car of non-list}")))) (COND ((EQ X T) T) ((STRINGP X) (LISPERROR "ARG NOT LIST" X)) (T (QUOTE "{car of non-list}")))))))
)

(V\\CDR.UFN
(LAMBDA (X) (*) (*) (*) (COND ((VLISTP X) (COND ((ZEROP 1) (VGETBASEPTR X 2)) (T (PROG ((Q (LRSH (VGETBASE X 0) 12))) (RETURN (COND ((EQ Q 8) NIL) ((IGREATERP Q 8) (VADDBASE (VVAG2 (VHILOC X) (LOGAND (VLOLOC X) 65280)) (LLSH (IDIFFERENCE Q 8) 1))) ((EQ Q 0) (V\\CDR.UFN (VGETBASEPTR X 0))) (T (VGETBASEPTR (VADDBASE (VVAG2 (VHILOC X) (LOGAND (VLOLOC X) 65280)) (LLSH Q 1)) 0)))))))) ((NULL X) NIL) (T (SELECTQ T ((T V\\CDR.UFN) (LISPERROR "ARG NOT LIST" X)) (NIL (COND ((LITATOM X) (VGETPROPLIST X)) (T "{cdr of non-list}"))) (COND ((STRINGP X) (LISPERROR "ARG NOT LIST" X)) (T "{cdr of non-list}"))))))
)
)
(DEFINEQ

(V\\COPY
(LAMBDA (X) (*) (*) (SELECTQ (TYPENAME X) ((LITATOM NEW-ATOM) (VATOMNUMBER X T)) (VLISTP (PROG ((R (REVERSE X)) (V (V\\COPY (CDR (LAST X))))) LP (COND ((LISTP R) (SETQ V (CONS (V\\COPY (CAR R)) V)) (SETQ R (CDR R)) (GO LP))) (RETURN V))) ((FIXP SMALLP) (PROG (V) (COND ((IGREATERP 0 X) (*) (COND ((IGREATERP X -65537) (*) (RETURN (VADDBASE (VVAG2 15 0) (LOGAND X 65535)))))) ((ILESSP X 65536) (*) (RETURN (VADDBASE (VVAG2 14 0) X)))) (*) (SETQ V (CREATECELL 2)) (VPUTBASE V 0 (LOGOR (COND ((IGREATERP 0 X) 32768) (T 0)) (LOGAND (LRSH X 16) 32767))) (VPUTBASE V 1 (LOGAND X 65535)) (RETURN V))) (ONED-ARRAY (%COPY-ONED-ARRAY X)) (STRINGP (*) (%COPY-STRING-TO-ARRAY X)) (FLOATP (PROG ((VAL (CREATECELL 3))) (SELECTQ (SYSTEMTYPE) ((ALTO D) (VPUTBASE VAL 0 (\\GETBASE X 0)) (VPUTBASE VAL 1 (\\GETBASE X 1))) (MKI.IEEE X VAL)) (RETURN VAL))) (CHARACTER (VVAG2 7 (CL:CHAR-CODE X))) (ERROR X "can't be copied to remote file")))
)

(V\\UNCOPY
(LAMBDA (X CARLVL CDRLVL) (*) (SELECTC (VNTYPX X) (1 (COND ((EQ (VHILOC X) 14) (*) (VLOLOC X)) (T (IPLUS (VLOLOC X) -65536)))) (2 (*) (|create| FIXP HINUM _ (VGETBASE X 0) LONUM _ (VGETBASE X 1))) (3 (|create| FLOATP HIWORD _ (VGETBASE X 0) LOWORD _ (VGETBASE X 1))) (4 (VATOM (VLOLOC X))) (7 (PROG ((PTR (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 14) 1)) (%ARRAY-BASE X)) (T (VGETBASEPTR X 0)))) (OFFST (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 14) 1)) (%ARRAY-OFFSET X)) (T (VGETBASE X 3)))) (LENGTH (\\GETBASEFIXP X 4)) (I 1) STR) (*) (SETQ STR (ALLOCSTRING LENGTH)) (FRPTQ LENGTH (RPLSTRING STR I (FCHARACTER (V\\GETBASEBYTE PTR OFFST))) (SETQ I (PLUS I 1)) (SETQ OFFST (PLUS OFFST 1))) (RETURN STR))) (9 (\\VAG2 7 (VLOLOC X))) (%ONED-ARRAY (LET ((SIZE (\\GETBASEFIXP X 6)) (BASE (VGETBASEPTR X 0)) (OFFSET (VGETBASE X 3)) (TYPENUMBER (LOGAND (VGETBASE X 2) 255)) NCELLS LOCAL-ARRAY LOCAL-BASE) (|if| (EQ (%TYPENUMBER-TO-GC-TYPE TYPENUMBER) 1) |then| (VTYPEDPOINTER (VTYPENAME X) X) |else| (SETQ NCELLS (LRSH (IPLUS (ITIMES (IPLUS SIZE OFFSET) (%TYPENUMBER-TO-BITS-PER-ELEMENT TYPENUMBER)) 31) 5)) (SETQ LOCAL-ARRAY (|create| ONED-ARRAY)) (SETQ LOCAL-BASE (\\ALLOCBLOCK NCELLS)) (|freplace| (ONED-ARRAY BASE) |of| LOCAL-ARRAY |with| LOCAL-BASE) (|freplace| (ONED-ARRAY STRING-P) |of| LOCAL-ARRAY |with| (%CHAR-TYPE-P TYPENUMBER)) (|freplace| (ONED-ARRAY FILL-POINTER-P) |of| LOCAL-ARRAY |with| (NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 9) 1))) (|freplace| (ONED-ARRAY TYPE-NUMBER) |of| LOCAL-ARRAY |with| TYPENUMBER) (|freplace| (ONED-ARRAY FILL-POINTER) |of| LOCAL-ARRAY |with| (\\GETBASEFIXP X 4)) (|if| (NEQ OFFSET 0) |then| (|freplace| (ONED-ARRAY OFFSET) |of| LOCAL-ARRAY |with| OFFSET) (|freplace| (ONED-ARRAY DISPLACED-P) |of| LOCAL-ARRAY |with| T)) (|freplace| (ONED-ARRAY TOTAL-SIZE) |of| LOCAL-ARRAY |with| SIZE) (|for| I |from| 0 |to| (SUB1 (LLSH NCELLS 1)) |do| (\\PUTBASE LOCAL-BASE I (VGETBASE BASE I))) LOCAL-ARRAY))) (5 (COND ((VLISTP X) (COND ((EQ CDRLVL 0) (*) (QUOTE (--))) (T (CONS (COND ((OR (EQ CARLVL 0) (AND (OR (EQ CARLVL 1) (EQ CDRLVL 1)) (VLISTP (V\\CAR.UFN X)))) (QUOTE &)) (T (V\\UNCOPY (V\\CAR.UFN X) (AND CARLVL (SUB1 CARLVL)) (AND CDRLVL (SUB1 CDRLVL))))) (V\\UNCOPY (V\\CDR.UFN X) CARLVL (AND CDRLVL (SUB1 CDRLVL))))))) (T (*) (VTYPEDPOINTER (QUOTE LISTP) X)))) (0 (VTYPEDPOINTER NIL X)) (VTYPEDPOINTER (VTYPENAME X) X)))
)
)
(DEFINEQ

(V\\GETBASEBYTE
(LAMBDA (PTR N) (*) (*) (COND ((EVENP N) (LRSH (PROGN (VGETBASE PTR (LRSH N 1))) 8)) (T (LOGAND (PROGN (VGETBASE PTR (LRSH N 1))) 255))))
)

(V\\PUTBASEBYTE
(LAMBDA (PTR DISP BYTE) (*) (*) (SETQ BYTE (PROG1 BYTE)) (VPUTBASE PTR (LRSH (SETQ DISP (\\DTEST DISP (QUOTE SMALLP))) 1) (COND ((EVENP DISP 2) ((LAMBDA ($$1) (IPLUS (LLSH BYTE 8) (LOGAND $$1 255))) (VGETBASE PTR (LRSH DISP 1)))) (T ((LAMBDA ($$1) (IPLUS (LLSH (LRSH $$1 8) 8) BYTE)) (VGETBASE PTR (LRSH DISP 1)))))) BYTE)
)
)
(DEFINEQ

(VNTYPX
(LAMBDA (X) (*) (*) (LOGAND (VGETBASE (VVAG2 24 0) (LRSH (IPLUS (LLSH (VHILOC X) 8) (LRSH (VLOLOC X) 8)) 1)) 2047))
)

(VTYPENAME
(LAMBDA (X) (*) (*) (*) (LET ((N (VNTYPX X))) (COND ((EQ N 6) ((LAMBDA (X) (QUOTE ARRAYP)) X)) ((%STRINGP X) (*) (QUOTE STRINGP)) ((EQ (QUOTE NEW-ATOM) (SETQ N (VATOM (VGETBASEPTR (VADDBASE (VVAG2 20 4096) (ITIMES N 18)) 0)))) (*) (QUOTE LITATOM)) (T N))))
)

(V\\TYPENAMEFROMNUMBER
(LAMBDA (N) (*) (COND ((ILESSP N (ADD1 |VMaxTypeNumber|)) (VATOM (VGETBASEPTR (VADDBASE (VVAG2 20 4096) (ITIMES N 18)) 0)))))
)
)
(DEFINEQ

(VUNCOPYATOM
(LAMBDA (N) (*) (*) (PROG (ATOM.NAME VPACKAGE.NAME) (*) (SETQ ATOM.NAME (VSYMBOL.PNAME N)) (*) (SETQ VPACKAGE.NAME (IF (READSYS.HAS.PACKAGES) THEN (VPACKAGE.NAME (VSYMBOL.PACKAGE N)) ELSE "INTERLISP")) (RETURN (VMAKE.LOCAL.ATOM VPACKAGE.NAME ATOM.NAME))))
)

(VMAKE.LOCAL.ATOM
(LAMBDA (PKG.NAME ATM.NAME) (*) (*) (CL:INTERN ATM.NAME (OR (CL:FIND-PACKAGE PKG.NAME) (CL:MAKE-PACKAGE PKG.NAME :USES NIL))))
)

(VSYMBOL.VALUE
(LAMBDA (SYMBOL) (*) (*) (LET ((LOC (VOLD.FIND.SYMBOL SYMBOL 1 (NCHARS SYMBOL)))) (COND (NIL (*) (VGETBASEPTR (VADDBASE (VVAG2 12 LOC) LOC) 0)) (T (*) (VGETBASEPTR (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES (LOGAND LOC 65535) 10) 2)) 0)))))
)

(VSYMBOL.PNAME
(LAMBDA (N BUFFER) (*) (*) (SETQ BUFFER (OR BUFFER (ALLOCSTRING \\PNAMELIMIT))) (PROG (ADDR LEN) (*) (COND (NIL (SETQ ADDR (VGETBASEPTR (VADDBASE (VADDBASE (VVAG2 8 0) N) N) 0))) (T (SETQ ADDR (VGETBASEPTR (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES (LOGAND N 65535) 10) 0)) 0)))) (SETQ LEN (V\\GETBASEBYTE ADDR 0)) (|for| I |from| 1 |to| LEN |do| (RPLSTRING BUFFER I (FCHARACTER (V\\GETBASEBYTE ADDR I)))) (RETURN (SUBSTRING BUFFER 1 LEN))))
)

(VSYMBOL.PACKAGE
(LAMBDA (N) (*) (*) (PROG ((INDEX (COND (NIL (*) (LRSH (VGETBASE (VADDBASE (VADDBASE (VVAG2 8 0) N) N) 0) 8)) (NIL (T (LRSH (VGETBASE (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES 10 N) 0 8)) 0) 8))) (T (LRSH (VGETBASE (V\\ATOMCELL N 8) 8) 8))))) (RETURN (COND ((EQ INDEX *UNINTERNED-PACKAGE-INDEX*) NIL) (T (VGETBASEPTR (VGETBASEPTR READSYS.PACKAGE.FROM.INDEX 0) (LLSH INDEX 1)))))))
)

(VOLD.FIND.SYMBOL
(LAMBDA (BASE OFFST LEN FATP NONNUMERICP) (*) (PROG ((FATCHARSEENP (AND FATP (NOT (NULL (|for| I |from| OFFST |to| (SUB1 (IPLUS OFFST LEN)) |suchthat| (IGREATERP (VGETBASE BASE I) 255)))))) HASH HASHENT ATM# PNBASE FIRSTCHAR FIRSTBYTE REPROBE) (*) (COND ((EQ LEN 0) (*) (SETQ HASH 0) (SETQ FIRSTBYTE 255) (GO LP))) (SETQ FIRSTCHAR (NTHCHARCODE BASE OFFST)) (*) NIL (*) (SETQ FIRSTBYTE (LOGAND FIRSTCHAR 255)) (*) (PROGN (*) (SETQ HASH (LLSH FIRSTBYTE 8)) (|for| CHAR# |from| (ADD1 OFFST) |to| (SUB1 (IPLUS OFFST LEN)) |do| (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE BASE CHAR#))))) (*) LP (*) (COND ((NEQ 0 (SETQ HASHENT (VGETBASE (VVAG2 21 0) HASH))) (*) (COND ((STREQUAL (CL:SYMBOL-NAME BASE) (VSYMBOL.PNAME (SETQ ATM# (SUB1 HASHENT)))) (RETURN ATM#)) (T (*) (SETQ HASH (IPLUS16 HASH (OR REPROBE (SETQ REPROBE (LOGAND 63 (LOGOR 1 (LOGXOR FIRSTBYTE HASH))))))) (GO LP))))) (*) (RETURN (PROGN (LET ((NEWATOM (VNOSUCHATOM BASE OFFST LEN FATP FATCHARSEENP))) NIL NEWATOM)))))
)

(VLOOKUP-SYMBOL
(LAMBDA (TABLE STRING SXHASH ENTRY-HASH) (*) (*) (LET* ((VEC (VGETBASEPTR TABLE 0)) (*) (HASH (VGETBASEPTR TABLE 2)) (*) (LEN (\\GETBASEFIXP VEC 6)) (*) (H2 (ADD1 (IREMAINDER SXHASH (IDIFFERENCE LEN 2)))) (*)) (DECLARE (TYPE (CL:SIMPLE-ARRAY (CL:UNSIGNED-BYTE 8)) HASH) (TYPE (CL:SIMPLE-ARRAY (CL:UNSIGNED-BYTE 16)) VEC)) (PROG ((INDEX-VAR (IREMAINDER SXHASH LEN)) SYMBOL-NUMBER EHASH) (IF NIL THEN (CL:FORMAT T "Probe @ ~s~%" INDEX-VAR)) LOOP (SETQ EHASH (V\\GETBASEBYTE (VGETBASEPTR HASH 0) INDEX-VAR)) (*) (COND ((EQL EHASH ENTRY-HASH) (IF NIL THEN (CL:FORMAT T "Entry hash MATCHES~%")) (LET ((SYMBOL-NAME (VSYMBOL.PNAME (SETQ SYMBOL-NUMBER (VGETBASE (VGETBASEPTR VEC 0) INDEX-VAR))))) (*) (IF NIL THEN (CL:FORMAT T "Got symbol index~%")) (*) (COND ((STREQUAL SYMBOL-NAME STRING) (IF NIL THEN (CL:FORMAT T " found~%")) (GO DOIT)) (T (IF NIL THEN (CL:FORMAT T "Didn't match~%")))))) ((EQL 0 EHASH) (IF NIL THEN (CL:FORMAT T "Hit deleted entry (no match)~%")) (SETQ INDEX-VAR NIL) (GO DOIT)) (T (IF NIL THEN (CL:FORMAT T "Entry hash does not match~%")))) (SETQ INDEX-VAR (IREMAINDER (IPLUS INDEX-VAR H2) LEN)) (*) (IF NIL THEN (CL:FORMAT T "Reprobe @ ~s~%" INDEX-VAR)) (GO LOOP) DOIT (RETURN SYMBOL-NUMBER))))
)

(VFIND.PACKAGE
(LAMBDA (NAME) (*) (*) (PROG ((ITEM (MKSTRING NAME)) (HA READSYS.PACKAGE.FROM.NAME) BITS INDEX SLOT SKEY FIRSTINDEX REPROBE LIMIT ABASE VALUE) (SETQ BITS (STRINGHASHBITS ITEM)) (SETQ INDEX (LOGAND BITS (VGETBASE HA 1))) (*) (SETQ ABASE (VGETBASEPTR HA 2)) (SETQ FIRSTINDEX INDEX) (SETQ REPROBE (LOGOR (LOGAND (LOGXOR BITS (LRSH BITS 8)) (IMIN 63 (VGETBASE HA 1))) 1)) (*) (SETQ LIMIT (VGETBASE HA 1)) LP (SETQ SLOT ((LAMBDA (BASEA0198) (DECLARE (LOCALVARS BASEA0198)) (VADDBASE (VADDBASE BASEA0198 INDEX) INDEX)) (VADDBASE (VADDBASE ABASE INDEX) INDEX))) (*) (COND ((SETQ VALUE (VGETBASEPTR SLOT 2)) (*) (SETQ SKEY (V\\UNCOPY (VGETBASEPTR SLOT 0))) (COND ((STREQUAL ITEM SKEY) (*) (GO FOUND)))) ((NULL (VGETBASEPTR SLOT 0)) (*) (RETURN NIL))) (SETQ INDEX (LOGAND (IPLUS16 INDEX REPROBE) LIMIT)) (*) (COND ((EQ INDEX FIRSTINDEX) (*) (SHOULDNT "Hashing in full hash table"))) (GO LP) FOUND (RETURN (AND (NEQ VALUE \\HASH.NULL.VALUE) VALUE))))
)

(VFIND.SYMBOL
(LAMBDA (STRING PACKAGE) (*) (*) (LET* ((LENGTH (FFETCH (STRINGP LENGTH) OF STRING)) (HASH (COND ((EQL 0 LENGTH) 0) (T (PROG* ((TERMINUS LENGTH) (HASH (LLSH (NTHCHARCODE STRING 1) 8)) (CHAR# 2)) A0355 (COND ((IGREATERP CHAR# TERMINUS) (RETURN (PROGN HASH)))) (PROGN) (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE STRING CHAR#))) (SETQ CHAR# (ADD1 CHAR#)) (GO A0355))))) (*) (EHASH (IPLUS (IREMAINDER (LOGXOR LENGTH HASH (RSH HASH 8) (RSH HASH 16) (RSH HASH 19)) 254) 2)) (*) (SYM) (WHERE) (DONE)) (COND ((NOT (VGETBASEPTR PACKAGE 14)) (*) (IF NIL THEN (PRINT "Checking INTERNAL symbols")) (LET ((INDEX (VLOOKUP-SYMBOL (VGETBASEPTR PACKAGE 16) STRING HASH EHASH))) (*) (COND (INDEX (SETQ SYM INDEX) (SETQ WHERE :INTERNAL) (SETQ DONE T)))))) (COND ((NOT DONE) (IF NIL THEN (PRINT "Checking EXTERNAL symbols")) (LET ((INDEX (VLOOKUP-SYMBOL (VGETBASEPTR PACKAGE 18) STRING HASH EHASH))) (*) (COND (INDEX (SETQ SYM INDEX) (SETQ WHERE :EXTERNAL) (SETQ DONE T)))))) (COND ((NOT DONE) (IF NIL THEN (CL:FORMAT T "Checking USE'd packages~%")) (LET ((HEAD (VGETBASEPTR PACKAGE 2)) (*)) (PROG ((PREV HEAD) (TABLE (V\\CDR.UFN HEAD))) USED-PACKAGE-LOOP (COND ((OR DONE (NULL TABLE)) (RETURN (PROGN (CL:VALUES NIL NIL))))) (PROGN (LET ((INDEX (VLOOKUP-SYMBOL (V\\CAR.UFN TABLE) STRING HASH EHASH))) (*) (COND (INDEX (COND ((NEQ PREV HEAD) (LET* ((A0347 PREV) (A0346 (V\\CDR.UFN A0347)) (A0349 TABLE) (A0348 (V\\CDR.UFN A0349)) (A0351 HEAD) (A0350 (V\\CDR.UFN A0351))) (V\\CDR.UFN (RPLACD A0347 A0348)) (V\\CDR.UFN (RPLACD A0349 A0350)) (V\\CDR.UFN (RPLACD A0351 TABLE)) A0346))) (SETQ SYM INDEX) (SETQ WHERE :INHERITED) (SETQ DONE T)) (T)))) (PROGN (SETQ PREV (PROG1 TABLE (PROGN (SETQ TABLE (V\\CDR.UFN TABLE)) NIL))) NIL) (GO USED-PACKAGE-LOOP))))) (CL:VALUES SYM WHERE)))
)

(VPACKAGE.NAME
(LAMBDA (RMPKG) (*) (AND RMPKG (V\\UNCOPY (VGETBASEPTR RMPKG 4)))))

(V\\MKATOM
(LAMBDA (BASE OFFST LEN FATP NONNUMERICP) (*) (PROG ((FATCHARSEENP (AND FATP (NOT (NULL (|for| I |from| OFFST |to| (SUB1 (IPLUS OFFST LEN)) |suchthat| (IGREATERP (VGETBASE BASE I) 255)))))) HASH HASHENT ATM# PNBASE FIRSTCHAR FIRSTBYTE REPROBE) (*) (COND ((EQ LEN 0) (*) (SETQ HASH 0) (SETQ FIRSTBYTE 255) (GO LP))) (SETQ FIRSTCHAR (NTHCHARCODE BASE OFFST)) (*) NIL (*) (SETQ FIRSTBYTE (LOGAND FIRSTCHAR 255)) (*) (PROGN (*) (SETQ HASH (LLSH FIRSTBYTE 8)) (|for| CHAR# |from| (ADD1 OFFST) |to| (SUB1 (IPLUS OFFST LEN)) |do| (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE BASE CHAR#))))) (*) LP (*) (COND ((NEQ 0 (SETQ HASHENT (VGETBASE (VVAG2 21 0) HASH))) (*) (COND ((EQ (VATOM (SETQ ATM# (SUB1 HASHENT))) BASE) (RETURN (VADDBASE (VVAG2 0 0) ATM#))) (T (*) (SETQ HASH (IPLUS16 HASH (OR REPROBE (SETQ REPROBE (LOGAND 63 (LOGOR 1 (LOGXOR FIRSTBYTE HASH))))))) (GO LP))))) (*) (RETURN (PROGN (LET ((NEWATOM (VNOSUCHATOM BASE OFFST LEN FATP FATCHARSEENP))) NIL NEWATOM)))))
)

(VGETTOPVAL
(LAMBDA (X) (*) (VGETBASEPTR (V\\ATOMCELL X 12) 0)))

(VGETPROPLIST
(LAMBDA (ATM) (*) (VGETBASEPTR (V\\ATOMCELL ATM (CONSTANT 2)) 0)))

(VSETTOPVAL
(LAMBDA (ATM VAL) (*) (SELECTQ ATM (NIL (AND VAL (LISPERROR "ATTEMPT TO SET NIL OR T" VAL))) (T (OR (EQ VAL T) (LISPERROR "ATTEMPT TO SET NIL OR T" VAL))) (VPUTBASEPTR (V\\ATOMCELL ATM 12) 0 (V\\COPY VAL))))
)

(VGETDEFN
(LAMBDA (A) (*) (VGETBASEPTR (V\\ATOMCELL A 10) 0)))

(V\\ATOMCELL
(LAMBDA (X N) (*) (LET ((ATOMNO (VATOMNUMBER X))) (COND (NIL (*) (EQ (VHILOC ATOMNO) 0) (*) (LET ((LOC (SELECTC N (10 (VATOMNUMBER ATOMNO)) (12 (VATOMNUMBER ATOMNO)) (2 (VATOMNUMBER ATOMNO)) (8 (\\ATOMPNAMEINDEX ATOMNO)) (SHOULDNT)))) (VADDBASE (VVAG2 N LOC) LOC))) ((FIXP ATOMNO) (*) (LET ((LOC (SELECTC N (10 4) (12 2) (2 6) (8 0) (SHOULDNT)))) (VADDBASE (VVAG2 44 0) (IPLUS LOC (ITIMES 10 ATOMNO))))) (T (*) (LET ((OFFSET (SELECTC N (10 4) (12 2) (2 6) (8 0) (SHOULDNT)))) (VADDBASE ATOMNO OFFSET))))))
)
)
(DEFINEQ

(VLISTP
(LAMBDA (X) (*) (*) (AND (EQ (VNTYPX X) 5) (COND ((EQ 1 0) T) (T (*) (NEQ (LOGAND (VLOLOC X) 255) 0))) X))
)
)

(RPAQQ COPYATOMSTR NIL)
(DEFINEQ

(V\\GET-COMPILED-CODE-BASE
(LAMBDA (X) (*) (*) (PROG NIL (COND ((LITATOM X) (COND ((PROG1 (NEQ 0 (LRSH (VGETBASE (V\\ATOMCELL X 10) 0) 15)) (SETQ X (VGETBASEPTR (V\\ATOMCELL X 10) 0))) (RETURN X))))) (RETURN (AND (EQ (VNTYPX X) 13) (VGETBASEPTR (\\DTEST X (QUOTE COMPILED-CLOSURE)) 0)))))
)
)



(* |;;| 
"YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)"
)


(FILESLOAD VMEM)

(RPAQQ RDVALS ((\\RPTSIZE) (|\\MaxTypeNumber|) (|\\AtomFrLst|) (|\\ArrayFrLst|) (|\\ArrayFrLst2|)))

(RPAQQ RDPTRS ((\\REALPAGETABLE) (\\FREEBLOCKBUCKETS)))
(DECLARE\: EVAL@COMPILE DONTCOPY 

(FILESLOAD (LOADCOMP) VMEM)
)
STOP
\ No newline at end of file
+(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
+)
+
+
+(PRETTYCOMPRINT RDSYSCOMS)
+
+(RPAQQ RDSYSCOMS ((FNS VREADPAGEMAP VREADPAGEMAPBLOCK VCHECKIFPAGE V\LOCKEDPAGEP V\LOOKUPPAGEMAP VCHECKPAGEMAP VCHECKFPTOVP VCHECKFPTOVP1 V\SHOWPAGETABLE V\PRINTFPTOVP) (FNS VRAIDCOMMAND VRAIDSHOWFRAME VRAIDSTACKCMD VRAIDROOTFRAME VPRINTADDRS VPRINTVA VREADVA VREADOCT VREADATOM VSHOWSTACKBLOCKS VSHOWSTACKBLOCK1 VPRINCOPY VNOSUCHATOM) (FNS V\BACKTRACE V\STKNAME V\PRINTBF V\PRINTFRAME V\SCANFORNTENTRY V\PRINTSTK) (FNS V\CHECKARRAYBLOCK V\PARSEARRAYSPACE V\PARSEARRAYSPACE1) (FNS VPRINTCODE VPRINTCODENT VBROKENDEF) (FNS V\CAR.UFN V\CDR.UFN) (FNS V\COPY V\UNCOPY) (FNS V\GETBASEBYTE V\PUTBASEBYTE) (FNS VNTYPX VTYPENAME V\TYPENAMEFROMNUMBER) (FNS VUNCOPYATOM VMAKE.LOCAL.ATOM VSYMBOL.VALUE VSYMBOL.PNAME VSYMBOL.PACKAGE VOLD.FIND.SYMBOL VLOOKUP-SYMBOL VFIND.PACKAGE VFIND.SYMBOL VPACKAGE.NAME V\MKATOM VGETTOPVAL VGETPROPLIST VSETTOPVAL VGETDEFN V\ATOMCELL) (FNS VLISTP) (VARS (COPYATOMSTR)) (FNS V\GET-COMPILED-CODE-BASE) (* ;; "YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)") (FILES VMEM) (VARS RDVALS RDPTRS) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) VMEM))))
+(DEFINEQ
+
+(VREADPAGEMAP
+(LAMBDA NIL (*) (*) (PROG (D) (MAPVMPAGE (IPLUS (LLSH (VHILOC (VVAG2 20 0)) 8) (LRSH (VLOLOC (VVAG2 20 0)) 8)) 1) (*) (*) (MAPVMPAGE (IPLUS (LLSH (VHILOC (VVAG2 5 0)) 8) (LRSH (VLOLOC (VVAG2 5 0)) 8)) (SUB1 (VGETBASE (VVAG2 20 0) 22))) (*) (SETVMPTR (VVAG2 5 0)) (for I from 0 to (SUB1 (LRSH (IPLUS 256 31) 5)) as VP from (IPLUS (LLSH (VHILOC (VVAG2 5 0)) 8) (LRSH (VLOLOC (VVAG2 5 0)) 8)) by 32 do (*) (VREADPAGEMAPBLOCK VP)) (for J from 0 to (SUB1 8) as FP from (SUB1 (VGETBASE (VVAG2 20 0) 23)) do (*) (MAPVMPAGE (IPLUS (IPLUS (LLSH (VHILOC (VVAG2 20 512)) 8) (LRSH (VLOLOC (VVAG2 20 512)) 8)) J) FP)) (for I from 0 to (SUB1 (LLSH 8 8)) do (COND ((IEQ (SETQ D (VGETBASE (VVAG2 20 512) I)) 65535)) (T (SETVMPTR (VADDBASE (VVAG2 5 0) D)) (VREADPAGEMAPBLOCK (LLSH I 5)))))))
+)
+
+(VREADPAGEMAPBLOCK
+(LAMBDA (VP) (*) (PROG ((B VP) P) (FRPTQ 32 (COND ((NEQ (SETQ P (VBIN2)) 0) (MAPVMPAGE B (SUB1 P)))) (SETQ B (ADD1 B)))))
+)
+
+(VCHECKIFPAGE
+(LAMBDA NIL (*) (COND ((NOT (EQUAL 5603 (VGETBASE (VVAG2 20 0) 15))) (printout T "Warning: " "Interface page key" "= " (PROGN 5603) ", but \InterfacePage says " (VGETBASE (VVAG2 20 0) 15) T))))
+)
+
+(V\LOCKEDPAGEP
+(LAMBDA (VP TEMP) (*) (*) (OR (NEQ 0 (LOGAND (LLSH 1 (IMOD VP 16)) (VGETBASE (VADDBASE (VVAG2 20 28672) (LRSH VP 4)) 0))) NIL))
+)
+
+(V\LOOKUPPAGEMAP
+(LAMBDA (VP) (*) (*) (LET ((PRIMENTRY (VGETBASE (VVAG2 20 512) (LRSH VP 5)))) (COND ((EQ PRIMENTRY 65535) 0) (T (VGETBASE (VVAG2 5 0) (IPLUS PRIMENTRY (LOGAND VP 31)))))))
+)
+
+(VCHECKPAGEMAP
+(LAMBDA NIL (*) (LET ((*PRINT-BASE* 8) (NUMOCCUPIED 0) (NUMLOCKED 0) (CHAINOCCUPIED 0) (CHAINLOCKED 0) RPTR FPBASE FP VP RP) (VCHECKFPTOVP) (for RPTINDEX from 1 to (SUB1 VRPTSIZE) when (ILESSP (VGETBASE (PROGN (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RPTINDEX 1)) RPTINDEX))) 1) 65534) do (SETQ NUMOCCUPIED (PLUS NUMOCCUPIED 1)) (SETQ VP (VGETBASE RPTR 1)) (SETQ FP (VGETBASE RPTR 2)) (COND ((VCHECKFPTOVP1 FP VP RPTINDEX)) ((NEQ VP (\GETBASEFIXP (SETQ FPBASE (VADDBASE (VVAG2 2 0) FP)) 0)) (printout T "RPT for RP " (RPFROMRPT RPTINDEX) " says VP ") (\PRINTVP VP T) (printout T " lives in FP " FP "; but FP Map says that FP contains ") (\PRINTVP (\GETBASEFIXP FPBASE 0) T) (printout T T)) ((V\LOCKEDPAGEP VP) (SETQ NUMLOCKED (PLUS NUMLOCKED 1)) (COND ((NOT (NEQ 0 (LRSH (VGETBASE RPTR 0) 15))) (printout T "VP " VP ", living in RP " (RPFROMRPT RPTINDEX) " should be locked but isn't." T)) ((IGREATERP FP (DLRPFROMFP (VGETBASE (VVAG2 20 0) 57))) (printout T "VP " VP " is locked, but living in FP " FP ", which is not in the locked page area" T)))))) (PROGN (SETQ RPTR VREALPAGETABLE) (*) (while (NEQ (SETQ RP (LOGAND (VGETBASE RPTR 0) 32767)) 0) when (ILESSP (VGETBASE (PROGN (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RP 1)) RP))) 1) 65534) do (SETQ CHAINOCCUPIED (PLUS CHAINOCCUPIED 1)) (COND ((NEQ 0 (LRSH (VGETBASE RPTR 0) 15)) (SETQ CHAINLOCKED (PLUS CHAINLOCKED 1))))) (COND ((ILESSP CHAINOCCUPIED NUMOCCUPIED) (printout T NUMOCCUPIED " occupied pages, but only " CHAINOCCUPIED " are on page chain.  " NUMLOCKED " pages are permanently locked; " CHAINLOCKED " pages on chain are locked somehow." T))))))
+)
+
+(VCHECKFPTOVP
+(LAMBDA NIL (*) (for FP from 1 to (\GETBASEFIXP (VVAG2 20 0) 82) as (FPBASE _ (VADDBASE (VVAG2 2 0) 1)) by (VADDBASE FPBASE 1) when (NEQ (VGETBASE FPBASE 0) 65535) do (VCHECKFPTOVP1 FP (\GETBASEFIXP FPBASE 0))))
+)
+
+(VCHECKFPTOVP1
+(LAMBDA (FP VP RPTINDEX) (*) (PROG ((FP2 (V\LOOKUPPAGEMAP VP))) (RETURN (COND ((NEQ FP2 FP) (COND (NIL (printout T "RPT for RP " (RPFROMRPT RPTINDEX))) (T (printout T "FP map"))) (printout T " says FP " FP " contains VP ") (\PRINTVP VP T) (printout T "; but PageMap says that page is in FP " FP2 T) T)))))
+)
+
+(V\SHOWPAGETABLE
+(LAMBDA (MODE FILE) (*) (PROG ((*PRINT-BASE* 8) (OUTSTREAM (GETSTREAM FILE (QUOTE OUTPUT))) (RPTR VREALPAGETABLE) (RP 0) FLAGS VP STATE FIRSTONE LASTONE) (printout OUTSTREAM "     RP      VP           FilePage  Status" T) (until (SELECTQ MODE (CHAIN (EQ (SETQ RP (LOGAND (VGETBASE RPTR 0) 32767)) 0)) (NIL (SETQ RP (PLUS RP 1)) (IGEQ RP VRPTSIZE)) (\ILLEGAL.ARG MODE)) do (SETQ RPTR (VADDBASE (VADDBASE VREALPAGETABLE (LLSH RP 1)) RP)) (SETQ VP (VGETBASE RPTR 1)) (COND ((AND (NULL MODE) (EQ VP STATE)) (SETQ LASTONE RP)) (T (COND (LASTONE (printout OUTSTREAM "ditto thru " LASTONE T) (SETQ LASTONE NIL))) (SETQ FIRSTONE RP) (SETQ STATE VP) (printout OUTSTREAM .I7.8 (RPFROMRPT RP)) (COND ((EQ (VGETBASE RPTR 1) 65534) (PRIN1 " Empty" OUTSTREAM)) ((NOT (ILESSP (VGETBASE RPTR 1) 65534)) (PRIN1 " Unavailable" OUTSTREAM)) (T (printout OUTSTREAM .I8.8 VP %,) (\PRINTVP VP OUTSTREAM) (printout OUTSTREAM 28 .I6.8 (VGETBASE RPTR 2) %,,) (COND ((NEQ 0 (LRSH (VGETBASE RPTR 0) 15)) (COND ((NOT (V\LOCKEDPAGEP VP)) (*) (PRIN1 "Temp" OUTSTREAM))) (PRIN1 "Locked " OUTSTREAM))) NIL)) (TERPRI OUTSTREAM))))))
+)
+
+(V\PRINTFPTOVP
+(LAMBDA (FIRSTPAGE NWORDS TYPEFLG STREAM VPRAWFLG) (*) (SETQ STREAM (GETSTREAM STREAM (QUOTE OUTPUT))) (OR FIRSTPAGE (SETQ FIRSTPAGE 1)) (OR NWORDS (SETQ NWORDS (\GETBASEFIXP (VVAG2 20 0) 82))) (LET ((BASE (VADDBASE (VVAG2 2 0) (SUB1 FIRSTPAGE))) (*PRINT-BASE* 8) (LASTVP -2) (NEXTFP (SUB1 FIRSTPAGE)) FIRSTFP FIRSTVP NEXTVP LOCKEDP TYPE NEXTLOCKED NEXTTYPE) (while (IGEQ NWORDS 0) do (SETQ NEXTFP (PLUS NEXTFP 1)) (COND ((EQ NWORDS 0) (SETQ NEXTVP -1)) ((NEQ (SETQ NEXTVP (VGETBASE (SETQ BASE (VADDBASE BASE 1)) 0)) 65535) (SETQ NEXTLOCKED (V\LOCKEDPAGEP NEXTVP)) (if TYPEFLG then (SETQ NEXTTYPE (VTYPENAME ((LAMBDA ($$1) (VVAG2 (LRSH (SETQ $$1 NEXTVP) 8) (LLSH (LOGAND $$1 255) 8))) NIL))) (if (NULL NEXTTYPE) then (SETQ NEXTTYPE (SELECTC (LRSH NEXTVP 8) ((LIST 8 (CL:1+ 8)) "Pnames") ((LIST 10 (CL:1+ 10)) "Definitions") ((LIST 12 (CL:1+ 12)) "Value cells") ((LIST 2 (CL:1+ 2)) "Property lists") ((VHILOC (VVAG2 2 0)) "\FPTOVP") (1 "Stack") ((VHILOC (VVAG2 22 0)) "GC Main table") ((VHILOC (VVAG2 23 0)) "GC Overflow table") NIL)))))) (COND ((COND ((EQ NEXTVP 65535) (NEQ LASTVP 65535)) (T (OR (NEQ NEXTVP (ADD1 LASTVP)) (NEQ NEXTLOCKED LOCKEDP) (NEQ TYPE NEXTTYPE)))) (COND ((IGEQ LASTVP 0) (COND (FIRSTFP (printout STREAM FIRSTFP "-"))) (printout STREAM (SUB1 NEXTFP) 12) (COND ((EQ LASTVP 65535) (printout STREAM "empty")) (T (COND (FIRSTFP (if VPRAWFLG then (PRIN1 FIRSTVP STREAM) else (\PRINTVP FIRSTVP STREAM)) (PRIN1 "-" STREAM))) (if VPRAWFLG then (PRIN1 LASTVP STREAM) else (\PRINTVP LASTVP STREAM)) (COND (LOCKEDP (PRIN1 (QUOTE *) STREAM))) (if TYPE then (printout STREAM 32 TYPE)))))) (SETQ FIRSTFP) (TERPRI STREAM) (SETQ FIRSTVP NEXTVP)) (T (*) (OR FIRSTFP (SETQ FIRSTFP (SUB1 NEXTFP))))) (SETQ LASTVP NEXTVP) (SETQ LOCKEDP NEXTLOCKED) (SETQ TYPE NEXTTYPE) (SETQ NWORDS (PLUS NWORDS -1)))))
+)
+)
+(DEFINEQ
+
+(VRAIDCOMMAND
+(LAMBDA NIL (*) (DECLARE (USEDFREE ROOTFRAME ALINKS? RAIDIX FRAME# VPRINTLEVEL)) (FRESHLINE T) (PROG (CMD) (SELECTQ (SETQ CMD (ASKUSER NIL NIL "@" (QUOTE ((Q "uit [confirm]" CONFIRMFLG T) (% "^N - remote return [confirm]" NOECHOFLG T CONFIRMFLG T RETURN (QUOTE ^N)) (L "isp stack ") (% "Lisp stack " NOECHOFLG T EXPLAINSTRING "^L -- Lisp stack from arbitrary frame or context" RETURN (QUOTE ^L)) (F "rame ") (%
+ "Next frame " EXPLAINSTRING "LF - next frame" RETURN (QUOTE LF)) (^ " Previous frame ") (A "tom top-level value of atom: ") (D "efinition for atom: ") (P "roperty list for atom: ") (V " -- show object at Virtual address: ") (B "lock of storage starting at address: ") (S "how raw stack from address: ") (C "ode for function:") (% "Basic frame at: " EXPLAINSTRING "^F - print basic frame at octal address" RETURN (QUOTE ^F)) (% "frame extension at: " EXPLAINSTRING "^X - print frame extension at octal address" RETURN (QUOTE ^X)) (W "alk stack blocks starting at: ") (K "" EXPLAINSTRING "K -- Set linKtype for stack ops") (_ " Set word at address: ") (% " Set value of atom " EXPLAINSTRING "^V -- Set value of atom" RETURN (QUOTE ^V)) (% "atom number for atom: " EXPLAINSTRING "^O - look up atom" RETURN (QUOTE ^O)) (Z "Zap Print level to: ") (I "nspect InterfacePage [confirm]" CONFIRMFLG T) (U " -- Show remote screen [confirm]" CONFIRMFLG T) ("
+" "" RETURN NIL) (% " Enter Lisp " EXPLAINSTRING "^Y -- Enter Lisp" RETURN (QUOTE ^Y)))) T)) (^N (RETURN (QUOTE RETURN))) (Q (TERPRI T) (RETURN (QUOTE QUIT))) (NIL) (A (VPRINCOPY (VGETTOPVAL (VREADATOM)))) (P (VPRINCOPY (VGETPROPLIST (VREADATOM)))) (C (VPRINTCODE (VREADATOM) T RAIDIX)) (V (VPRINCOPY (VREADVA))) (B (VPRINTADDRS (VREADVA) (VREADOCT " for (number of words): "))) (S (VPRINTADDRS (VVAG2 1 (VREADOCT)) (VREADOCT " for (number of words): "))) (D (VPRINTADDRS (V\ATOMCELL (PROGN (VREADATOM)) 10) 2)) (^O (PRINTNUM .I2 (VATOMNUMBER (VREADATOM)) T)) (^V (PROG ((ATM (VREADATOM))) (printout T " to be ") (VSETTOPVAL ATM (READ T T)))) ((L ^L) (VRAIDSTACKCMD CMD)) (F (VRAIDSHOWFRAME (SETQ FRAME# (PROG1 (READ T T) (READC T))))) (LF (OR FRAME# (SETQ FRAME# 0)) (printout T "(" .I1 (SETQ FRAME# (PLUS FRAME# 1)) ")" T) (VRAIDSHOWFRAME FRAME#)) (^ (COND ((OR (NULL FRAME#) (ILEQ FRAME# 1)) (printout T "No previous frame" T)) (T (printout T "(" .I1 (SETQ FRAME# (PLUS FRAME# -1)) ")" T) (VRAIDSHOWFRAME FRAME#)))) (^F (V\PRINTBF (VREADOCT) NIL (FUNCTION VPRINCOPY))) (Z (LET ((A (PROG1 (READ T T) (READC T))) (D (PROG1 (READ T T) (READC T)))) (COND ((AND (FIXP A) (FIXP D)) (SETQ VPRINTLEVEL (CONS A D))) (T (PRINTOUT T "Must be two integers, car level then cdr level" T) (ERROR!))))) (W (VSHOWSTACKBLOCKS (COND ((EQ (PEEKC T) (QUOTE %
+)) (READC T) (VGETBASE (VVAG2 20 0) 30)) (T (VREADOCT))))) (^X (V\PRINTFRAME (VREADOCT) (QUOTE PRINCOPY))) (^Y (TERPRI T) (USEREXEC (QUOTE :%:))) (K (SETQ ALINKS? (EQ (ASKUSER NIL NIL " Set link type for stack operations to " (QUOTE ((A "links
+") (C "links
+"))) T) (QUOTE A)))) (_ (PROG ((VA (VREADVA))) (printout T " Currently ") (PRINTNUM .I7 (VGETBASE VA 0) T) (printout T " to be ") (VPUTBASE VA 0 (VREADOCT)))) (I (COND ((NULL (GETD (QUOTE INSPECT)))) ((RECLOOK (QUOTE IFPAGE)) (INSPECT (COND ((LISTP VMEMFILE) (VMAPPAGE (fetch (POINTER PAGE#) of \InterfacePage))) (T (PROG ((PAGE (NCREATE (QUOTE VMEMPAGEP)))) (SETVMPTR (VGETTOPVAL (QUOTE \InterfacePage))) (\BINS (GETSTREAM VMEMFILE) PAGE 0 BYTESPERPAGE) (RETURN PAGE)))) (QUOTE IFPAGE))) (T (PRIN1 " Can't -- no record for IFPAGE"))) (TERPRI T)) (U (SHOWREMOTESCREEN)) (HELP)) (RETURN NIL)))
+)
+
+(VRAIDSHOWFRAME
+(LAMBDA (N) (*) (PROG ((FRAME (OR ROOTFRAME (VRAIDROOTFRAME)))) (FRPTQ (SUB1 N) (COND ((EQ (PROGN (SETQ FRAME (COND (ALINKS? (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10)) (T (IDIFFERENCE (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1))) (VGETBASE (VVAG2 1 FRAME) 1)) (T (VGETBASE (VVAG2 1 FRAME) 9))) 10))))) 0) (RETURN (printout T N " is beyond the bottom of the stack" T))))) (V\BACKTRACE FRAME FRAME T NIL T T NIL (FUNCTION VPRINCOPY) NIL RAIDIX)))
+)
+
+(VRAIDSTACKCMD
+(LAMBDA (CMD) (*) (DECLARE (USEDFREE FRAME# ROOTFRAME)) (PROG (FRAME) (SETQ FRAME# 0) (COND ((EQ CMD (QUOTE L)) (VRAIDROOTFRAME)) (T (SETQ ROOTFRAME (SELECTQ (SETQ FRAME (ASKUSER NIL NIL "in context (? for help): " (QUOTE ((P "age fault") (G "arbage collection") (K "eyboard handler") (H "ard Return") (S "tack manipulator") (R "eset") (M "iscellaneous") (F "rame at location: "))) T)) (P (VGETBASE (VVAG2 20 0) 6)) (G (VGETBASE (VVAG2 20 0) 5)) (K (VGETBASE (VVAG2 20 0) 3)) (H (VGETBASE (VVAG2 20 0) 4)) (S (VGETBASE (VVAG2 20 0) 2)) (R (VGETBASE (VVAG2 20 0) 1)) (M (VGETBASE (VVAG2 20 0) 14)) (COND ((AND (ILESSP (SETQ FRAME (VREADOCT)) 256) (ILESSP (VGETBASE (VVAG2 20 0) FRAME) (VGETBASE (VVAG2 20 0) 7)) (IEQ (LRSH (VGETBASE (VVAG2 1 (PROGN (PROGN (VGETBASE (VVAG2 20 0) FRAME)))) 0) 13) 6)) (VGETBASE (VVAG2 20 0) FRAME)) ((IEQ (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 13) 6) FRAME) (T (PRINTNUM .I7 FRAME) (printout T " not a valid frame." T) (RETURN))))))) (FRESHLINE T) (V\BACKTRACE ROOTFRAME NIL T NIL NIL NIL ALINKS? (FUNCTION VPRINCOPY) 1 RAIDIX)))
+)
+
+(VRAIDROOTFRAME
+(LAMBDA NIL (*) (SETQ ROOTFRAME (PROG1 (COND ((LISTP VMEMFILE) (PRIN1 "in TeleRaid Context" T) (VGETBASE (VVAG2 20 0) 24)) (T (VGETBASE (VVAG2 20 0) 0))) (TERPRI T))))
+)
+
+(VPRINTADDRS
+(LAMBDA (BASE CNT) (*) (PRIN1 "words from ") (VPRINTVA BASE) (PRIN1 " to ") (VPRINTVA (VADDBASE BASE (SUB1 CNT))) (TERPRI) (SPACES 7) (for I from 0 to 7 do (PRINTNUM .I7 I)) (PROG ((NB (VVAG2 (VHILOC BASE) (LOGAND (VLOLOC BASE) (CONSTANT (LOGXOR (SUB1 8) -1))))) (LB (VADDBASE BASE CNT))) (do (COND ((EVENP (VLOLOC NB) 8) (TAB 0 0) (PRINTNUM .I5 (VLOLOC NB)) (PRIN1 ": "))) (COND ((IGREATERP BASE NB) (SPACES 7)) (T (PRINTNUM .I7 (VGETBASE NB 0)))) (SETQ NB (VADDBASE NB 1)) repeatwhile (IGREATERP LB NB)) (TAB 0 0)))
+)
+
+(VPRINTVA
+(LAMBDA (X) (*) (PRIN1 "{") (PRINTNUM .I2 (VHILOC X)) (PRIN1 ",") (PRINTNUM .I2 (VLOLOC X)) (PRIN1 "}"))
+)
+
+(VREADVA
+(LAMBDA NIL (*) (VVAG2 (VREADOCT) (VREADOCT))))
+
+(VREADOCT
+(LAMBDA (PROMPT) (*) (DECLARE (USEDFREE RAIDIX)) (COND ((AND PROMPT (NOT (READP T))) (printout T PROMPT))) (bind STR while (EQUAL (SETQ STR (RSTRING T T)) "") do (READC T) finally (RETURN (PROG1 (OR (FIXP (SELECTQ RAIDIX (8 (MKATOM (CONCAT STR "Q"))) (16 (bind (N _ 0) CHAR while (SETQ CHAR (GNC STR)) do (SETQ N (IPLUS (ITIMES N 16) (COND ((FIXP CHAR) CHAR) ((AND (IGEQ (SETQ CHAR (CHCON1 CHAR)) (CHARCODE A)) (ILEQ CHAR (CHARCODE F))) (IPLUS (IDIFFERENCE CHAR (CHARCODE A)) 10)) (T (ERROR CHAR (QUOTE ?) T))))) finally (RETURN N))) (SHOULDNT))) (PROGN (PRIN1 "?" T) (ERROR!))) (READC T)))))
+)
+
+(VREADATOM
+(LAMBDA NIL (*) (PROG1 (HANDLER-BIND ((XCL:MISSING-EXTERNAL-SYMBOL (CL:FUNCTION (LAMBDA (CONDITION) (* ;; "MAKE AN INTERNAL SYMBOL INSTEAD") (CL:INTERN (XCL:MISSING-EXTERNAL-SYMBOL-NAME CONDITION) (XCL:MISSING-EXTERNAL-SYMBOL-PACKAGE CONDITION))))) (XCL:MISSING-PACKAGE (CL:FUNCTION (LAMBDA (CONDITION) (* ;; "FAKE A PACKAGE BY THIS NAME AND MAKE THE SYMBOL IN IT") (CL:INTERN (XCL:MISSING-PACKAGE-SYMBOL-NAME CONDITION) (CL:MAKE-PACKAGE (XCL:MISSING-PACKAGE-PACKAGE-NAME CONDITION) :USE NIL)))))) (CL:READ T)) (READC T)))
+)
+
+(VSHOWSTACKBLOCKS
+(LAMBDA (SCANPTR WAITFLG) (*) (*) (PROG ((EASP (VGETBASE (VVAG2 20 0) 7))) SCAN (SELECTC (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) (5 (VSHOWSTACKBLOCK1 SCANPTR "free block" (IEQ (VGETBASE (VVAG2 1 SCANPTR) 0) 40960)) (SETQ SCANPTR (PLUS SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 1)))) (7 (VSHOWSTACKBLOCK1 SCANPTR "guard block" T) (SETQ SCANPTR (PLUS SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 1)))) (6 (*) (VSHOWSTACKBLOCK1 SCANPTR "Frame extn = " (AND (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 6) (OR (IEQ (IDIFFERENCE SCANPTR 2) (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 SCANPTR) 1) 1))) (IDIFFERENCE SCANPTR 2)) (T (VGETBASE (VVAG2 1 SCANPTR) 8)))) (AND (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 (PROGN (IDIFFERENCE SCANPTR 2))) 0) 9) 1)) (IEQ (VGETBASE (VVAG2 1 (PROGN (IDIFFERENCE SCANPTR 2))) 1) (VGETBASE (VVAG2 1 (PROGN (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 SCANPTR) 1) 1))) (IDIFFERENCE SCANPTR 2)) (T (VGETBASE (VVAG2 1 SCANPTR) 8))))) 1)))))) (PRIN2 (V\UNCOPY (VGETBASEPTR (PROGN (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 SCANPTR) 6)) (T (VGETBASEPTR (VVAG2 1 SCANPTR) 2)))) 4))) (SETQ SCANPTR (VGETBASE (VVAG2 1 SCANPTR) 4))) (PROG ((ORIG SCANPTR) IVAR) (*) (while (EQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 0) do (SETQ SCANPTR (PLUS SCANPTR 2))) (COND ((NOT (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 4)) (VSHOWSTACKBLOCK1 ORIG "Garbage" T)) (T (SETQ IVAR (VGETBASE (VVAG2 1 SCANPTR) 1)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 9) 1)) (VSHOWSTACKBLOCK1 SCANPTR "Residual BF" (EQ SCANPTR ORIG)) (PRIN1 " with IVar = ") (PRINTNUM .I7 IVAR)) (T (VSHOWSTACKBLOCK1 SCANPTR "Basic frame" (AND (EQ ORIG IVAR) (AND (IEQ (LRSH (VGETBASE (VVAG2 1 SCANPTR) 0) 13) 4) (for I from (VGETBASE (VVAG2 1 SCANPTR) 1) to (IDIFFERENCE SCANPTR 2) by 2 always (IEQ 0 (LRSH (VGETBASE (VVAG2 1 I) 0) 13)))))))) (SETQ SCANPTR (PLUS SCANPTR 2)))))) (TERPRI) (COND ((IGREATERP SCANPTR EASP) (RETURN))) (AND WAITFLG (READC T)) (GO SCAN)))
+)
+
+(VSHOWSTACKBLOCK1
+(LAMBDA (PTR STR GOODFLG) (*) (PRINTNUM .I7 PTR) (SPACES 1) (OR GOODFLG (PRIN1 "[bad] ")) (PRIN1 STR))
+)
+
+(VPRINCOPY
+(LAMBDA (X) (*) (PRINT (V\UNCOPY X (CAR VPRINTLEVEL) (CDR VPRINTLEVEL)) T T)))
+
+(VNOSUCHATOM
+(LAMBDA (ATM) (*) (*) (printout T "No such atom: " ATM T) (ERROR "No such atom: ")))
+)
+(DEFINEQ
+
+(V\BACKTRACE
+(LAMBDA (IPOS EPOS NAMES VARS LOCALS JUNK ALINKS PRINTFN CNT RADIX) (*) (OR RADIX (SETQ RADIX 8)) (PROG (NARGS NPVARS NAME ARGNAME BLINK (.I7 (NUMFORMATCODE (LIST (QUOTE FIX) 7 RADIX)))) (DECLARE (SPECVARS .I7)) POSLP (COND (CNT (printout NIL .I3 CNT ": ") (SETQ CNT (PLUS CNT 1)))) (SETQ NAME (V\STKNAME IPOS)) (COND (JUNK (TERPRI) (TERPRI) (PRIN1 "Basic frame at ") (PRINTNUM .I7 (SETQ BLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (IDIFFERENCE IPOS 2)) (T (VGETBASE (VVAG2 1 IPOS) 8))))) (TERPRI) (V\PRINTBF BLINK (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 IPOS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 IPOS) 6)) (T (VGETBASEPTR (VVAG2 1 IPOS) 2))) PRINTFN) (PROGN (TERPRI) (PRIN1 "Frame xtn at ") (PRINTNUM .I7 IPOS) (PRIN1 ", frame name= ")) (APPLY* PRINTFN NAME) (V\PRINTFRAME IPOS PRINTFN)) ((OR VARS LOCALS) (V\PRINTBF (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (IDIFFERENCE IPOS 2)) (T (VGETBASE (VVAG2 1 IPOS) 8))) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 IPOS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 IPOS) 6)) (T (VGETBASEPTR (VVAG2 1 IPOS) 2))) PRINTFN (COND (LOCALS (QUOTE LOCALS)) (T T))) (COND (NAMES (APPLY* PRINTFN NAME) (TERPRI))) (V\PRINTFRAME IPOS PRINTFN (COND (LOCALS (QUOTE LOCALS)) (T T)))) (NAMES (APPLY* PRINTFN NAME))) (COND ((AND (NEQ EPOS IPOS) (NOT (EQ (PROGN (SETQ IPOS (COND (ALINKS (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10)) (T (IDIFFERENCE (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 IPOS) 1) 1))) (VGETBASE (VVAG2 1 IPOS) 1)) (T (VGETBASE (VVAG2 1 IPOS) 9))) 10))))) 0))) (GO POSLP))) (RETURN T)))
+)
+
+(V\STKNAME
+(LAMBDA (POS) (*) (*) (LET ((NAME (VGETBASEPTR (PROGN (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 POS) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 POS) 6)) (T (VGETBASEPTR (VVAG2 1 POS) 2)))) 4))) (if (EQ NAME (QUOTE \INTERPRETER)) then (VGETBASEPTR (VVAG2 1 0) (LET ((BFLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 POS) 1) 1))) (IDIFFERENCE POS 2)) (T (VGETBASE (VVAG2 1 POS) 8))))) (+ (VGETBASE (VVAG2 1 BFLINK) 1) (TIMES (CL:1- (IDIFFERENCE (LRSH (IDIFFERENCE BFLINK (VGETBASE (VVAG2 1 BFLINK) 1)) 1) (LOGAND (LRSH (VGETBASE (VVAG2 1 BFLINK) 0) 8) 1))) 2)))) else NAME)))
+)
+
+(V\PRINTBF
+(LAMBDA (BL NMT PRINTFN VARSONLY) (*) (bind NM for I from (VGETBASE (VVAG2 1 BL) 1) by 2 as J from 0 to (SUB1 (IDIFFERENCE (LRSH (IDIFFERENCE BL (VGETBASE (VVAG2 1 BL) 1)) 1) (LOGAND (LRSH (VGETBASE (VVAG2 1 BL) 0) 8) 1))) do (OR VARSONLY (V\PRINTSTK I)) (COND ((OR (SETQ NM (V\SCANFORNTENTRY (OR NMT (RETURN (OR VARSONLY (TERPRI)))) (MAKE-NTENTRY 0 J))) (AND (NEQ VARSONLY T) (SETQ NM (QUOTE *local*)))) (AND VARSONLY (SPACES 3)) (PRIN2 NM) (SPACES 1) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 0) I)))) finally (OR VARSONLY (while (ILESSP I BL) do (V\PRINTSTK I) (printout NIL "[padding]" T) (SETQ I (PLUS I 2))))) (COND ((NOT VARSONLY) (V\PRINTSTK BL) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 BL) 0) 9) 1)) (PRIN1 "residual "))) (COND ((NEQ (LOGAND (VGETBASE (VVAG2 1 BL) 0) 255) 0) (printout NIL "usecnt= " (LOGAND (VGETBASE (VVAG2 1 BL) 0) 255) %,))) (TERPRI))))
+)
+
+(V\PRINTFRAME
+(LAMBDA (FRAME PRINTFN VARSONLY) (*) (PROG ((NMT (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 FRAME) 6)) (T (VGETBASEPTR (VVAG2 1 FRAME) 2)))) (I 0) (FT (IPLUS (IPLUS FRAME (PROGN 10)) (LLSH (ADD1 (SIGNED (VGETBASE (PROGN (VGETBASEPTR (VVAG2 1 FRAME) 2)) 2) 16)) 2) (PROGN 4))) TMP NLOCALS) (COND ((NOT VARSONLY) (V\PRINTSTK FRAME) (PRIN1 "[") (PROGN (PROG ((FAST (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 12) 1)))) (DECLARE (LOCALVARS FAST)) (COND (FAST (PRIN1 (QUOTE "F, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "F, ") -1)) (= (printout NIL %, FAST NIL)) NIL) T))) (PROG ((INCALL (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 10) 1)))) (DECLARE (LOCALVARS INCALL)) (COND (INCALL (PRIN1 (QUOTE "C, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "C, ") -1)) (= (printout NIL %, INCALL NIL)) NIL) T))) (PROG ((VALIDNAMETABLE (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)))) (DECLARE (LOCALVARS VALIDNAMETABLE)) (COND (VALIDNAMETABLE (PRIN1 (QUOTE "V, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "V, ") -1)) (= (printout NIL %, VALIDNAMETABLE NIL)) NIL) T))) (PROG ((NOPUSH (NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 8) 1)))) (DECLARE (LOCALVARS NOPUSH)) (COND (NOPUSH (PRIN1 (QUOTE "N, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "N, ") -1)) (= (printout NIL %, NOPUSH NIL)) NIL) T))) (PROG ((USECNT (LOGAND (VGETBASE (VVAG2 1 FRAME) 0) 255))) (DECLARE (LOCALVARS USECNT)) (COND ((NEQ USECNT 0) (PRIN1 (QUOTE "USE=")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "USE=") -1)) (= (printout NIL %, USECNT ", ")) NIL) T))) (PROG ((SLOWP (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1)))) (DECLARE (LOCALVARS SLOWP)) (COND (SLOWP (PRIN1 (QUOTE "X, ")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "X, ") -1)) (= (printout NIL %, SLOWP NIL)) NIL) T))) (PROG ((ALINK (IDIFFERENCE (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) (CONSTANT (LOGXOR (SUB1 2) -1))) 10))) (DECLARE (LOCALVARS ALINK)) (COND (T (PRIN1 (QUOTE " alink]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE " alink]") -1)) (= (printout NIL %, ALINK NIL)) NIL) T)))) (TERPRI) (PROGN (V\PRINTSTK (IPLUS FRAME 2)) (PROGN (PROG ((FNHEADER (VGETBASEPTR (VVAG2 1 FRAME) 2))) (DECLARE (LOCALVARS FNHEADER)) (COND (T (PRIN1 (QUOTE "[fn header]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[fn header]") -1)) (= (printout NIL %, FNHEADER NIL)) NIL) T)))) (TERPRI)) (PROGN (V\PRINTSTK (IPLUS FRAME 4)) (PROGN (PROG ((NEXTBLOCK (VGETBASE (VVAG2 1 FRAME) 4))) (DECLARE (LOCALVARS NEXTBLOCK)) (COND (T (PRIN1 (QUOTE "[next, pc]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[next, pc]") -1)) (= (printout NIL %, NEXTBLOCK NIL)) NIL) T)))) (TERPRI)) (PROGN (V\PRINTSTK (IPLUS FRAME 6)) (PROGN (PROG ((NAMETABLE (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE (VVAG2 1 FRAME) 0) 9) 1)) (VGETBASEPTR (VVAG2 1 FRAME) 6)) (T (VGETBASEPTR (VVAG2 1 FRAME) 2))))) (DECLARE (LOCALVARS NAMETABLE)) (COND (T (PRIN1 (QUOTE "[nametable]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[nametable]") -1)) (= (printout NIL %, NAMETABLE NIL)) NIL) T)))) (TERPRI)) (PROGN (V\PRINTSTK (IPLUS FRAME 8)) (PROGN (PROG ((BLINK (COND ((NOT (NEQ 0 (LOGAND (VGETBASE (VVAG2 1 FRAME) 1) 1))) (IDIFFERENCE FRAME 2)) (T (VGETBASE (VVAG2 1 FRAME) 8))))) (DECLARE (LOCALVARS BLINK)) (COND (T (PRIN1 (QUOTE "[blink, clink]")) (SELECTQ (CONSTANT (NTHCHAR (QUOTE "[blink, clink]") -1)) (= (printout NIL %, BLINK NIL)) NIL) T)))) (TERPRI)))) (SETQ NLOCALS (LRSH (VGETBASE NMT 7) 8)) (for old I from (IPLUS FRAME (PROGN 10)) by 2 while (ILESSP I FT) as J from 0 do (OR VARSONLY (V\PRINTSTK I)) (COND ((ILESSP J NLOCALS) (COND ((OR (SETQ TMP (V\SCANFORNTENTRY NMT (MAKE-NTENTRY 32768 J))) (AND (NEQ VARSONLY T) (SETQ TMP "local"))) (COND ((EQ (LRSH (VGETBASE (PROGN (VVAG2 1 I)) 0) 12) 0) (AND VARSONLY (SPACES 3)) (PRIN2 TMP) (SPACES 1) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 I) 0))) ((NOT VARSONLY) (printout NIL TMP " [unbound]" T)))))) ((NOT VARSONLY) (COND ((SETQ TMP (V\SCANFORNTENTRY NMT (MAKE-NTENTRY 49152 J))) (printout NIL "[fvar " .P2 TMP " " (COND ((EVENP (VGETBASE (PROGN (VVAG2 1 I)) 0)) (COND ((EQ (SETQ TMP (VHILOC ((LAMBDA ($$1) (VVAG2 (VGETBASE (PROGN $$1) 1) (VGETBASE $$1 0))) (VVAG2 1 I)))) 1) " on stack]") ((NEQ (LOGAND TMP (CONSTANT (LOGXOR (SUB1 2) -1))) (VHILOC (VVAG2 12 0))) (*) " non-stack binding]") (T " top value]"))) (T " not looked up]")) T)) (T (printout NIL "[padding]" T)))))) (COND ((NOT VARSONLY) (SETQ FT (VGETBASE (VVAG2 1 FRAME) 4)) (for old I by 2 while (ILESSP I FT) do (*) (V\PRINTSTK I) (COND ((EQ (LRSH (VGETBASE (PROGN (VVAG2 1 I)) 0) 12) 0) (APPLY* PRINTFN (VGETBASEPTR (VVAG2 1 I) 0))) (T (TERPRI))))))))
+)
+
+(V\SCANFORNTENTRY
+(LAMBDA (NMT NTENTRY) (*) (*) (bind NM for NT1 from (PROGN 8) by (CONSTANT (PROGN 2)) as NT2 from (IPLUS (PROGN 8) (VGETBASE NMT 6)) by (CONSTANT (WORDSPERNTOFFSETENTRY)) do (COND ((NULL-NTENTRY (SETQ NM (GETSTKNAMEENTRY NMT NT1))) (RETURN))) (COND ((IEQP NTENTRY (GETSTKNTOFFSETENTRY NMT NT2)) (RETURN (VATOM NM))))))
+)
+
+(V\PRINTSTK
+(LAMBDA (I) (*) (PRINTNUM .I7 I) (PRIN1 ": ") (PRINTNUM .I7 (VGETBASE (VVAG2 1 0) I)) (PRINTNUM .I7 (VGETBASE (VVAG2 1 0) (ADD1 I))) (SPACES 1))
+)
+)
+(DEFINEQ
+
+(V\CHECKARRAYBLOCK
+(LAMBDA (BASE FREE ONFREELIST) (*) (COND (T (PROG (ERROR TRAILER) (COND ((NEQ (LRSH (VGETBASE BASE 0) 3) 5461) (SETQ ERROR "ARRAYBLOCK Password wrong")) ((NEQ (NEQ 0 (LOGAND (VGETBASE BASE 0) 1)) (NOT FREE)) (SETQ ERROR "ARRAYBLOCK INUSE bit set wrong")) (NIL (SETQ ERROR "Free ARRAYBLOCK with RefCnt not 1")) ((NEQ (LRSH (VGETBASE (SETQ TRAILER ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) BASE (IDIFFERENCE (VGETBASE BASE 1) 1))) 0) 3) 5461) (SETQ ERROR "ARRAYBLOCK Trailer password wrong")) ((NEQ (VGETBASE BASE 1) (VGETBASE TRAILER 1)) (SETQ ERROR "ARRAYBLOCK Header and Trailer length don't match")) ((NEQ (NEQ 0 (LOGAND (VGETBASE BASE 0) 1)) (NOT FREE)) (SETQ ERROR "ARRAYBLOCK Trailer INUSE bit set wrong")) ((OR (NOT ONFREELIST) (ILESSP (VGETBASE BASE 1) 4)) (*) (RETURN)) ((OR (NOT (EQUAL (VGETBASEPTR (VGETBASEPTR BASE 4) 2) BASE)) (NOT (EQUAL (VGETBASEPTR (VGETBASEPTR BASE 2) 4) BASE))) (SETQ ERROR "ARRAYBLOCK links fouled")) ((bind (FBL _ ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) VFREEBLOCKBUCKETS (IMIN (INTEGERLENGTH (VGETBASE BASE 1)) 30))) ROVER first (OR (SETQ ROVER (VGETBASEPTR FBL 0)) (RETURN (SETQ ERROR "Free block's bucket empty"))) do (AND (EQUAL ROVER BASE) (RETURN)) (V\CHECKARRAYBLOCK ROVER T) repeatuntil (EQ (SETQ ROVER (VGETBASEPTR ROVER 2)) (VGETBASEPTR FBL 0)))) (T (*) (RETURN))) (ERROR BASE ERROR) (RETURN ERROR)))))
+)
+
+(V\PARSEARRAYSPACE
+(LAMBDA (FN) (*) (COND ((NEQ VArrayFrLst2 (VVAG2 64 0)) (*) (V\PARSEARRAYSPACE1 FN (VVAG2 46 0) VArrayFrLst2) (V\PARSEARRAYSPACE1 FN (VVAG2 64 0) VArrayFrLst)) (T (V\PARSEARRAYSPACE1 FN (VVAG2 46 0) VArrayFrLst))))
+)
+
+(V\PARSEARRAYSPACE1
+(LAMBDA (FN START END) (*) (for (ROVER _ START) repeatuntil (EQUAL END (SETQ ROVER ((LAMBDA (BASE N) (DECLARE (LOCALVARS BASE N)) (VADDBASE (VADDBASE BASE N) N)) ROVER (VGETBASE ROVER 1)))) do (V\CHECKARRAYBLOCK ROVER (NOT (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1))) (AND (NOT (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1))) (VGETBASEPTR ROVER 2))) (AND FN (APPLY* FN ROVER (VGETBASE ROVER 1) (NEQ 0 (LOGAND (VGETBASE ROVER 0) 1)) (LOGAND (LRSH (VGETBASE ROVER 0) 1) 3)))))
+)
+)
+(DEFINEQ
+
+(VPRINTCODE
+(LAMBDA (FN LVFLG RADIX OUTF FIRSTBYTE PC FN.IS.CODEBASE) (*) (*) (*) (*) (*) (*) (DECLARE (SPECVARS OUTF)) (OR RADIX (SETQ RADIX 16)) (LET ((CODEBASE (COND (FN.IS.CODEBASE FN) (T (OR (V\GET-COMPILED-CODE-BASE FN) (AND (LITATOM FN) (V\GET-COMPILED-CODE-BASE (GET FN (QUOTE CODE)))) (ERROR FN "not compiled code"))))) (I4 (NUMFORMATCODE (LIST (QUOTE FIX) (if (IGREATERP RADIX 15) then 3 else 4) RADIX))) (I6 (NUMFORMATCODE (LIST (QUOTE FIX) (if (IGREATERP RADIX 15) then 5 else 6) RADIX))) NTSIZE STARTPC TAG TEMP OP# PVARS FVARS IVARS) (DECLARE (SPECVARS CODEBASE IVARS PVARS FVARS I4 I6)) (*) (LET ((*PRINT-BASE* RADIX)) (for I from 0 by 2 while (ILESSP I (LLSH (PROGN 8) 1)) do (PRINTNUM I4 I OUTF) (PRIN1 ": " OUTF) (PRINTNUM I6 (LOGOR (LLSH (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR I 3))) (T (V\GETBASEBYTE CODEBASE I))) 8) ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (ADD1 I))) OUTF) (SELECTQ I (0 (PRIN1 " stkmin" OUTF)) (2 (PRIN1 " na" OUTF)) (4 (PRIN1 " pv" OUTF)) (6 (PRIN1 " startpc" OUTF)) (8 (AND (NEQ 0 (LRSH (VGETBASE CODEBASE 4) 15)) (PRIN1 "[CLOSUREP]" OUTF)) (printout OUTF " byteswapped: " (NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1))) (printout OUTF " argtype: " (LOGAND (LRSH (VGETBASE CODEBASE 4) 12) 3))) (10 (printout OUTF " frame name: " .P2 (V\UNCOPY (VGETBASEPTR CODEBASE 4)))) (12 (PRIN1 " ntsize" OUTF)) (14 (printout OUTF " nlocals: " (LRSH (VGETBASE CODEBASE 7) 8)) (printout OUTF " fvaroffset: " (LOGAND (VGETBASE CODEBASE 7) 255))) NIL) (*) (TERPRI OUTF))) (SETQ NTSIZE (VGETBASE CODEBASE 6)) (VPRINTCODENT "name table: " (LLSH (PROGN 8) 1) (LLSH NTSIZE 1)) (SETQ STARTPC (VGETBASE CODEBASE 3)) (COND ((GREATERP (SETQ NTSIZE (IDIFFERENCE (COND ((PROGN NIL) (*) (- STARTPC 4)) (T STARTPC)) (SETQ TEMP (IPLUS (LLSH (PROGN 8) 1) (COND ((EQ NTSIZE 0) (*) 8) (T (LLSH NTSIZE 2))))))) 4) (VPRINTCODENT "Local args: " TEMP (LRSH NTSIZE 1))) ((EQ NTSIZE 4) (*) (printout OUTF T "Info: " .P2 (VGETBASEPTR CODEBASE (LRSH TEMP 1)) T))) (printout OUTF T "----" T) (PROG ((CODELOC STARTPC) (LEVEL (AND LVFLG 0)) B B1 B2 B3 B4 B5 FN LEN LEVADJ STK) (COND (LEVEL (SETUPHASHARRAY (QUOTE \PRINTCODE.LEVEL)) (SETUPHASHARRAY (QUOTE \PRINTCODE.STKSTATE)) (CLRHASH \PRINTCODE.LEVEL) (CLRHASH \PRINTCODE.STKSTATE))) LP (COND ((AND PC (IGEQ CODELOC PC)) (*) (COND ((NOT (IEQP CODELOC PC)) (PRINTOUT OUTF "(PC ") (PRINTNUM I4 PC OUTF) (PRINTOUT OUTF " not found)"))) (printout OUTF "------------------------------" T) (SETQ PC))) (COND ((OR (NULL FIRSTBYTE) (IGEQ CODELOC FIRSTBYTE)) (PRINTNUM I4 CODELOC OUTF) (PRIN1 ": " OUTF) (COND (LVFLG (SETQ TEMP (GETHASH CODELOC \PRINTCODE.LEVEL)) (COND (LEVEL (COND ((AND TEMP (OR (NEQ LEVEL TEMP) (NOT (EQUAL STK (GETHASH CODELOC \PRINTCODE.STKSTATE))))) (PRIN1 "*" OUTF)))) (T (SETQ LEVEL TEMP) (SETQ STK (GETHASH CODELOC \PRINTCODE.STKSTATE)))) (COND (LEVEL (TAB 7 NIL OUTF) (PRINTNUM I4 LEVEL OUTF))))) (TAB 12 NIL OUTF)) (T (*) (SETQ TAG (\FINDOP ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1)))))) (SELECTQ (OR (fetch OPPRINT of TAG) (fetch OPCODENAME of TAG)) (-X- (TERPRI OUTF) (RETURN)) (BIND (COND (LEVEL (push STK (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL (LOGAND (CODEBASELT CODEBASE CODELOC) 15)))))))) (UNBIND (AND LEVEL (SETQ LEVEL (pop STK)))) (DUNBIND (AND LEVEL (SETQ LEVEL (SUB1 (pop STK))))) (RETURN (SETQ LEVEL)) (SUBRCALL (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (ADD1 CODELOC))))))) (MISCN (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (IPLUS 2 CODELOC))))))) NIL) (COND ((AND LEVEL (SETQ LEVADJ (fetch LEVADJ of TAG))) (COND ((LISTP LEVADJ) (SETQ LEVADJ (CAR LEVADJ)))) (SELECTQ LEVADJ (FNX (SETQ LEVEL (PLUS LEVEL (IDIFFERENCE 1 (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR CODELOC 3))) (T (V\GETBASEBYTE CODEBASE CODELOC))))))) (POP.N (SETQ LEVEL (IDIFFERENCE LEVEL (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR CODELOC 3))) (T (V\GETBASEBYTE CODEBASE CODELOC)))))) ((JUMP UNWIND) (SETQ LEVEL)) ((CJUMP NCJUMP) (SETQ LEVEL (PLUS LEVEL -1))) (COND ((NUMBERP LEVADJ) (SETQ LEVEL (PLUS LEVEL LEVADJ))))))) (add CODELOC (fetch OPNARGS of TAG)) (GO LP))) (SETQ LEN (fetch OPNARGS of (SETQ TAG (\FINDOP (SETQ B ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))))))) (PRINTNUM I4 B OUTF) (COND ((IGREATERP LEN 0) (PRINTNUM I4 (SETQ B1 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 1) (PRINTNUM I4 (SETQ B2 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 2) (PRINTNUM I4 (SETQ B3 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 3) (PRINTNUM I4 (SETQ B4 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (COND ((IGREATERP LEN 4) (PRINTNUM I4 (SETQ B5 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (PROG1 CODELOC (SETQ CODELOC (PLUS CODELOC 1))))) OUTF))) (PROGN (printout OUTF 30 (fetch OPCODENAME of TAG)) (SETQ OP# (fetch OP# of TAG)) (SETQ LEVADJ (fetch LEVADJ of TAG))) (COND ((LISTP OP#) (SETQ OP# (CAR OP#)))) (SELECTQ (SETQ TAG (OR (fetch OPPRINT of TAG) (fetch OPCODENAME of TAG))) (-X- (TERPRI OUTF) (RETURN)) (IVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) IVARS) (RETURN (printout OUTF "[" (QUOTE ivar) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (PVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) PVARS) (RETURN (printout OUTF "[" (QUOTE pvar) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (FVAR (TAB 40 NIL OUTF) (PROGN (*) (PROG NIL (PRIN2 (CADR (OR (ASSOC (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) FVARS) (RETURN (printout OUTF "[" (QUOTE fvar) (SELECTQ LEN (0 (IDIFFERENCE B OP#)) (LRSH B1 1)) "]")))) OUTF)))) (JUMP ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \PRINTCODE.LEVEL) (PUTHASH N STK \PRINTCODE.STKSTATE)))) (IPLUS (IDIFFERENCE B OP#) 2))) (SIC (printout OUTF 40 .P2 B1)) (SNIC (printout OUTF 40 .P2 (IDIFFERENCE B1 256))) (SICX (printout OUTF 40 .P2 (IPLUS (LLSH B1 8) B2))) (JUMPX ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \PRINTCODE.LEVEL) (PUTHASH N STK \PRINTCODE.STKSTATE)))) (COND ((IGEQ B1 128) (IDIFFERENCE B1 256)) (T B1)))) (FN (*) (NEW-SYMBOL-CODE (SETQ B (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B1 8) B2) 8) B3) 8) B4)) (SETQ B (IPLUS (LLSH B1 8) B2))) (printout OUTF 40 .P2 (VATOM B))) (BIND (TAB 40 NIL OUTF) (PROG ((NNILS (LRSH B1 4)) (NVALS (LOGAND B1 15))) (for I from (ADD1 (IDIFFERENCE B2 (IPLUS NNILS NVALS))) to (IDIFFERENCE B2 NNILS) do (SPACES 1 OUTF) (PCVAR I PVARS (QUOTE pvar))) (PRIN1 (QUOTE ;) OUTF) (for I from (ADD1 (IDIFFERENCE B2 NNILS)) to B2 do (SPACES 1 OUTF) (PCVAR I PVARS (QUOTE pvar))) (COND (LEVEL (push STK (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL NVALS)))))))) (JUMPXX ((LAMBDA (N) (PRIN1 "->" OUTF) (PRINTNUM I4 (SETQ N (IPLUS N (IDIFFERENCE CODELOC (ADD1 LEN)))) OUTF) (COND (LEVEL (PUTHASH N (SELECTQ LEVADJ ((NCJUMP JUMP) LEVEL) (SUB1 LEVEL)) \PRINTCODE.LEVEL) (PUTHASH N STK \PRINTCODE.STKSTATE)))) (IPLUS (LLSH B1 8) B2 (COND ((IGREATERP B1 127) -65536) (T 0))))) (ATOM (printout OUTF 40 .P2 (VATOM (NEW-SYMBOL-CODE (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B1 8) B2) 8) B3) 8) B4) (IPLUS (LLSH B1 8) B2))))) (GCONST (printout OUTF 40 .P2 (V\UNCOPY (VVAG2 (IPLUS (LLSH B1 8) B2) (IPLUS (LLSH B3 8) B4))))) (FNX (printout OUTF "(" B1 ")" 40 .P2 (VATOM (NEW-SYMBOL-CODE (IPLUS (LLSH (IPLUS (LLSH (IPLUS (LLSH B2 8) B3) 8) B4) 8) B5) (IPLUS (LLSH B2 8) B3))))) (TYPEP (printout OUTF "(" .P2 (OR (V\TYPENAMEFROMNUMBER B1) (QUOTE ?)) ")")) (UNBIND (AND LEVEL (SETQ LEVEL (pop STK)))) (DUNBIND (AND LEVEL (SETQ LEVEL (SUB1 (pop STK))))) (RETURN (SETQ LEVEL)) (SUBRCALL (printout OUTF 40 (for X in \INITSUBRS when (EQ B1 (CADR X)) do (RETURN (CAR X)) finally (RETURN "?"))) (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL B2))))) (MISCN (printout OUTF 40 (for X in \USER-SUBR-LIST when (EQ B1 (CADR X)) do (RETURN (CAR X)) finally (RETURN "?"))) (AND LEVEL (SETQ LEVEL (ADD1 (IDIFFERENCE LEVEL B2))))) (COND ((LISTP TAG) (printout OUTF 40 (CAR (NTH TAG (ADD1 B1))))))) (TERPRI OUTF) (COND ((AND LEVEL LEVADJ) (SELECTQ LEVADJ (FNX (SETQ LEVEL (PLUS LEVEL (IDIFFERENCE 1 B1)))) (POP.N (SETQ LEVEL (IDIFFERENCE LEVEL B1))) ((JUMP UNWIND) (SETQ LEVEL)) ((CJUMP NCJUMP) (SETQ LEVEL (PLUS LEVEL -1))) (COND ((NUMBERP LEVADJ) (SETQ LEVEL (PLUS LEVEL LEVADJ))))))) (GO LP))))
+)
+
+(VPRINTCODENT
+(LAMBDA (STR START1 START2) (DECLARE (USEDFREE CODEBASE IVARS PVARS FVARS I4 I6 OUTF)) (*) (*) (LET (NAME TAG) (COND ((ILESSP START1 (SETQ START2 (IPLUS START2 START1))) (printout OUTF STR T) (for NT1 from START1 by (LLSH (CONSTANT (PROGN 2)) 1) while (ILESSP NT1 START2) as NT2 from START2 by (LLSH (PROGN 2) 1) do (PRINTNUM I4 NT1 OUTF) (PRIN1 ": " OUTF) (for I from 0 to (CONSTANT (SUB1 (LLSH (CONSTANT (PROGN 2)) 1))) do (PRINTNUM I4 ((LAMBDA (CODEBASE OFFSET) (DECLARE (LOCALVARS CODEBASE OFFSET)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\GETBASEBYTE CODEBASE (LOGXOR OFFSET 3))) (T (V\GETBASEBYTE CODEBASE OFFSET)))) CODEBASE (IPLUS NT1 I)) OUTF)) (SPACES 2 OUTF) (PRINTNUM I4 NT2 OUTF) (PRIN1 ": " OUTF) (COND ((SETQ NAME (VATOM (CODEBASEGETNAME CODEBASE NT1))) (SETQ TAG (GETNTOFFSET CODEBASE NT2)) (printout OUTF .SP 1 (SELECTC (NTSLOT-VARTYPE (GETNTOFFSETENTRY CODEBASE NT2)) (0 (push IVARS (LIST TAG NAME)) (QUOTE IVAR)) (32768 (push PVARS (LIST TAG NAME)) (QUOTE PVAR)) (PROGN (push FVARS (LIST TAG NAME)) (QUOTE FVAR))) " " TAG ": " .P2 NAME))) (TERPRI OUTF))))))
+)
+
+(VBROKENDEF
+(LAMBDA (DEF WHEN) (*) (PROG ((CA (V\GET-COMPILED-CODE-BASE DEF)) BEFORE AFTER SIZE FIRSTBYTE NEWCA) (SETQ FIRSTBYTE (VGETBASE CA 3)) NIL (*) (PROGN (*) (PROGN (*) (SETQ NEWCA CA) (SETQ AFTER T)) (*) (COND (AFTER (*) (bind OP do (SELECTQ (CADR (SETQ OP (\FINDOP (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE NEWCA 4) 14) 1)) (V\GETBASEBYTE NEWCA (LOGXOR FIRSTBYTE 3))) (T (V\GETBASEBYTE NEWCA FIRSTBYTE)))))) (-X- (RETURN)) (GCONST NIL) (RETURN ((LAMBDA (CODEBASE OFFSET NEWVALUE) (DECLARE (LOCALVARS CODEBASE OFFSET NEWVALUE)) (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE CODEBASE 4) 14) 1)) (V\PUTBASEBYTE CODEBASE (LOGXOR OFFSET 3) NEWVALUE)) (T (V\PUTBASEBYTE CODEBASE OFFSET NEWVALUE)))) NEWCA FIRSTBYTE (V\CAR.UFN (\FINDOP (QUOTE \RETURN))))) NIL) (SETQ FIRSTBYTE (PLUS FIRSTBYTE 1 (CADDR OP))))))) (RETURN NEWCA)))
+)
+)
+(DEFINEQ
+
+(V\CAR.UFN
+(LAMBDA (X) (*) (*) (*) (COND ((VLISTP X) (COND ((ZEROP 1) (VGETBASEPTR X 0)) (T (COND ((EQ (LRSH (VGETBASE X 0) 12) 0) (VGETBASEPTR (VGETBASEPTR X 0) 0)) (T (VGETBASEPTR X 0)))))) ((NULL X) NIL) (T (SELECTQ T (T (LISPERROR "ARG NOT LIST" X)) ((NIL V\CDR.UFN) (COND ((EQ X T) T) ((LITATOM X) NIL) (T (QUOTE "{car of non-list}")))) (COND ((EQ X T) T) ((STRINGP X) (LISPERROR "ARG NOT LIST" X)) (T (QUOTE "{car of non-list}")))))))
+)
+
+(V\CDR.UFN
+(LAMBDA (X) (*) (*) (*) (COND ((VLISTP X) (COND ((ZEROP 1) (VGETBASEPTR X 2)) (T (PROG ((Q (LRSH (VGETBASE X 0) 12))) (RETURN (COND ((EQ Q 8) NIL) ((IGREATERP Q 8) (VADDBASE (VVAG2 (VHILOC X) (LOGAND (VLOLOC X) 65280)) (LLSH (IDIFFERENCE Q 8) 1))) ((EQ Q 0) (V\CDR.UFN (VGETBASEPTR X 0))) (T (VGETBASEPTR (VADDBASE (VVAG2 (VHILOC X) (LOGAND (VLOLOC X) 65280)) (LLSH Q 1)) 0)))))))) ((NULL X) NIL) (T (SELECTQ T ((T V\CDR.UFN) (LISPERROR "ARG NOT LIST" X)) (NIL (COND ((LITATOM X) (VGETPROPLIST X)) (T "{cdr of non-list}"))) (COND ((STRINGP X) (LISPERROR "ARG NOT LIST" X)) (T "{cdr of non-list}"))))))
+)
+)
+(DEFINEQ
+
+(V\COPY
+(LAMBDA (X) (*) (*) (SELECTQ (TYPENAME X) ((LITATOM NEW-ATOM) (VATOMNUMBER X T)) (VLISTP (PROG ((R (REVERSE X)) (V (V\COPY (CDR (LAST X))))) LP (COND ((LISTP R) (SETQ V (CONS (V\COPY (CAR R)) V)) (SETQ R (CDR R)) (GO LP))) (RETURN V))) ((FIXP SMALLP) (PROG (V) (COND ((IGREATERP 0 X) (*) (COND ((IGREATERP X -65537) (*) (RETURN (VADDBASE (VVAG2 15 0) (LOGAND X 65535)))))) ((ILESSP X 65536) (*) (RETURN (VADDBASE (VVAG2 14 0) X)))) (*) (SETQ V (CREATECELL 2)) (VPUTBASE V 0 (LOGOR (COND ((IGREATERP 0 X) 32768) (T 0)) (LOGAND (LRSH X 16) 32767))) (VPUTBASE V 1 (LOGAND X 65535)) (RETURN V))) (ONED-ARRAY (%%COPY-ONED-ARRAY X)) (STRINGP (*) (%%COPY-STRING-TO-ARRAY X)) (FLOATP (PROG ((VAL (CREATECELL 3))) (SELECTQ (SYSTEMTYPE) ((ALTO D) (VPUTBASE VAL 0 (\GETBASE X 0)) (VPUTBASE VAL 1 (\GETBASE X 1))) (MKI.IEEE X VAL)) (RETURN VAL))) (CHARACTER (VVAG2 7 (CL:CHAR-CODE X))) (ERROR X "can't be copied to remote file")))
+)
+
+(V\UNCOPY
+(LAMBDA (X CARLVL CDRLVL) (*) (SELECTC (VNTYPX X) (1 (COND ((EQ (VHILOC X) 14) (*) (VLOLOC X)) (T (IPLUS (VLOLOC X) -65536)))) (2 (*) (create FIXP HINUM _ (VGETBASE X 0) LONUM _ (VGETBASE X 1))) (3 (create FLOATP HIWORD _ (VGETBASE X 0) LOWORD _ (VGETBASE X 1))) (4 (VATOM (VLOLOC X))) (7 (PROG ((PTR (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 14) 1)) (%%ARRAY-BASE X)) (T (VGETBASEPTR X 0)))) (OFFST (COND ((NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 14) 1)) (%%ARRAY-OFFSET X)) (T (VGETBASE X 3)))) (LENGTH (\GETBASEFIXP X 4)) (I 1) STR) (*) (SETQ STR (ALLOCSTRING LENGTH)) (FRPTQ LENGTH (RPLSTRING STR I (FCHARACTER (V\GETBASEBYTE PTR OFFST))) (SETQ I (PLUS I 1)) (SETQ OFFST (PLUS OFFST 1))) (RETURN STR))) (9 (\VAG2 7 (VLOLOC X))) (%%ONED-ARRAY (LET ((SIZE (\GETBASEFIXP X 6)) (BASE (VGETBASEPTR X 0)) (OFFSET (VGETBASE X 3)) (TYPENUMBER (LOGAND (VGETBASE X 2) 255)) NCELLS LOCAL-ARRAY LOCAL-BASE) (if (EQ (%%TYPENUMBER-TO-GC-TYPE TYPENUMBER) 1) then (VTYPEDPOINTER (VTYPENAME X) X) else (SETQ NCELLS (LRSH (IPLUS (ITIMES (IPLUS SIZE OFFSET) (%%TYPENUMBER-TO-BITS-PER-ELEMENT TYPENUMBER)) 31) 5)) (SETQ LOCAL-ARRAY (create ONED-ARRAY)) (SETQ LOCAL-BASE (\ALLOCBLOCK NCELLS)) (freplace (ONED-ARRAY BASE) of LOCAL-ARRAY with LOCAL-BASE) (freplace (ONED-ARRAY STRING-P) of LOCAL-ARRAY with (%%CHAR-TYPE-P TYPENUMBER)) (freplace (ONED-ARRAY FILL-POINTER-P) of LOCAL-ARRAY with (NEQ 0 (LOGAND (LRSH (VGETBASE X 2) 9) 1))) (freplace (ONED-ARRAY TYPE-NUMBER) of LOCAL-ARRAY with TYPENUMBER) (freplace (ONED-ARRAY FILL-POINTER) of LOCAL-ARRAY with (\GETBASEFIXP X 4)) (if (NEQ OFFSET 0) then (freplace (ONED-ARRAY OFFSET) of LOCAL-ARRAY with OFFSET) (freplace (ONED-ARRAY DISPLACED-P) of LOCAL-ARRAY with T)) (freplace (ONED-ARRAY TOTAL-SIZE) of LOCAL-ARRAY with SIZE) (for I from 0 to (SUB1 (LLSH NCELLS 1)) do (\PUTBASE LOCAL-BASE I (VGETBASE BASE I))) LOCAL-ARRAY))) (5 (COND ((VLISTP X) (COND ((EQ CDRLVL 0) (*) (QUOTE (--))) (T (CONS (COND ((OR (EQ CARLVL 0) (AND (OR (EQ CARLVL 1) (EQ CDRLVL 1)) (VLISTP (V\CAR.UFN X)))) (QUOTE &)) (T (V\UNCOPY (V\CAR.UFN X) (AND CARLVL (SUB1 CARLVL)) (AND CDRLVL (SUB1 CDRLVL))))) (V\UNCOPY (V\CDR.UFN X) CARLVL (AND CDRLVL (SUB1 CDRLVL))))))) (T (*) (VTYPEDPOINTER (QUOTE LISTP) X)))) (0 (VTYPEDPOINTER NIL X)) (VTYPEDPOINTER (VTYPENAME X) X)))
+)
+)
+(DEFINEQ
+
+(V\GETBASEBYTE
+(LAMBDA (PTR N) (*) (*) (COND ((EVENP N) (LRSH (PROGN (VGETBASE PTR (LRSH N 1))) 8)) (T (LOGAND (PROGN (VGETBASE PTR (LRSH N 1))) 255))))
+)
+
+(V\PUTBASEBYTE
+(LAMBDA (PTR DISP BYTE) (*) (*) (SETQ BYTE (PROG1 BYTE)) (VPUTBASE PTR (LRSH (SETQ DISP (\DTEST DISP (QUOTE SMALLP))) 1) (COND ((EVENP DISP 2) ((LAMBDA ($$1) (IPLUS (LLSH BYTE 8) (LOGAND $$1 255))) (VGETBASE PTR (LRSH DISP 1)))) (T ((LAMBDA ($$1) (IPLUS (LLSH (LRSH $$1 8) 8) BYTE)) (VGETBASE PTR (LRSH DISP 1)))))) BYTE)
+)
+)
+(DEFINEQ
+
+(VNTYPX
+(LAMBDA (X) (*) (*) (LOGAND (VGETBASE (VVAG2 24 0) (LRSH (IPLUS (LLSH (VHILOC X) 8) (LRSH (VLOLOC X) 8)) 1)) 2047))
+)
+
+(VTYPENAME
+(LAMBDA (X) (*) (*) (*) (LET ((N (VNTYPX X))) (COND ((EQ N 6) ((LAMBDA (X) (QUOTE ARRAYP)) X)) ((%%STRINGP X) (*) (QUOTE STRINGP)) ((EQ (QUOTE NEW-ATOM) (SETQ N (VATOM (VGETBASEPTR (VADDBASE (VVAG2 20 4096) (ITIMES N 18)) 0)))) (*) (QUOTE LITATOM)) (T N))))
+)
+
+(V\TYPENAMEFROMNUMBER
+(LAMBDA (N) (*) (COND ((ILESSP N (ADD1 VMaxTypeNumber)) (VATOM (VGETBASEPTR (VADDBASE (VVAG2 20 4096) (ITIMES N 18)) 0)))))
+)
+)
+(DEFINEQ
+
+(VUNCOPYATOM
+(LAMBDA (N) (*) (*) (PROG (ATOM.NAME VPACKAGE.NAME) (*) (SETQ ATOM.NAME (VSYMBOL.PNAME N)) (*) (SETQ VPACKAGE.NAME (IF (READSYS.HAS.PACKAGES) THEN (VPACKAGE.NAME (VSYMBOL.PACKAGE N)) ELSE "INTERLISP")) (RETURN (VMAKE.LOCAL.ATOM VPACKAGE.NAME ATOM.NAME))))
+)
+
+(VMAKE.LOCAL.ATOM
+(LAMBDA (PKG.NAME ATM.NAME) (*) (*) (CL:INTERN ATM.NAME (OR (CL:FIND-PACKAGE PKG.NAME) (CL:MAKE-PACKAGE PKG.NAME :USES NIL))))
+)
+
+(VSYMBOL.VALUE
+(LAMBDA (SYMBOL) (*) (*) (LET ((LOC (VOLD.FIND.SYMBOL SYMBOL 1 (NCHARS SYMBOL)))) (COND (NIL (*) (VGETBASEPTR (VADDBASE (VVAG2 12 LOC) LOC) 0)) (T (*) (VGETBASEPTR (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES (LOGAND LOC 65535) 10) 2)) 0)))))
+)
+
+(VSYMBOL.PNAME
+(LAMBDA (N BUFFER) (*) (*) (SETQ BUFFER (OR BUFFER (ALLOCSTRING \PNAMELIMIT))) (PROG (ADDR LEN) (*) (COND (NIL (SETQ ADDR (VGETBASEPTR (VADDBASE (VADDBASE (VVAG2 8 0) N) N) 0))) (T (SETQ ADDR (VGETBASEPTR (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES (LOGAND N 65535) 10) 0)) 0)))) (SETQ LEN (V\GETBASEBYTE ADDR 0)) (for I from 1 to LEN do (RPLSTRING BUFFER I (FCHARACTER (V\GETBASEBYTE ADDR I)))) (RETURN (SUBSTRING BUFFER 1 LEN))))
+)
+
+(VSYMBOL.PACKAGE
+(LAMBDA (N) (*) (*) (PROG ((INDEX (COND (NIL (*) (LRSH (VGETBASE (VADDBASE (VADDBASE (VVAG2 8 0) N) N) 0) 8)) (NIL (T (LRSH (VGETBASE (VADDBASE (VVAG2 44 0) (IPLUS (ITIMES 10 N) 0 8)) 0) 8))) (T (LRSH (VGETBASE (V\ATOMCELL N 8) 8) 8))))) (RETURN (COND ((EQ INDEX *UNINTERNED-PACKAGE-INDEX*) NIL) (T (VGETBASEPTR (VGETBASEPTR READSYS.PACKAGE.FROM.INDEX 0) (LLSH INDEX 1)))))))
+)
+
+(VOLD.FIND.SYMBOL
+(LAMBDA (BASE OFFST LEN FATP NONNUMERICP) (*) (PROG ((FATCHARSEENP (AND FATP (NOT (NULL (for I from OFFST to (SUB1 (IPLUS OFFST LEN)) suchthat (IGREATERP (VGETBASE BASE I) 255)))))) HASH HASHENT ATM# PNBASE FIRSTCHAR FIRSTBYTE REPROBE) (*) (COND ((EQ LEN 0) (*) (SETQ HASH 0) (SETQ FIRSTBYTE 255) (GO LP))) (SETQ FIRSTCHAR (NTHCHARCODE BASE OFFST)) (*) NIL (*) (SETQ FIRSTBYTE (LOGAND FIRSTCHAR 255)) (*) (PROGN (*) (SETQ HASH (LLSH FIRSTBYTE 8)) (for CHAR# from (ADD1 OFFST) to (SUB1 (IPLUS OFFST LEN)) do (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE BASE CHAR#))))) (*) LP (*) (COND ((NEQ 0 (SETQ HASHENT (VGETBASE (VVAG2 21 0) HASH))) (*) (COND ((STREQUAL (CL:SYMBOL-NAME BASE) (VSYMBOL.PNAME (SETQ ATM# (SUB1 HASHENT)))) (RETURN ATM#)) (T (*) (SETQ HASH (IPLUS16 HASH (OR REPROBE (SETQ REPROBE (LOGAND 63 (LOGOR 1 (LOGXOR FIRSTBYTE HASH))))))) (GO LP))))) (*) (RETURN (PROGN (LET ((NEWATOM (VNOSUCHATOM BASE OFFST LEN FATP FATCHARSEENP))) NIL NEWATOM)))))
+)
+
+(VLOOKUP-SYMBOL
+(LAMBDA (TABLE STRING SXHASH ENTRY-HASH) (*) (*) (LET* ((VEC (VGETBASEPTR TABLE 0)) (*) (HASH (VGETBASEPTR TABLE 2)) (*) (LEN (\GETBASEFIXP VEC 6)) (*) (H2 (ADD1 (IREMAINDER SXHASH (IDIFFERENCE LEN 2)))) (*)) (DECLARE (TYPE (CL:SIMPLE-ARRAY (CL:UNSIGNED-BYTE 8)) HASH) (TYPE (CL:SIMPLE-ARRAY (CL:UNSIGNED-BYTE 16)) VEC)) (PROG ((INDEX-VAR (IREMAINDER SXHASH LEN)) SYMBOL-NUMBER EHASH) (IF NIL THEN (CL:FORMAT T "Probe @ ~s~%%" INDEX-VAR)) LOOP (SETQ EHASH (V\GETBASEBYTE (VGETBASEPTR HASH 0) INDEX-VAR)) (*) (COND ((EQL EHASH ENTRY-HASH) (IF NIL THEN (CL:FORMAT T "Entry hash MATCHES~%%")) (LET ((SYMBOL-NAME (VSYMBOL.PNAME (SETQ SYMBOL-NUMBER (VGETBASE (VGETBASEPTR VEC 0) INDEX-VAR))))) (*) (IF NIL THEN (CL:FORMAT T "Got symbol index~%%")) (*) (COND ((STREQUAL SYMBOL-NAME STRING) (IF NIL THEN (CL:FORMAT T " found~%%")) (GO DOIT)) (T (IF NIL THEN (CL:FORMAT T "Didn't match~%%")))))) ((EQL 0 EHASH) (IF NIL THEN (CL:FORMAT T "Hit deleted entry (no match)~%%")) (SETQ INDEX-VAR NIL) (GO DOIT)) (T (IF NIL THEN (CL:FORMAT T "Entry hash does not match~%%")))) (SETQ INDEX-VAR (IREMAINDER (IPLUS INDEX-VAR H2) LEN)) (*) (IF NIL THEN (CL:FORMAT T "Reprobe @ ~s~%%" INDEX-VAR)) (GO LOOP) DOIT (RETURN SYMBOL-NUMBER))))
+)
+
+(VFIND.PACKAGE
+(LAMBDA (NAME) (*) (*) (PROG ((ITEM (MKSTRING NAME)) (HA READSYS.PACKAGE.FROM.NAME) BITS INDEX SLOT SKEY FIRSTINDEX REPROBE LIMIT ABASE VALUE) (SETQ BITS (STRINGHASHBITS ITEM)) (SETQ INDEX (LOGAND BITS (VGETBASE HA 1))) (*) (SETQ ABASE (VGETBASEPTR HA 2)) (SETQ FIRSTINDEX INDEX) (SETQ REPROBE (LOGOR (LOGAND (LOGXOR BITS (LRSH BITS 8)) (IMIN 63 (VGETBASE HA 1))) 1)) (*) (SETQ LIMIT (VGETBASE HA 1)) LP (SETQ SLOT ((LAMBDA (BASEA0200) (DECLARE (LOCALVARS BASEA0200)) (VADDBASE (VADDBASE BASEA0200 INDEX) INDEX)) (VADDBASE (VADDBASE ABASE INDEX) INDEX))) (*) (COND ((SETQ VALUE (VGETBASEPTR SLOT 2)) (*) (SETQ SKEY (V\UNCOPY (VGETBASEPTR SLOT 0))) (COND ((STREQUAL ITEM SKEY) (*) (GO FOUND)))) ((NULL (VGETBASEPTR SLOT 0)) (*) (RETURN NIL))) (SETQ INDEX (LOGAND (IPLUS16 INDEX REPROBE) LIMIT)) (*) (COND ((EQ INDEX FIRSTINDEX) (*) (SHOULDNT "Hashing in full hash table"))) (GO LP) FOUND (RETURN (AND (NEQ VALUE \HASH.NULL.VALUE) VALUE))))
+)
+
+(VFIND.SYMBOL
+(LAMBDA (STRING PACKAGE) (*) (*) (LET* ((LENGTH (FFETCH (STRINGP LENGTH) OF STRING)) (HASH (COND ((EQL 0 LENGTH) 0) (T (PROG* ((TERMINUS LENGTH) (HASH (LLSH (NTHCHARCODE STRING 1) 8)) (CHAR# 2)) A0355 (COND ((IGREATERP CHAR# TERMINUS) (RETURN (PROGN HASH)))) (PROGN) (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE STRING CHAR#))) (SETQ CHAR# (ADD1 CHAR#)) (GO A0355))))) (*) (EHASH (IPLUS (IREMAINDER (LOGXOR LENGTH HASH (RSH HASH 8) (RSH HASH 16) (RSH HASH 19)) 254) 2)) (*) (SYM) (WHERE) (DONE)) (COND ((NOT (VGETBASEPTR PACKAGE 14)) (*) (IF NIL THEN (PRINT "Checking INTERNAL symbols")) (LET ((INDEX (VLOOKUP-SYMBOL (VGETBASEPTR PACKAGE 16) STRING HASH EHASH))) (*) (COND (INDEX (SETQ SYM INDEX) (SETQ WHERE :INTERNAL) (SETQ DONE T)))))) (COND ((NOT DONE) (IF NIL THEN (PRINT "Checking EXTERNAL symbols")) (LET ((INDEX (VLOOKUP-SYMBOL (VGETBASEPTR PACKAGE 18) STRING HASH EHASH))) (*) (COND (INDEX (SETQ SYM INDEX) (SETQ WHERE :EXTERNAL) (SETQ DONE T)))))) (COND ((NOT DONE) (IF NIL THEN (CL:FORMAT T "Checking USE'd packages~%%")) (LET ((HEAD (VGETBASEPTR PACKAGE 2)) (*)) (PROG ((PREV HEAD) (TABLE (V\CDR.UFN HEAD))) USED-PACKAGE-LOOP (COND ((OR DONE (NULL TABLE)) (RETURN (PROGN (CL:VALUES NIL NIL))))) (PROGN (LET ((INDEX (VLOOKUP-SYMBOL (V\CAR.UFN TABLE) STRING HASH EHASH))) (*) (COND (INDEX (COND ((NEQ PREV HEAD) (LET* ((A0347 PREV) (A0346 (V\CDR.UFN A0347)) (A0349 TABLE) (A0348 (V\CDR.UFN A0349)) (A0351 HEAD) (A0350 (V\CDR.UFN A0351))) (V\CDR.UFN (RPLACD A0347 A0348)) (V\CDR.UFN (RPLACD A0349 A0350)) (V\CDR.UFN (RPLACD A0351 TABLE)) A0346))) (SETQ SYM INDEX) (SETQ WHERE :INHERITED) (SETQ DONE T)) (T)))) (PROGN (SETQ PREV (PROG1 TABLE (PROGN (SETQ TABLE (V\CDR.UFN TABLE)) NIL))) NIL) (GO USED-PACKAGE-LOOP))))) (CL:VALUES SYM WHERE)))
+)
+
+(VPACKAGE.NAME
+(LAMBDA (RMPKG) (*) (AND RMPKG (V\UNCOPY (VGETBASEPTR RMPKG 4)))))
+
+(V\MKATOM
+(LAMBDA (BASE OFFST LEN FATP NONNUMERICP) (*) (PROG ((FATCHARSEENP (AND FATP (NOT (NULL (for I from OFFST to (SUB1 (IPLUS OFFST LEN)) suchthat (IGREATERP (VGETBASE BASE I) 255)))))) HASH HASHENT ATM# PNBASE FIRSTCHAR FIRSTBYTE REPROBE) (*) (COND ((EQ LEN 0) (*) (SETQ HASH 0) (SETQ FIRSTBYTE 255) (GO LP))) (SETQ FIRSTCHAR (NTHCHARCODE BASE OFFST)) (*) NIL (*) (SETQ FIRSTBYTE (LOGAND FIRSTCHAR 255)) (*) (PROGN (*) (SETQ HASH (LLSH FIRSTBYTE 8)) (for CHAR# from (ADD1 OFFST) to (SUB1 (IPLUS OFFST LEN)) do (SETQ HASH (IPLUS16 (IPLUS16 (SETQ HASH (IPLUS16 HASH (LLSH (LOGAND HASH 4095) 2))) (LLSH (LOGAND HASH 255) 8)) (NTHCHARCODE BASE CHAR#))))) (*) LP (*) (COND ((NEQ 0 (SETQ HASHENT (VGETBASE (VVAG2 21 0) HASH))) (*) (COND ((EQ (VATOM (SETQ ATM# (SUB1 HASHENT))) BASE) (RETURN (VADDBASE (VVAG2 0 0) ATM#))) (T (*) (SETQ HASH (IPLUS16 HASH (OR REPROBE (SETQ REPROBE (LOGAND 63 (LOGOR 1 (LOGXOR FIRSTBYTE HASH))))))) (GO LP))))) (*) (RETURN (PROGN (LET ((NEWATOM (VNOSUCHATOM BASE OFFST LEN FATP FATCHARSEENP))) NIL NEWATOM)))))
+)
+
+(VGETTOPVAL
+(LAMBDA (X) (*) (VGETBASEPTR (V\ATOMCELL X 12) 0)))
+
+(VGETPROPLIST
+(LAMBDA (ATM) (*) (VGETBASEPTR (V\ATOMCELL ATM (CONSTANT 2)) 0)))
+
+(VSETTOPVAL
+(LAMBDA (ATM VAL) (*) (SELECTQ ATM (NIL (AND VAL (LISPERROR "ATTEMPT TO SET NIL OR T" VAL))) (T (OR (EQ VAL T) (LISPERROR "ATTEMPT TO SET NIL OR T" VAL))) (VPUTBASEPTR (V\ATOMCELL ATM 12) 0 (V\COPY VAL))))
+)
+
+(VGETDEFN
+(LAMBDA (A) (*) (VGETBASEPTR (V\ATOMCELL A 10) 0)))
+
+(V\ATOMCELL
+(LAMBDA (X N) (*) (LET ((ATOMNO (VATOMNUMBER X))) (COND (NIL (*) (EQ (VHILOC ATOMNO) 0) (*) (LET ((LOC (SELECTC N (10 (VATOMNUMBER ATOMNO)) (12 (VATOMNUMBER ATOMNO)) (2 (VATOMNUMBER ATOMNO)) (8 (\ATOMPNAMEINDEX ATOMNO)) (SHOULDNT)))) (VADDBASE (VVAG2 N LOC) LOC))) ((FIXP ATOMNO) (*) (LET ((LOC (SELECTC N (10 4) (12 2) (2 6) (8 0) (SHOULDNT)))) (VADDBASE (VVAG2 44 0) (IPLUS LOC (ITIMES 10 ATOMNO))))) (T (*) (LET ((OFFSET (SELECTC N (10 4) (12 2) (2 6) (8 0) (SHOULDNT)))) (VADDBASE ATOMNO OFFSET))))))
+)
+)
+(DEFINEQ
+
+(VLISTP
+(LAMBDA (X) (*) (*) (AND (EQ (VNTYPX X) 5) (COND ((EQ 1 0) T) (T (*) (NEQ (LOGAND (VLOLOC X) 255) 0))) X))
+)
+)
+
+(RPAQQ COPYATOMSTR NIL)
+(DEFINEQ
+
+(V\GET-COMPILED-CODE-BASE
+(LAMBDA (X) (*) (*) (PROG NIL (COND ((LITATOM X) (COND ((PROG1 (NEQ 0 (LRSH (VGETBASE (V\ATOMCELL X 10) 0) 15)) (SETQ X (VGETBASEPTR (V\ATOMCELL X 10) 0))) (RETURN X))))) (RETURN (AND (EQ (VNTYPX X) 13) (VGETBASEPTR (\DTEST X (QUOTE COMPILED-CLOSURE)) 0)))))
+)
+)
+
+
+
+(* ;; 
+"YOU MUST REMAKE THIS FILE using (DORENAME 'R) (after CONNing to library) whenever the SYSOUT layout changes in LLPARAMS (e.g., if MDSTypeTable moves)"
+)
+
+
+(FILESLOAD VMEM)
+
+(RPAQQ RDVALS ((\RPTSIZE) (\MaxTypeNumber) (\AtomFrLst) (\ArrayFrLst) (\ArrayFrLst2)))
+
+(RPAQQ RDPTRS ((\REALPAGETABLE) (\FREEBLOCKBUCKETS)))
+(DECLARE%: EVAL@COMPILE DONTCOPY 
+
+(FILESLOAD (LOADCOMP) VMEM)
+)
+STOP
diff --git a/library/RDSYS.LCOM b/library/RDSYS.LCOM
index c397f880..ae5e540d 100644
Binary files a/library/RDSYS.LCOM and b/library/RDSYS.LCOM differ
diff --git a/library/exports.all b/library/exports.all
index ef450190..653f1ce9 100644
--- a/library/exports.all
+++ b/library/exports.all
@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
 (LISPXPRIN1 "EXPORTS GATHERED FROM {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources> ON 
-26-Apr-2021 23:01:58"  T)
+29-Apr-2021 09:49:02"  T)
 (LISPXTERPRI T)
 (RPAQQ MODARITHMACROS (CEIL FLOOR FOLDHI FOLDLO MODUP UNFOLD MOD))
 (PUTPROPS CEIL MACRO ((X N) (FLOOR (IPLUS X (CONSTANT (SUB1 N))) N)))
@@ -53,7 +53,7 @@ MAX.FIXP))))
 LOGOR (LSH 1 (SUB1 SMALLP.LENGTH)) (SUB1 (LSH 1 (SUB1 SMALLP.LENGTH))))) (MIN.SMALLP (IDIFFERENCE -1 
 MAX.SMALLP)) (BITS.PER.FIXP BITSPERCELL) (FIXP.LENGTH (SUB1 BITS.PER.FIXP)) (MAX.FIXP (LOGOR (LSH 1 (
 SUB1 FIXP.LENGTH)) (SUB1 (LSH 1 (SUB1 FIXP.LENGTH))))) (MIN.FIXP (IDIFFERENCE -1 MAX.FIXP)))
-(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:46:21"))
+(PUTPROP (QUOTE MODARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ WINDFLG T)
 (CONSTANTS (WINDFLG T))
@@ -597,7 +597,7 @@ EmulatorSpace of \InterfacePage) %, ADDR))))) (EVAL (CAR ARGS)))))
 \D0BCPLspace (CAR X))))))
 (PUTPROPS EMADDRESSP MACRO (X (LIST (QUOTE EQ) (LIST (QUOTE \HILOC) (CAR X)) (COND ((EQ \D1BCPLspace 
 \D0BCPLspace) \D0BCPLspace) (T (QUOTE (fetch (IFPAGE EmulatorSpace) of \InterfacePage)))))))
-(PUTPROP (QUOTE LLPARAMS) (QUOTE IMPORTDATE) (IDATE " 7-Feb-2021 11:52:02"))
+(PUTPROP (QUOTE LLPARAMS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DATATYPE COMPILED-CLOSURE (FNHEADER ENVIRONMENT))
 (RPAQQ \COMPILED-CLOSURE 13)
@@ -716,7 +716,7 @@ DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY S
 (RPAQQ \NT.PVARCODE 2)
 (RPAQQ \NT.FVARCODE 3)
 (CONSTANTS \NT.IVARCODE \NT.PVARCODE \NT.FVARCODE)
-(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "19-Jan-1993 10:45:33"))
+(PUTPROP (QUOTE LLCODE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ \ERRORMESSAGELIST ("SYSTEM ERROR" " " "STACK OVERFLOW" "ILLEGAL RETURN" "ARG NOT LIST" 
 "HARD DISK ERROR" "ATTEMPT TO SET NIL OR T" "ATTEMPT TO RPLAC NIL" "UNDEFINED OR ILLEGAL GO" 
@@ -733,7 +733,7 @@ DATUM) (fetch (CODEARRAY OVERHEADWORDS) of T))) (FIXED NIL (replace (CODEARRAY S
 (DEFOPTIMIZER LISPERROR (MESSAGE ARG) (BQUOTE (\LISPERROR (\, ARG) (\, (CL:IF (CL:STRINGP MESSAGE) (
 FOR X IN \ERRORMESSAGELIST AS I FROM 0 WHEN (CL:EQUAL X MESSAGE) DO (RETURN I) FINALLY (RETURN (HELP 
 "Unknown error message" (LIST MESSAGE ARG)))) MESSAGE)))))
-(PUTPROP (QUOTE AERROR) (QUOTE IMPORTDATE) (IDATE "16-May-1990 11:58:35"))
+(PUTPROP (QUOTE AERROR) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RECORD BASEBYTESTREAM STREAM (SUBRECORD STREAM) (ACCESSFNS ((BIASOFFST (fetch (STREAM FW6) of DATUM) 
 (replace (STREAM FW6) of DATUM with NEWVALUE)) (BBSNCHARS (fetch (STREAM FW7) of DATUM) (replace (
@@ -743,7 +743,7 @@ STREAM FW7) of DATUM with NEWVALUE)) (WRITEXTENSIONFN (fetch (STREAM F1) of DATU
 (PUTPROPS \OUTSTREAMARG MACRO ((STRM NOERRORFLG) (\GETSTREAM STRM (QUOTE OUTPUT) NOERRORFLG)))
 (PUTPROPS \STREAMARG MACRO (OPENLAMBDA (STRM NOERRORFLG) (COND (NOERRORFLG (\GETSTREAM STRM NIL T)) (T
  (\DTEST STRM (QUOTE STREAM))))))
-(PUTPROP (QUOTE AOFD) (QUOTE IMPORTDATE) (IDATE "13-Sep-1990 16:39:58"))
+(PUTPROP (QUOTE AOFD) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS .SPACECHECK. MACRO ((STRM N) (AND \THISFILELINELENGTH (IGREATERP (IPLUS N (fetch 
 CHARPOSITION of STRM)) \THISFILELINELENGTH) (FRESHLINE STRM))))
@@ -763,7 +763,7 @@ OUTSTREAM)) (\BOUT OUTSTREAM (\CHARSET CHARCODE)) (\BOUT OUTSTREAM (\CHAR8CODE C
  (\BOUT OUTSTREAM NSCHARSETSHIFT) (\BOUT OUTSTREAM (freplace (STREAM CHARSET) of OUTSTREAM with (
 \CHARSET CHARCODE))) (\BOUT OUTSTREAM (\CHAR8CODE CHARCODE)))) (freplace CHARPOSITION of OUTSTREAM 
 with (PROGN (* ; "Ugh.  Don't overflow") (IPLUS16 (ffetch CHARPOSITION of OUTSTREAM) 1)))))))
-(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE "17-Jan-2020 05:51:20"))
+(PUTPROP (QUOTE APRINT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (GLOBALVARS \BCPLDISPLAY)
 (ACCESSFNS LINEBUFFER ((LPARCOUNT (fetch FW6 of DATUM) (replace FW6 of DATUM with NEWVALUE)) (
@@ -783,7 +783,7 @@ PEEKEDECHOFLG FLAG) (INSTRINGP FLAG)))))
 (PUTPROPS \INTERMP MACRO ((OFD) (EQ OFD \LINEBUF.OFD)))
 (PUTPROPS \OUTTERMP MACRO ((OFD) (EQ OFD \TERM.OFD)))
 (GLOBALVARS \DEFAULTLINEBUF)
-(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "16-May-1990 12:08:04"))
+(PUTPROP (QUOTE ATERM) (QUOTE IMPORTDATE) (IDATE "29-Apr-2021 09:38:58"))
 
 (DATATYPE HARRAYP ((NULLSLOTS WORD) (* ; "Number of NIL-NIL slots, which break chains") (LASTINDEX 
 WORD) (* ; 
@@ -925,7 +925,7 @@ UNINTERRUPTABLY (replace DTDOLDCNT of DATUM with NEWVALUE) (replace DTDCNT0 of D
 (CONSTANTS \GUARDSTORAGEFULL \GUARD1STORAGEFULL)
 (GLOBALVARS \NxtMDSPage \LeastMDSPage \SecondArrayPage \SecondMDSPage \MDSFREELISTPAGE \MaxSysTypeNum 
 \MaxTypeNumber \STORAGEFULL \INTERRUPTSTATE \PENDINGINTERRUPT)
-(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "28-Jun-1999 16:57:50"))
+(PUTPROP (QUOTE LLDATATYPE) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (ACCESSFNS POINTER ((PAGE# (IPLUS (LLSH (\HILOC DATUM) 8) (LRSH (\LOLOC DATUM) 8))) (WORDINPAGE (
 LOGAND (\LOLOC DATUM) 255)) (CELLINPAGE (LRSH (fetch WORDINPAGE of DATUM) 1)) (BYTEINPAGE (LLSH (fetch
@@ -961,7 +961,7 @@ FIXP) (* ; "Empty cells, space for another 2 CONS cells if we can figure out how
 (CONSTANTS \CDR.ONPAGE \CDR.NIL \CDR.INDIRECT \CDR.MAXINDIRECT \CONSPAGE.LAST)
 (PUTPROPS LOCAL MACRO ((X) X))
 (PUTPROPS ALLOCAL MACRO ((X) X))
-(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE " 2-Feb-1995 16:21:44"))
+(PUTPROP (QUOTE LLNEW) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS CHECK MACRO (ARGS (COND ((AND (BOUNDP (QUOTE CHECK)) CHECK) (CONS (QUOTE PROGN) (for I in 
 ARGS collect (LIST (QUOTE OR) I (LIST (QUOTE RAID) (KWOTE (LIST (QUOTE Check-failure%:) I))))))) (T (
@@ -1198,7 +1198,7 @@ CODE)) (T (\PUTBASETHIN BASE OFFSET CODE)))))
 NSCHARSETSHIFT 255) (%#STRINGPWORDS 4))
 (PUTPROPS \NATOMCHARS DMACRO ((AT) (fetch (LITATOM PNAMELENGTH) of AT)))
 (PUTPROPS \NSTRINGCHARS DMACRO ((S) (fetch (STRINGP LENGTH) of S)))
-(PUTPROP (QUOTE LLCHAR) (QUOTE IMPORTDATE) (IDATE "11-Nov-2018 13:08:04"))
+(PUTPROP (QUOTE LLCHAR) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (ACCESSFNS BF ((BFBLOCK (ADDSTACKBASE DATUM))) (* ; "basic frame pointer") (BLOCKRECORD BFBLOCK ((
 FLAGS BITS 3) (NIL BITS 3) (RESIDUAL FLAG) (* ; "true if this is not a full BF") (PADDING BITS 1) (
@@ -1310,7 +1310,7 @@ BINDNEGVALUES of DATUM) 65535))))))
 (RPAQQ \NT.PVAR 128)
 (RPAQQ \NT.FVAR 192)
 (CONSTANTS \NT.IVAR \NT.PVAR \NT.FVAR)
-(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE " 6-Jan-1993 18:07:37"))
+(PUTPROP (QUOTE LLSTK) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS WORDCONTENTS BYTEMACRO ((PTR) (\GETBASE PTR 0)))
 (PUTPROPS SETWORDCONTENTS BYTEMACRO ((PTR N) (\PUTBASE PTR 0 N)))
@@ -1318,7 +1318,7 @@ BINDNEGVALUES of DATUM) 65535))))))
 (PUTPROPS \RELEASECPAGE MACRO ((STREAM) (PROGN (* ; "Must be under an UNINTERRUPTABLY !") (COND ((
 fetch CBUFDIRTY of STREAM) (\SETIODIRTY STREAM (fetch CPAGE of STREAM)) (replace CBUFDIRTY of STREAM 
 with NIL))) (replace CBUFSIZE of STREAM with 0) (replace CBUFPTR of STREAM with NIL))))
-(PUTPROP (QUOTE PMAP) (QUOTE IMPORTDATE) (IDATE " 3-Feb-2002 14:11:02"))
+(PUTPROP (QUOTE PMAP) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS ADDREF MACRO (OPENLAMBDA (PTR) (PROG1 PTR (\ADDREF PTR))))
 (PUTPROPS \ADDREF DMACRO ((X) ((OPCODES GCREF 0) X)))
@@ -1347,7 +1347,7 @@ CONTENTS (\GETBASEFIXP DATUM 0) (\PUTBASEFIXP DATUM 0 NEWVALUE)) (LINKPTR (LOGAN
 ) (FREEPTR FIXP) (* ; "The GC table entry") (NEXTFREE FIXP) (* ; 
 "If the entry is in use, points to the next entry in this collision chain.  If not, offset (in 1/2-entries) of the next free one on the chain."
 )))
-(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE "19-Oct-1994 12:30:11"))
+(PUTPROP (QUOTE LLGC) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS \SYNCODE DMACRO (OPENLAMBDA (TABLE CHAR) (CHECK (type? CHARTABLE TABLE)) (* ; 
 "0 is either NONE.TC, REAL.CCE, or OTHER.RC") (COND ((IGREATERP CHAR \MAXTHINCHAR) (OR (AND (fetch (
@@ -1457,7 +1457,7 @@ FLAG) (DISPATCHMACRODEFS POINTER) (* ;
 "The character code used in this read table for multiple escape") (PACKAGECHAR BYTE) (* ; 
 "The character code used in this read table for package delimiter") (READTBLNAME POINTER) (* ; 
 "The canonical 'name' of this read table")) READSA _ (create CHARTABLE))
-(PUTPROP (QUOTE ATBL) (QUOTE IMPORTDATE) (IDATE "12-Feb-2021 22:55:58"))
+(PUTPROP (QUOTE ATBL) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DATATYPE STREAM ((* ;; 
 "First 8 words are fixed for BIN, BOUT opcodes.  Used to require length of whole datatype be multiple of 4, but Dolphin dead now."
@@ -1685,7 +1685,7 @@ BYTESPERPAGE))))
 (ACCESSFNS BYTEPTR ((PAGE (FOLDLO DATUM BYTESPERPAGE)) (OFFSET (MOD DATUM BYTESPERPAGE))) (TYPE? (AND 
 (FIXP DATUM) (IGEQ DATUM 0) (ILEQ DATUM \MAXFILEPTR))) (CREATE (IPLUS (UNFOLD PAGE BYTESPERPAGE) 
 OFFSET)))
-(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE "26-Apr-2021 22:59:15"))
+(PUTPROP (QUOTE FILEIO) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (BLOCKRECORD FIXP ((HINUM WORD) (LONUM WORD)) (CREATE (CREATECELL \FIXP)) (TYPE? (EQ (NTYPX DATUM) 
 \FIXP)))
@@ -1717,7 +1717,7 @@ ADD1 (IDIFFERENCE MAX.SMALL.INTEGER HY)))) (T (IPLUS HX HY)))) (* Add high parts
 MAX.SMALL.INTEGER) 0) (T (ADD1 HX)))) (IDIFFERENCE LX (ADD1 (IDIFFERENCE MAX.SMALL.INTEGER LY)))) (T (
 IPLUS LX LY)))) (\PUTBASE X 0 HX) (RETURN X))))
 (PUTPROPS PutUnboxed DMACRO (= . \PUTFIXP))
-(PUTPROP (QUOTE LLARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 18:47:56"))
+(PUTPROP (QUOTE LLARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS POLYEVAL DMACRO ((X COEFFS DEGREE) (* ; 
 "execute the POLYEVAL opcode on the value X, the array COEFFS with degree DEGREE") (\FLOATBOX ((
@@ -1739,7 +1739,7 @@ FLOATING FLOATP) (CADR VAR)) (HELP))) (\, (CAR VAR))))))) (SETQ NEXT (fetch (FX
 IDIFFERENCE NEXT WORDSPERCELL)))))) (COND ((LISTP X) (BQUOTE (SETQ (\, (CAR X)) (\FLOATBOX (\, FORMS))
 ))) (T (BQUOTE (SETQ (\, X) (\, FORMS)))))))) (\MAKEFREEBLOCK NEXT (TIMES (\, (LENGTH ARGS)) 
 WORDSPERCELL)) (replace (FX NEXTBLOCK) of AL with NEXT) (PROGN (\,@ FORMS))))))))
-(PUTPROP (QUOTE LLFLOAT) (QUOTE IMPORTDATE) (IDATE "16-May-1990 19:26:51"))
+(PUTPROP (QUOTE LLFLOAT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DEFOPTIMIZER FONTPROP (&REST ARGS) (SELECTQ (AND (EQ (CAADR ARGS) (QUOTE QUOTE)) (CADADR ARGS)) (
 ASCENT (LIST (QUOTE FONTASCENT) (CAR ARGS))) (DESCENT (LIST (QUOTE FONTDESCENT) (CAR ARGS))) (HEIGHT (
@@ -1803,7 +1803,7 @@ SIGNED-BYTE 16)) :INITIAL-ELEMENT 0)))
 )
 (RPAQQ \MAXNSCHAR 65535)
 (CONSTANTS (\MAXNSCHAR 65535))
-(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE " 9-Feb-2021 11:39:44"))
+(PUTPROP (QUOTE FONT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (BLOCKRECORD KEYACTION ((* ;; 
 "KEYACTION Table:  For interpreting keystrokes.  Stored as a 8-cell block of untyped pointer hunk storage."
@@ -1850,7 +1850,7 @@ replace (IOPAGE NEWMOUSEY) of \IOPAGE with YPOS) (replace (IOPAGE NEWMOUSESTATE)
 \EM.KBDAD1 \EM.KBDAD2 \EM.KBDAD3 \EM.KBDAD4 \EM.KBDAD5 \EM.DISPINTERRUPT \EM.DISPLAYHEAD 
 \EM.CURSORBITMAP \MACHINETYPE \DEFAULTKEYACTION \COMMANDKEYACTION \CURRENTKEYACTION 
 \PERIODIC.INTERRUPT \PERIODIC.INTERRUPT.FREQUENCY)
-(PUTPROP (QUOTE LLKEY) (QUOTE IMPORTDATE) (IDATE "13-Feb-2021 23:24:49"))
+(PUTPROP (QUOTE LLKEY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DATATYPE PILOTBBT ((PBTDESTLO WORD) (PBTDESTHI WORD) (PBTDESTBIT WORD) (PBTDESTBPL SIGNEDWORD) (
 PBTSOURCELO WORD) (PBTSOURCEHI WORD) (PBTSOURCEBIT WORD) (PBTSOURCEBPL SIGNEDWORD) (PBTWIDTH WORD) (
@@ -1946,7 +1946,7 @@ fetch (\DISPLAYDATA DDXOFFSET) of DD)))
 (PUTPROPS DISPLAYSTARTEDP MACRO (NIL \DisplayStarted))
 (GLOBALVARS \DisplayStarted \DisplayStreamsInitialized \DisplayInitialed WHOLEDISPLAY WHOLESCREEN 
 SCREENWIDTH SCREENHEIGHT)
-(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "18-Apr-1994 00:20:42"))
+(PUTPROP (QUOTE LLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RECORD REGION (LEFT BOTTOM WIDTH HEIGHT) LEFT _ -16383 BOTTOM _ -16383 WIDTH _ 32767 HEIGHT _ 32767 (
 ACCESSFNS ((TOP (IPLUS (fetch (REGION BOTTOM) of DATUM) (fetch (REGION HEIGHT) of DATUM) -1)) (PTOP (
@@ -1991,7 +1991,7 @@ PRINTCURSOR))))))))
 (ADDTOVAR GLOBALVARS GRAYSHADE)
 (RECORD HLS (HUE LIGHTNESS SATURATION))
 (RECORD RGB (RED GREEN BLUE))
-(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "15-Sep-1994 17:07:04"))
+(PUTPROP (QUOTE ADISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (ADDTOVAR SYSSPECVARS \INTERRUPTABLE)
 (PUTPROPS UNINTERRUPTABLY INFO EVAL)
@@ -2016,7 +2016,7 @@ PENDING BITS 8) (* ; "Pending-interrupt flags") (IN-PROGRESS BITS 8) (* ;
 (PUTPROPS \TAKEINTERRUPT DMACRO ((PREFORM POSTFORM) (DECLARE (GLOBALVARS \PENDINGINTERRUPT)) (COND ((
 AND \PENDINGINTERRUPT (INTERRUPTABLE~=NILUPTHESTACK)) PREFORM ((LAMBDA (\INTERRUPTABLE) (
 \CALLINTERRUPTED)) T) POSTFORM))))
-(PUTPROP (QUOTE AINTERRUPT) (QUOTE IMPORTDATE) (IDATE "17-Sep-1992 10:42:38"))
+(PUTPROP (QUOTE AINTERRUPT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS UNLESSRDSYS MACRO ((NORMAL RDSYS) NORMAL))
 (PUTPROPS UNLESSINEW MACRO ((NORMAL I-NEW) NORMAL))
@@ -2056,7 +2056,7 @@ ARGS)))))
 (PUTPROPS WITHIN MACRO ((A B C) (AND (IGEQ A B) (ILESSP A (IPLUS B C)))))
 (ADDTOVAR GLOBALVARS LASTMOUSEX LASTMOUSEY LASTMOUSEBUTTONS)
 (PUTPROPS IABS MACRO (OPENLAMBDA (A) (COND ((IGEQ A 0) A) (T (IMINUS A)))))
-(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE "15-Mar-1994 10:48:02"))
+(PUTPROP (QUOTE HLDISPLAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS .COPYKEYDOWNP. MACRO (NIL (OR (KEYDOWNP (QUOTE LSHIFT)) (KEYDOWNP (QUOTE RSHIFT)) (KEYDOWNP 
 (QUOTE COPY)))))
@@ -2129,7 +2129,7 @@ SCDESTINATION) of DATUM) (fetch (BITMAP BITMAPBITSPERPIXEL) of (fetch (SCREEN SC
 )) (T 1))) (SCREGION (create REGION LEFT _ 0 BOTTOM _ 0 WIDTH _ (fetch (SCREEN SCWIDTH) of DATUM) 
 HEIGHT _ (fetch (SCREEN SCHEIGHT) of DATUM))))) (SYSTEM))
 (GLOBALVARS WINDOWUSERFORMS ENDOFWINDOWUSERFORMS PROMPTWINDOW)
-(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE " 9-Apr-2000 17:36:29"))
+(PUTPROP (QUOTE WINDOW) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS NNLITATOM MACRO (OPENLAMBDA (X) (AND X (LITATOM X))))
 (PUTPROPS \NULL.OR.FIXP MACRO (OPENLAMBDA (X) (OR (NULL X) (FIXP X))))
@@ -2144,7 +2144,7 @@ VAR MSG)))))))))
 (PUTPROPS \MACRO.EVAL DMACRO (Z (PROG ((X (EXPANDMACRO (CAR Z) T))) (if (EQ X (CAR Z)) then (ERROR 
 "No macro property -- \MACRO.EVAL" X) else (RETURN (EVAL X))))))
 (DEFOPTIMIZER \MACRO.MX (FORM) FORM)
-(PUTPROP (QUOTE MACROAUX) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:26:31"))
+(PUTPROP (QUOTE MACROAUX) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ MASK0WORD1'S 32767)
 (RPAQQ MASK1WORD0'S 32768)
@@ -2212,11 +2212,11 @@ LOCALVARS \ByteNo \BitMask \Byte)) (SETQ \Byte (\GETBASEBYTE BASE \ByteNo)) (if
 \BitMask \Byte)) then (NOT (EQ 0 VAL)) else (EQ 0 VAL)) then (\PUTBASEBYTE BASE \ByteNo (LOGXOR 
 \BitMask \Byte))) VAL) (FOLDLO OFFST BITSPERBYTE) (MASK.1'S (IDIFFERENCE (CONSTANT (SUB1 BITSPERBYTE))
  (IMOD OFFST BITSPERBYTE)) 1))))
-(PUTPROP (QUOTE ADDARITH) (QUOTE IMPORTDATE) (IDATE "16-May-1990 11:46:37"))
+(PUTPROP (QUOTE ADDARITH) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ \MAXFILEPAGE 65534)
 (CONSTANTS \MAXFILEPAGE)
-(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "21-Mar-2021 21:33:01"))
+(PUTPROP (QUOTE LLFAULT) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS \UPDATETIMERS MACRO (NIL (* * Moves excess time from the processor clock to our software 
 clocks. Needs to be run often, uninterruptably, preferably from the vertical retrace interrupt) (* Get
@@ -2244,7 +2244,7 @@ of \MISCSTATS)) 1000) (* Increment clocks by 1 second) (\BOXIPLUS (LOCF (fetch S
 62500))
 (PUTPROPS ALTO.TO.LISP.DATE MACRO ((DATE) (LOGXOR DATE -2147483648)))
 (PUTPROPS LISP.TO.ALTO.DATE MACRO ((DATE) (LOGXOR DATE -2147483648)))
-(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE "16-May-1990 20:13:11"))
+(PUTPROP (QUOTE LLTIMER) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RECORD BRUSH (BRUSHSHAPE BRUSHSIZE BRUSHCOLOR) BRUSHSHAPE _ (QUOTE ROUND) BRUSHSIZE _ 1)
 (PUTPROPS IMAGEOP MACRO (ARGS (CONS (QUOTE SPREADAPPLY*) (CONS (COND ((EQ (CAR (LISTP (CAR ARGS))) (
@@ -2279,7 +2279,7 @@ _ (FUNCTION NILL) IMTRANSLATE _ (FUNCTION NILL) IMPUSHSTATE _ (FUNCTION NILL) IM
 NILL) IMSCALE2 _ (FUNCTION NILL) IMDEFAULTSTATE _ (FUNCTION NILL) IMBLTCHAR _ (FUNCTION \MEDW.BLTCHAR)
  IMXOFFSET _ (FUNCTION \MEDW.XOFFSET) IMYOFFSET _ (FUNCTION \MEDW.YOFFSET))
 (GLOBALVARS \NOIMAGEOPS)
-(PUTPROP (QUOTE IMAGEIO) (QUOTE IMPORTDATE) (IDATE "28-Jun-1999 16:33:59"))
+(PUTPROP (QUOTE IMAGEIO) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (DATATYPE PROCESS ((PROCFX0 WORD) (* ; "= \STACKHI to make this look like a STACKP") (PROCFX WORD) (* 
 ; "Stack pointer to this context when it is asleep") (PROCSTATUS BYTE) (* ; "Running or waiting") (
@@ -2319,7 +2319,7 @@ CREATECELL \FIXP) PROCFX0 _ \STACKHI)
 (PUTPROPS TTY.PROCESSP MACRO (X (COND ((CAR X) (QUOTE IGNOREMACRO)) (T (QUOTE (OR (NULL (THIS.PROCESS)
 ) (EQ (THIS.PROCESS) (TTY.PROCESS))))))))
 (GLOBALVARS \RUNNING.PROCESS \TTY.PROCESS \PROC.RESTARTME \PROC.RESETME \PROC.ABORTME)
-(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE "17-Jun-1999 21:58:52"))
+(PUTPROP (QUOTE PROC) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS \BACKCHAR MACRO (OPENLAMBDA (STREAM) (* ; "Backs up over an NS character") (\BACKNSCHAR 
 STREAM (UNFOLD (ACCESS-CHARSET STREAM) 256))))
@@ -2467,17 +2467,17 @@ IPLUS CH1 64)))))
 (PUTPROPS \EUC.KANJI.FIRST.BYTEP MACRO ((CHAR) (< 160 CHAR 255)))
 (PUTPROPS \GAIJIP MACRO ((CHAR) (EQ CHAR 143)))
 (PUTPROPS \EUC.HANKAKUP MACRO ((CHAR) (EQ CHAR 142)))
-(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "19-Apr-2021 21:52:10"))
+(PUTPROP (QUOTE LLREAD) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (PUTPROPS EMPASSWORDLOC DMACRO (LAMBDA NIL (* lmm "24-MAR-83 06:46") (fetch (IFPAGE UserPswdAddr) of 
 \InterfacePage)))
 (PUTPROPS \DECRYPT.PWD.CHAR MACRO ((CHAR) (LOGXOR CHAR 73)))
-(PUTPROP (QUOTE PASSWORDS) (QUOTE IMPORTDATE) (IDATE "16-May-1990 21:02:21"))
+(PUTPROP (QUOTE PASSWORDS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ MICASPERINCH 2540)
 (RPAQQ MICASPERMILLIMETER 100)
 (CONSTANTS (MICASPERINCH 2540) (MICASPERMILLIMETER 100))
-(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "16-Apr-2018 21:56:38"))
+(PUTPROP (QUOTE INTERPRESS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQ MICASPERPT (FQUOTIENT 2540 72))
 (RPAQQ IHALFMICASPERPT 17)
@@ -2485,10 +2485,10 @@ IPLUS CH1 64)))))
 (CONSTANTS (MICASPERPT (FQUOTIENT 2540 72)) (IHALFMICASPERPT 17) (IMICASPERPT 35))
 (DEFMACRO \MICASTOPTS (MICAS) (COND ((NUMBERP MICAS) (QUOTIENT MICAS MICASPERPT)) (T (BQUOTE (QUOTIENT
  (\, MICAS) MICASPERPT)))))
-(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE "16-Apr-2018 22:15:08"))
+(PUTPROP (QUOTE HARDCOPY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (FILESLOAD (SYSLOAD FROM VALUEOF DIRECTORIES) CMLARRAY-SUPPORT)
-(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE " 6-Jan-1993 12:21:21"))
+(PUTPROP (QUOTE CMLARRAY) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 (RPAQQ \MISCN-TABLE-LIST ((USER-SUBR 0 \USER-SUBR-UFN T) (CL:VALUES 1 CL::VALUES-UFN NIL) (CL:SXHASH 2
  CL::SXHASH-UFN NIL) (CL::EQLHASHBITSFN 3 CL::EQLHASHBITSFN-UFN NIL) (STRINGHASHBITS 4 
@@ -2522,7 +2522,7 @@ DLD-GET-SYMBOL 171) (DLD-GET-FUNC 172) (DLD-FUNCTION-EXECUTABLE-P 173) (DLD-LIST
 ) (C-MALLOC 175) (C-FREE 176) (C-PUTBASEBYTE 177) (C-GETBASEBYTE 178) (CHAR-OPENFILE 200) (CHAR-BIN 
 201) (CHAR-BOUT 202) (CHAR-IOCTL 203) (CHAR-CLOSEFILE 204) (CHAR-EOFP 205) (CHAR-READP 206) (CHAR-BINS
  207) (CHAR-BOUTS 208) (CHAR-FILLBUFFER 209)))
-(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE "17-Mar-2021 11:10:55"))
+(PUTPROP (QUOTE LLSUBRS) (QUOTE IMPORTDATE) (IDATE "27-Apr-2021 20:06:09"))
 
 STOP
 
diff --git a/loadups/full.dribble b/loadups/full.dribble
index caf45047..3c8930cd 100644
--- a/loadups/full.dribble
+++ b/loadups/full.dribble
@@ -1,5 +1,5 @@
 
-Full loadup started at 26-Apr-2021 23:01:47 while connected to 
+Full loadup started at 29-Apr-2021 09:48:51 while connected to 
 {DSK}<Users>kaplan>Local>medley3.5>git-medley>
 
 loading POSTSCRIPTSTREAM
diff --git a/loadups/full.sysout b/loadups/full.sysout
index 3e0e2769..be1ed1a8 100644
Binary files a/loadups/full.sysout and b/loadups/full.sysout differ
diff --git a/loadups/lisp.dribble b/loadups/lisp.dribble
index aace9b89..52e02fc9 100644
--- a/loadups/lisp.dribble
+++ b/loadups/lisp.dribble
@@ -584,7 +584,7 @@ File created 16-May-90 11:46:37
 loading CMLPATHNAME
 loading HPRINT
 
-{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.LCOM;2
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.LCOM;3
 compiled on 26-Apr-2021 14:46:05
 File created 26-Apr-2021 14:45:00
 loading AARITH
diff --git a/loadups/lisp.sysout b/loadups/lisp.sysout
index 54d5e56c..40d3f5a2 100644
Binary files a/loadups/lisp.sysout and b/loadups/lisp.sysout differ
diff --git a/loadups/makeinit.dribble b/loadups/makeinit.dribble
new file mode 100644
index 00000000..8841f62e
--- /dev/null
+++ b/loadups/makeinit.dribble
@@ -0,0 +1 @@
+={DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;1

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;1
File created  7-Feb-2021 20:03:00
FILESETSCOMS

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPARAMS.;1
File created  7-Feb-2021 11:52:02
LLPARAMSCOMS

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCODE.;1
File created 19-Jan-93 10:45:33
LLCODECOMS
(INEWCOMS reset)
(DONTCOMPILEFNS reset)
(INEWCOMS reset)
(MKI.SUBFNS reset)
(NLAMA reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLARRAYELT.;1
File created 15-Sep-94 11:08:59
LLARRAYELTCOMS

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEMACROS.;2
File created 27-Apr-94 15:43:27
RENAMEMACROSCOMS
(RD.SUBFNS reset)
(MKI.SUBFNS reset)
(EXPANDMACROFNS reset)
(EXPANDMACROFNS reset)
(INEWCOMS reset)
(MKI.SUBFNS reset)
(EXPANDMACROFNS reset)
(RDCOMS reset)
(RD.SUBFNS reset)
(DONTCOMPILEFNS reset)
(DONTCOMPILEFNS reset)
(DONTCOMPILEFNS reset)
(LAMA reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCHAR.;2
File created 11-Nov-2018 13:08:04
LLCHARCOMS
(INEWCOMS reset)
(INEWCOMS reset)
(EXPANDMACROFNS reset)
(DONTCOMPILEFNS reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNEW.;15
File created  2-Feb-95 16:21:44
LLNEWCOMS
(INEWCOMS reset)
(RDCOMS reset)
(INITPTRS reset)
(MKI.SUBFNS reset)
(RD.SUBFNS reset)
(DONTCOMPILEFNS reset)
(INEWCOMS reset)
(EXPANDMACROFNS reset)
(MKI.SUBFNS reset)
(RD.SUBFNS reset)
(INEWCOMS reset)
(DONTCOMPILEFNS reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBASIC.;1
File created 31-Jan-98 09:55:50
LLBASICCOMS
(DONTCOMPILEFNS reset)
(INITVALUES reset)
(INITPTRS reset)
(INEWCOMS reset)
(EXPANDMACROFNS reset)
(MKI.SUBFNS reset)
(RD.SUBFNS reset)
(RDCOMS reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDATATYPE.;12
File created 28-Jun-99 16:57:50
LLDATATYPECOMS
(INITVALUES reset)
(INITPTRS reset)
(INEWCOMS reset)
(RDCOMS reset)
(RD.SUBFNS reset)
(EXPANDMACROFNS reset)
(MKI.SUBFNS reset)
(DONTCOMPILEFNS reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLGC.;3
File created 19-Oct-94 12:30:11
LLGCCOMS
(MKI.SUBFNS reset)
(INEWCOMS reset)
(DONTCOMPILEFNS reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSTK.;1
File created  6-Jan-93 18:07:37
LLSTKCOMS
(INEWCOMS reset)
(EXPANDMACROFNS reset)
(DONTCOMPILEFNS reset)
LLSTKCOMS
(LLSTKCOMS reset)
(LAMA reset)
(LAMA reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEMACROS.;2
File created 27-Apr-94 15:43:27
RENAMEMACROSCOMS

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MODARITH.;1
File created 16-May-90 20:46:21
MODARITHCOMS
(EXPANDMACROFNS reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFAULT.;1
File created 10-Feb-2021 22:44:43
LLFAULTCOMS
(INEWCOMS reset)
(RDCOMS reset)
(EXPANDMACROFNS reset)
(MKI.SUBFNS reset)
(RD.SUBFNS reset)
(DONTCOMPILEFNS reset)
(INEWCOMS reset)
(LAMA reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;1
File created 13-Feb-2021 23:24:49
LLKEYCOMS
(INEWCOMS reset)
(RDCOMS reset)
(NLAML reset)
(LAMA reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBFS.;1
File created 17-Dec-92 01:31:53
LLBFSCOMS
(INITPTRS reset)
(INEWCOMS reset)
(DONTCOMPILEFNS reset)
(INEWCOMS reset)

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLTIMER.;1
File created 16-May-90 20:13:11
LLTIMERCOMS
(INEWCOMS reset)
(\TIMEREXPIRED.BOX reset)
New fns definition for \SETUPTIMERmacrofn.
listing? F
(I.MAKEINITBFS NIL (uses I.FREEPAGEFID I.DISKREQUESTBLOCK I.SWAPREQUESTBLOCK I.SWAPDSK2 I.SWAPDSK1 I.MAINDISK))
(I.\\LOCKFN (FN))
(I.\\LOCKVAR (VAR))
(I.\\LOCKCELL (X NPGS))
(I.\\LOCKWORDS (BASE NWORDS))
(I.\\LOCKCODE (CODEBLOCK))
(I.DUMPINITPAGES (CODEFIRSTPAGE CODENEXTPAGE VERSIONS) (uses |MKI.Page0Byte| NEXTVMEM NEXTPM))
(I.SETUPPAGEMAP NIL (uses NEXTVMEM NEXTPM))
(I.ADDPME (VP NEWPAGEOK) (uses NEXTVMEM NEXTPM))
(I.MAKEROOMFORPME (VP) (uses NEXTPM))
(I.MAPPAGES (BOT TOP FN))
(I.SETUPSTACK (INITFLG) (uses RESETPTR RESETPC))
(I.\\SETUPSTACK1 (STKP ALINK CLINK STKEND NARGS PC DEFPTR ARGS INITFLG ARGSLENGTH))
(I.\\SETUPGUARDBLOCK (STKP LEN))
(I.\\MAKEFREEBLOCK (STK SIZE))
(I.INITGC NIL)
(I.NTYPX (X))
(I.\\ALLOCMDSPAGE (TYP) (uses |I.NxtMDSPage| I.MDSFREELISTPAGE))
(I.\\MAKEMDSENTRY (VP V))
(I.\\INITMDSPAGE (BASE SIZE PREV))
(I.\\ASSIGNDATATYPE1A0001 (PAGE))
(I.\\ASSIGNDATATYPE1 (NAME DESCRIPTORS SIZE SPECS PTRFIELDS SUPERTYPE) (uses |I.MaxTypeNumber| |I.MaxSysTypeNum|))
(I.\\TYPENUMBERFROMNAME (TYPE) (uses |I.MaxTypeNumber|))
(I.\\CREATECELL (TYP))
(I.\\NEW2PAGE (BASE))
(I.CREATEMDSTYPETABLE NIL)
(I.INITDATATYPES NIL (uses |I.MaxTypeNumber| |I.MaxSysTypeNum| I.LISTPDTD INITIALDTDCONTENTS))
(I.INITDATATYPENAMES NIL (uses INITIALDTDCONTENTS I.FINALIZATION.FUNCTIONS))
(I.FSETVAL (ATM VAL))
(I.SETPROPLIST (ATM LST))
(I.PUTDEFN (FN CA SIZE) (uses OUTX RESETPC RESETPTR LOCKEDFNS))
(I.\\BLT (DBASE SBASE NWORDS))
(I.\\MKATOM (BASE OFFST LEN FATP NONNUMERICP) (uses \\ORIGREADTABLE |I.OneCharAtomBase|))
(I.\\CREATE.SYMBOL (BASE OFFSET LEN FATP FATCHARSEENP) (uses |I.AtomFrLst|))
(I.\\INITATOMPAGE (PN))
(I.\\MOVEBYTES (SBASE SBYTE DBASE DBYTE NBYTES))
(I.\\STKMIN (CODE CODEISBLOCK PRINT))
(I.COPYATOM (X) (uses I.SCRATCHSTRING))
(I.INITATOMS NIL (uses |I.OneCharAtomBase| I.SCRATCHSTRING))
(I.MAKEINITFIRST NIL)
(I.\\COPY (X))
(I.MAKEINITLASTA0001 (P A))
(I.MAKEINITLASTA0002 (V A))
(I.MAKEINITLAST (VERSIONS) (uses MKI.ATOMARRAY LOCKEDVARS MKI.PTRS MKI.VALUES INITPTRS INITVALUES MKI.CODESTARTOFFSET MKI.CODELASTPAGE MKI.TVHA MKI.PLHA))
(I.\\CONS.UFN (X Y) (uses I.LISTPDTD))
(I.\\MAIKO.CONS.UFN (X Y))
(I.\\INITCONSPAGE (BASE LINK))
(I.\\NEXTCONSPAGE NIL (uses I.LISTPDTD))
(I.\\GETBASEBYTE (PTR N))
(I.\\PUTBASEBYTE (PTR DISP BYTE))
(I.CREATEPAGES (VA N BLANKFLG LOCKFLG))
(I.\\NEW4PAGE (PTR))
(I.ALLOCSTRING (N INITCHAR OLD FATFLG))
(I.%COPY-ONED-ARRAY (LOCAL-ARRAY))
(I.%COPY-STRING-TO-ARRAY (LOCAL-STRING))
(I.\\#BLOCKDATACELLS (DATAWORD) (uses I.HUNKING?))
(I.\\PREFIXALIGNMENT? (ARLEN INITONPAGE ALIGN GCTYPE BASE))
(I.\\ALLOCBLOCK (NCELLS GCTYPE INITONPAGE ALIGN) (uses I.HUNKING?))
-----In I.\\MAIKO.ALLOCBLOCK\:
*****((*) - |value| |of| |comment| |used?|)
(I.\\MAIKO.ALLOCBLOCK (NCELLS GCTYPE INITONPAGE ALIGN) (uses I.HUNKING?))
-----
(I.\\ALLOCBLOCK.NEW (ARLEN GCTYPE INITONPAGE ALIGN) (uses |I.NxtMDSPage|))
(I.\\MAKEFREEARRAYBLOCK (BLOCK LENGTH))
(I.\\MERGEBACKWARD (BASE))
(I.\\LINKBLOCK (BASE) (uses I.FREEBLOCKBUCKETS))
(I.\\ALLOCHUNK (NCELLS GCTYPE INITONPAGE ALIGN) (uses I.PTRHUNK.TYPENUM.TABLE I.CODEHUNK.TYPENUM.TABLE I.UNBOXEDHUNK.TYPENUM.TABLE))
(I.PREINITARRAYS NIL)
(I.POSTINITARRAYS (AFTERCODEPTR CODESTARTPAGE CODENEXTPAGE) (uses I.FREEBLOCKBUCKETS))
(I.FILEARRAYBASE NIL (uses |MKI.FirstDataByte| MKI.CODESTARTOFFSET))
(I.FILEBLOCKTRAILER (BLOCKINFO) (uses OUTX))
(I.FILECODEBLOCK (NCELLS INITONPAGE) (uses OUTX))
(I.FILEPATCHBLOCK (ARLEN) (uses OUTX))
(I.\\SETUP.HUNK.TYPENUMBERS NIL (uses \\BUILT-IN-SYSTEM-TYPES INITIALDTDCONTENTS))
(I.\\COMPUTE.HUNK.TYPEDECLS (SIZELST GCTYPE PREFIX))
(I.\\TURN.ON.HUNKING NIL (uses I.HUNKING? I.PTRHUNK.TYPENUM.TABLE I.CODEHUNK.TYPENUM.TABLE I.UNBOXEDHUNK.TYPENUM.TABLE))
(I.\\SETUP.TYPENUM.TABLE (SIZELST GCTYPE PREFIX) (uses INITIALDTDCONTENTS))
(I.DCODERD (FN) (uses I.CODERDTBL))
(I.INITUFNTABLE NIL)
(I.\\SETUFNENTRY (INDEX FN NARGS NEXTRA))

{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MEM.LCOM;1
compiled on 25-Jan-98 17:45:42
File created  5-Nov-92 15:57:00
MEMCOMS

{DSK}<Users>kaplan>Local>medley3.5>git-medley>tmp>I-NEW.LCOM;1
compiled on  1-Mar-2021 16:46:16
File created  1-Mar-2021 16:46:16
I-NEWCOMS
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-CONVERSION-TABLE.LCOM;1
(CL:PROCLAIM (QUOTE (CL:SPECIAL LITATOM-PACKAGE-CONVERSION-TABLE)))
(OR (BOUNDP (QUOTE LITATOM-PACKAGE-CONVERSION-TABLE)) (CL:SETQ 
LITATOM-PACKAGE-CONVERSION-TABLE (QUOTE (("CL::" NIL "LISP" :INTERNAL) ("CL:"
 ("CL:FLG" "CL:MAKE-SYMBOL" "CL:COPY-SYMBOL" "CL:INTERN" "CL:MAKE-KEYWORD" 
"CL:GENTEMP" "CL:KEYWORDP") "LISP" :EXTERNAL) (":" NIL "KEYWORD" :EXTERNAL) (
"CONDITIONS::" NIL "CONDITIONS" :INTERNAL) ("CONDITIONS:" NIL "CONDITIONS" 
:EXTERNAL) ("XCL::" NIL "XCL" :INTERNAL) ("XCL:" NIL "XCL" :EXTERNAL) ("SI::"
 NIL "SI" :INTERNAL) ("SI:" NIL "SI" :EXTERNAL) ("COMPILER::" NIL "COMPILER" 
:INTERNAL) ("COMPILER:" NIL "COMPILER" :EXTERNAL) ("FASL::" NIL "FASL" 
:INTERNAL) ("FASL:" NIL "FASL" :EXTERNAL)))))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFAULT.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSUBRS.LCOM;1
(SETF-MACRO-FUNCTION (QUOTE MISCN) (QUOTE expand-MISCN))
(PUTPROP (QUOTE MISCN) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-MISCN) (GET (QUOTE MISCN) (QUOTE COMPILER:OPTIMIZER-LIST))))
(SETF-MACRO-FUNCTION (QUOTE USER-SUBR) (QUOTE expand-USER-SUBR))
(SETF-MACRO-FUNCTION (QUOTE SUBRCALL) (QUOTE expand-SUBRCALL))
(PUTPROP (QUOTE SUBRCALL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-SUBRCALL) (GET (QUOTE SUBRCALL) (QUOTE COMPILER:OPTIMIZER-LIST))))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBFS.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNEW.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.LCOM;12
(/DECLAREDATATYPE (QUOTE STREAM) (QUOTE (WORD WORD FLAG (BITS 3) POINTER BYTE
 BYTE WORD WORD WORD FLAG FLAG FLAG FLAG POINTER FLAG FLAG FLAG FLAG POINTER 
FLAG (BITS 2) FLAG POINTER POINTER POINTER WORD WORD POINTER POINTER POINTER 
POINTER POINTER WORD WORD WORD WORD POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER WORD WORD POINTER)) (QUOTE ((STREAM 0 (BITS
 . 15)) (STREAM 1 (BITS . 15)) (STREAM 2 (FLAGBITS . 0)) (STREAM 2 (BITS . 18
)) (STREAM 2 POINTER) (STREAM 4 (BITS . 7)) (STREAM 4 (BITS . 135)) (STREAM 5
 (BITS . 15)) (STREAM 6 (BITS . 15)) (STREAM 7 (BITS . 15)) (STREAM 8 (
FLAGBITS . 0)) (STREAM 8 (FLAGBITS . 16)) (STREAM 8 (FLAGBITS . 32)) (STREAM 
8 (FLAGBITS . 48)) (STREAM 8 POINTER) (STREAM 10 (FLAGBITS . 0)) (STREAM 10 (
FLAGBITS . 16)) (STREAM 10 (FLAGBITS . 32)) (STREAM 10 (FLAGBITS . 48)) (
STREAM 10 POINTER) (STREAM 12 (FLAGBITS . 0)) (STREAM 12 (BITS . 17)) (STREAM
 12 (FLAGBITS . 48)) (STREAM 12 POINTER) (STREAM 14 POINTER) (STREAM 16 
POINTER) (STREAM 18 (BITS . 15)) (STREAM 19 (BITS . 15)) (STREAM 20 POINTER) 
(STREAM 22 POINTER) (STREAM 24 POINTER) (STREAM 26 POINTER) (STREAM 28 
POINTER) (STREAM 30 (BITS . 15)) (STREAM 31 (BITS . 15)) (STREAM 32 (BITS . 
15)) (STREAM 33 (BITS . 15)) (STREAM 34 POINTER) (STREAM 36 POINTER) (STREAM 
38 POINTER) (STREAM 40 POINTER) (STREAM 42 POINTER) (STREAM 44 POINTER) (
STREAM 46 POINTER) (STREAM 48 POINTER) (STREAM 50 POINTER) (STREAM 52 (BITS
 . 15)) (STREAM 53 (BITS . 15)) (STREAM 54 POINTER))) (QUOTE 56))
(DEFPRINT (QUOTE STREAM) (FUNCTION \STREAM.DEFPRINT))
(DEFPRINT (QUOTE FDEV) (FUNCTION \FDEV.DEFPRINT))
(/DECLAREDATATYPE (QUOTE FDEV) (QUOTE (FLAG FLAG FLAG FLAG FLAG FLAG FLAG 
FLAG POINTER FLAG FLAG FLAG FLAG POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER)) (QUOTE ((FDEV 0 (FLAGBITS . 0)) (FDEV 0 (FLAGBITS . 16)) (FDEV 0 (
FLAGBITS . 32)) (FDEV 0 (FLAGBITS . 48)) (FDEV 0 (FLAGBITS . 64)) (FDEV 0 (
FLAGBITS . 80)) (FDEV 0 (FLAGBITS . 96)) (FDEV 0 (FLAGBITS . 112)) (FDEV 2 
POINTER) (FDEV 2 (FLAGBITS . 0)) (FDEV 2 (FLAGBITS . 16)) (FDEV 2 (FLAGBITS
 . 32)) (FDEV 2 (FLAGBITS . 48)) (FDEV 4 POINTER) (FDEV 6 POINTER) (FDEV 8 
POINTER) (FDEV 10 POINTER) (FDEV 12 POINTER) (FDEV 14 POINTER) (FDEV 16 
POINTER) (FDEV 18 POINTER) (FDEV 20 POINTER) (FDEV 22 POINTER) (FDEV 24 
POINTER) (FDEV 26 POINTER) (FDEV 28 POINTER) (FDEV 30 POINTER) (FDEV 32 
POINTER) (FDEV 34 POINTER) (FDEV 36 POINTER) (FDEV 38 POINTER) (FDEV 40 
POINTER) (FDEV 42 POINTER) (FDEV 44 POINTER) (FDEV 46 POINTER) (FDEV 48 
POINTER) (FDEV 50 POINTER) (FDEV 52 POINTER) (FDEV 54 POINTER) (FDEV 56 
POINTER) (FDEV 58 POINTER) (FDEV 60 POINTER) (FDEV 62 POINTER) (FDEV 64 
POINTER) (FDEV 66 POINTER) (FDEV 68 POINTER) (FDEV 70 POINTER) (FDEV 72 
POINTER) (FDEV 74 POINTER) (FDEV 76 POINTER) (FDEV 78 POINTER) (FDEV 80 
POINTER) (FDEV 82 POINTER) (FDEV 84 POINTER) (FDEV 86 POINTER) (FDEV 88 
POINTER) (FDEV 90 POINTER) (FDEV 92 POINTER) (FDEV 94 POINTER) (FDEV 96 
POINTER) (FDEV 98 POINTER) (FDEV 100 POINTER) (FDEV 102 POINTER) (FDEV 104 
POINTER))) (QUOTE 106))
(/DECLAREDATATYPE (QUOTE EXTERNALFORMAT) (QUOTE (FLAG (BITS 2) (BITS 1) 
POINTER POINTER POINTER POINTER)) (QUOTE ((EXTERNALFORMAT 0 (FLAGBITS . 0)) (
EXTERNALFORMAT 0 (BITS . 17)) (EXTERNALFORMAT 0 (BITS . 48)) (EXTERNALFORMAT 
0 POINTER) (EXTERNALFORMAT 2 POINTER) (EXTERNALFORMAT 4 POINTER) (
EXTERNALFORMAT 6 POINTER))) (QUOTE 8))
(\CREATE.JIS.EXTERNALFORMAT)
(\CREATE.SHIFTJIS.EXTERNALFORMAT)
(\CREATE.EUC.EXTERNALFORMAT)
(\CREATE.THROUGH.EXTERNALFORMAT)
(MAPC (QUOTE ((FORCEOUTPUT FLUSHOUTPUT) (FORCEOUTPUT FLUSHMAP) (\GENERIC.BINS
 \NONPAGEDBINS) (\GENERIC.BOUTS \NONPAGEDBOUTS))) (FUNCTION (LAMBDA (PAIR) (
PUTD (CADR PAIR) (GETD (CAR PAIR)) T))))
(\NULLDEVICE)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.LCOM;1
(/DECLAREDATATYPE (QUOTE IMAGEOPS) (QUOTE (POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((
IMAGEOPS 0 POINTER) (IMAGEOPS 2 POINTER) (IMAGEOPS 4 POINTER) (IMAGEOPS 6 
POINTER) (IMAGEOPS 8 POINTER) (IMAGEOPS 10 POINTER) (IMAGEOPS 12 POINTER) (
IMAGEOPS 14 POINTER) (IMAGEOPS 16 POINTER) (IMAGEOPS 18 POINTER) (IMAGEOPS 20
 POINTER) (IMAGEOPS 22 POINTER) (IMAGEOPS 24 POINTER) (IMAGEOPS 26 POINTER) (
IMAGEOPS 28 POINTER) (IMAGEOPS 30 POINTER) (IMAGEOPS 32 POINTER) (IMAGEOPS 34
 POINTER) (IMAGEOPS 36 POINTER) (IMAGEOPS 38 POINTER) (IMAGEOPS 40 POINTER) (
IMAGEOPS 42 POINTER) (IMAGEOPS 44 POINTER) (IMAGEOPS 46 POINTER) (IMAGEOPS 48
 POINTER) (IMAGEOPS 50 POINTER) (IMAGEOPS 52 POINTER) (IMAGEOPS 54 POINTER) (
IMAGEOPS 56 POINTER) (IMAGEOPS 58 POINTER) (IMAGEOPS 60 POINTER) (IMAGEOPS 62
 POINTER) (IMAGEOPS 64 POINTER) (IMAGEOPS 66 POINTER) (IMAGEOPS 68 POINTER) (
IMAGEOPS 70 POINTER) (IMAGEOPS 72 POINTER) (IMAGEOPS 74 POINTER) (IMAGEOPS 76
 POINTER) (IMAGEOPS 78 POINTER) (IMAGEOPS 80 POINTER) (IMAGEOPS 82 POINTER) (
IMAGEOPS 84 POINTER) (IMAGEOPS 86 POINTER) (IMAGEOPS 88 POINTER) (IMAGEOPS 90
 POINTER) (IMAGEOPS 92 POINTER) (IMAGEOPS 94 POINTER))) (QUOTE 96))
(\IMAGEIOINIT)
(SETTOPVAL (QUOTE \DISPLAYSTREAMTYPES) (CONS (QUOTE DISPLAY) 
\COLORDISPLAYSTREAMTYPES))
(\DISPLAYINIT)
(\4DISPLAYINIT)
(\8DISPLAYINIT)
(\24DISPLAYINIT)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBASIC.LCOM;1
(PUTPROP (QUOTE ATOM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
definline-ATOM) (GET (QUOTE ATOM) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE \ATOMCELL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-\ATOMCELL) (GET (QUOTE \ATOMCELL) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE GETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE optimize-GETPROPLIST) (GET (QUOTE GETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE SETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE optimize-SETPROPLIST) (GET (QUOTE SETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST))))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLGC.LCOM;1
(SETTOPVAL (QUOTE \GCTIME1) (CREATECELL \FIXP))
(SETTOPVAL (QUOTE \GCTIME2) (CREATECELL \FIXP))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLARRAYELT.LCOM;1
(DEFPRINT (QUOTE HARRAYP) (QUOTE \HASHTABLE.DEFPRINT))
(/DECLAREDATATYPE (QUOTE HARRAYP) (QUOTE (WORD WORD POINTER FLAG POINTER WORD
 WORD POINTER POINTER POINTER)) (QUOTE ((HARRAYP 0 (BITS . 15)) (HARRAYP 1 (
BITS . 15)) (HARRAYP 2 POINTER) (HARRAYP 2 (FLAGBITS . 0)) (HARRAYP 4 POINTER
) (HARRAYP 6 (BITS . 15)) (HARRAYP 7 (BITS . 15)) (HARRAYP 8 POINTER) (
HARRAYP 10 POINTER) (HARRAYP 12 POINTER))) (QUOTE 14))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLINTERP.LCOM;1
(MOVD? (QUOTE SETQ) (QUOTE SETN) NIL T)
(MOVD? (QUOTE FUNCTION) (QUOTE CL:FUNCTION) NIL T)
(SETTOPVAL (QUOTE COMPVARMACROHASH) (HASHARRAY 100))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLMVS.LCOM;1
(XCL::SET-CONSTANTP (QUOTE CL:MULTIPLE-VALUES-LIMIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:MULTIPLE-VALUES-LIMIT)))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT-RUN-TIME.LCOM;1
(PROCLAIM (QUOTE (SPECIAL *PARSED-DEFSTRUCTS*)))
(OR (BOUNDP (QUOTE *PARSED-DEFSTRUCTS*)) (SETQ *PARSED-DEFSTRUCTS* (
IL:HASHARRAY 100)))
(IL:SETF-MACRO-FUNCTION (QUOTE PARSED-STRUCTURE) (QUOTE 
|expand-PARSED-STRUCTURE|))
(SET-SETF-INVERSE (QUOTE PARSED-STRUCTURE) (QUOTE SET-PARSED-STRUCTURE))
(IL:\\ASSIGNDATATYPE1 (QUOTE STRUCTURE-OBJECT) NIL 0)
(PROCLAIM (QUOTE (SPECIAL *DEFSTRUCT-INFO-CACHE*)))
(OR (BOUNDP (QUOTE *DEFSTRUCT-INFO-CACHE*)) (SETQ *DEFSTRUCT-INFO-CACHE* (
IL:HASHARRAY 100)))
(PROCLAIM (QUOTE (SPECIAL XCL:*PRINT-STRUCTURE*)))
(OR (BOUNDP (QUOTE XCL:*PRINT-STRUCTURE*)) (SETQ XCL:*PRINT-STRUCTURE* T))
(IL:SET-DOCUMENTATION (QUOTE XCL:*PRINT-STRUCTURE*) (QUOTE VARIABLE) 
"Flag indicating whether the contents of structures are to be printed.")
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SETF-RUNTIME.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQBASICS.LCOM;1
(SET-DOCUMENTATION (QUOTE CL:COPY-SEQ) (QUOTE CL:FUNCTION) 
"Returns a copy of SEQUENCE which is EQUALP to SEQUENCE but not EQ.")
(SET-DOCUMENTATION (QUOTE CL:MAKE-SEQUENCE) (QUOTE CL:FUNCTION) 
"Make a sequnce of the specified type")
(SET-DOCUMENTATION (QUOTE CL:NREVERSE) (QUOTE CL:FUNCTION) 
"Returns a sequence of the same elements in reverse order (the argument is destroyed).")
(SET-DOCUMENTATION (QUOTE CL:REVERSE) (QUOTE CL:FUNCTION) 
"Returns a new sequence containing the same elements but in reverse order.")
(CL::SET-SETF-INVERSE (QUOTE CL:ELT) (QUOTE %%SETELT))
(CL::SET-SETF-METHOD-EXPANDER (QUOTE CL:SUBSEQ) (QUOTE CL::SUBSEQ-setf-expander))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLARITH.LCOM;1
(CONSTANTS (MAX.SMALLP 65535) (MIN.SMALLP -65536) (MAX.FIXP 2147483647) (
MIN.FIXP -2147483648) (\\SIGNBIT 32768))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFLOAT.LCOM;1
(SETTOPVAL (QUOTE MAX.FLOAT) (\INFINITY 0))
(SETTOPVAL (QUOTE MIN.FLOAT) (\INFINITY 1))
(MOVD? (QUOTE FGREATERP) (QUOTE FGTP))
(CL:PROCLAIM (QUOTE (CL:SPECIAL INTPOWERS)))
(OR (BOUNDP (QUOTE INTPOWERS)) (CL:SETQ INTPOWERS (LET ((AR (CL:MAKE-ARRAY 10
))) (ASET 1 AR 0) (ASET 10 AR 1) (ASET 100 AR 2) (ASET 1000 AR 3) (ASET 10000
 AR 4) (ASET 100000 AR 5) (ASET 1000000 AR 6) (ASET 10000000 AR 7) (ASET 
100000000 AR 8) (ASET 1000000000 AR 9) AR)))
(SETF-MACRO-FUNCTION (QUOTE SPLIT8) (QUOTE expand-SPLIT8))
(\INIT.POWERS.OF.TEN)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBIGNUM.LCOM;1
(/DECLAREDATATYPE (QUOTE BIGNUM) (QUOTE (POINTER)) (QUOTE ((BIGNUM 0 POINTER)
)) (QUOTE 2))
(DEFPRINT (QUOTE BIGNUM) (QUOTE BIGNUM.DEFPRINT))
(SETTOPVAL (QUOTE \BIGNUM.BETA) (EXPT 2 14))
(SETTOPVAL (QUOTE \BIGNUM.BETA1) (SUB1 \BIGNUM.BETA))
(CONSTANTS \BIGNUM.THETA (\BIGNUM.BETA (EXPT 2 14)) (\BIGNUM.BETA1 (SUB1 
\BIGNUM.BETA)))
(\INITBIGNUMS)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.LCOM;2
(MOVD? (QUOTE \ORIG-READ.SYMBOL) (QUOTE \READ.SYMBOL))
(MOVD? (QUOTE \ORIG-INVALID.SYMBOL) (QUOTE \INVALID.SYMBOL))
(Value of CHARACTERNAMES changed from ((INFINITY 8551)) to (("Page" 12) ("Form" 12) ("FF" 12) ("Rubout" 127) ("Del" 127) ("Null" 0) ("Escape" 27) ("Esc" 27) ("Bell" 7) ("Tab" 9) ("Backspace" 8) ("Bs" 8) ("Newline" 13) ("CR" 13) ("EOL" 13) ("Return" 13) ("Tenexeol" 31) ("Space" 32) ("Sp" 32) ("Linefeed" 10) ("LF" 10)))
(\MAKE.JIS.TO.XCCS.CONV.TABLE)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCHAR.LCOM;2
(MOVD? (QUOTE STRING.EQUAL) (QUOTE STRING-EQUAL) NIL T)
(MOVD? (QUOTE STRING.EQUAL) (QUOTE CL::SIMPLE-STRING-EQUAL) NIL T)
(MOVD? (QUOTE CHARACTER) (QUOTE FCHARACTER) NIL T)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSTK.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDATATYPE.LCOM;1
(AND (EQ \MACHINETYPE \MAIKO) (MOVD (QUOTE \MAIKO.SET.STORAGE.STATE) (QUOTE 
\SET.STORAGE.STATE)))
(MOVD? (QUOTE FETCHFIELD) (QUOTE FFETCHFIELD) NIL T)
(MOVD? (QUOTE REPLACEFIELD) (QUOTE FREPLACEFIELD) NIL T)
(MOVD? (QUOTE REPLACEFIELDVAL) (QUOTE FREPLACEFIELDVAL) NIL T)
(PUTPROP (QUOTE TYPENAMEP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-TYPENAMEP) (GET (QUOTE TYPENAMEP) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE \INSTANCE-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE optimize-\INSTANCE-P) (GET (QUOTE \INSTANCE-P) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE PUTBASEPTRX) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE optimize-PUTBASEPTRX) (GET (QUOTE PUTBASEPTRX) (QUOTE COMPILER:OPTIMIZER-LIST))))
(CONSTANTS \SMALLP \FIXP \FLOATP \LITATOM \LISTP \ARRAYP \STACKP \VMEMPAGEP 
\STREAM \NEW-ATOM)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.LCOM;10
(MOVD? (QUOTE SETA) (QUOTE SETCASEARRAY))
(MOVD? (QUOTE ELT) (QUOTE GETCASEARRAY))
(SETTOPVAL (QUOTE \TRANSPARENT) (CASEARRAY))
(SETTOPVAL (QUOTE UPPERCASEARRAY) (UPPERCASEARRAY))
(PUTPROP (QUOTE DATEFORMAT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE
 optimize-DATEFORMAT) (GET (QUOTE DATEFORMAT) (QUOTE COMPILER:OPTIMIZER-LIST)
)))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.LCOM;1
(MOVD? (QUOTE NILL) (QUOTE CARET))
(CONSTANTS (\SUN.TYPE3KEYBOARD 0) (\SUN.TYPE4KEYBOARD 1) (\SUN.JLEKEYBOARD 2)
 (\TOSHIBA.JIS 7))
(\KEYBOARDINIT)
(\INIT.KEYBOARD.STREAM)
(CONSTANTS (HARDCURSORHEIGHT 16) (HARDCURSORWIDTH 16))
(MOVD (QUOTE CURSOR) (QUOTE SETCURSOR))
(MOVD (QUOTE \CURSORPOSITION) (QUOTE \SETCURSORPOSITION))
(SETTOPVAL (QUOTE \SFPosition) (CREATEPOSITION))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLTIMER.LCOM;1
(PUTPROP (QUOTE \RCLOCK0) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-\RCLOCK0) (GET (QUOTE \RCLOCK0) (QUOTE COMPILER:OPTIMIZER-LIST))))
(SETTOPVAL (QUOTE \TIMEREXPIRED.BOX) (SETUPTIMER 0))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASTACK.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DTDECLARE.LCOM;1
(PUTPROP (QUOTE FETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE
 |optimize-FETCHFIELD|) (GET (QUOTE FETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE FFETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE |optimize-FFETCHFIELD|) (GET (QUOTE FFETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE REPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE |optimize-REPLACEFIELD|) (GET (QUOTE REPLACEFIELD) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE FREPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE |optimize-FREPLACEFIELD|) (GET (QUOTE FREPLACEFIELD) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE REPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE |optimize-REPLACEFIELDVAL|) (GET (QUOTE REPLACEFIELDVAL) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE FREPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN 
(QUOTE |optimize-FREPLACEFIELDVAL|) (GET (QUOTE FREPLACEFIELDVAL) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE NCREATE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
|optimize-NCREATE|) (GET (QUOTE NCREATE) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE \\DTEST) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
|optimize-\\DTEST|) (GET (QUOTE \\DTEST) (QUOTE COMPILER:OPTIMIZER-LIST))))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.LCOM;5
(/DECLAREDATATYPE (QUOTE TERMTABLEP) (QUOTE (POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER FLAG FLAG)) (QUOTE ((TERMTABLEP 0 POINTER) (
TERMTABLEP 2 POINTER) (TERMTABLEP 4 POINTER) (TERMTABLEP 6 POINTER) (
TERMTABLEP 8 POINTER) (TERMTABLEP 10 POINTER) (TERMTABLEP 12 POINTER) (
TERMTABLEP 14 POINTER) (TERMTABLEP 14 (FLAGBITS . 0)) (TERMTABLEP 14 (
FLAGBITS . 16)))) (QUOTE 16))
(/DECLAREDATATYPE (QUOTE READTABLEP) (QUOTE (POINTER POINTER FLAG FLAG FLAG (
BITS 5) FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER BYTE BYTE BYTE BYTE 
POINTER)) (QUOTE ((READTABLEP 0 POINTER) (READTABLEP 2 POINTER) (READTABLEP 2
 (FLAGBITS . 0)) (READTABLEP 2 (FLAGBITS . 16)) (READTABLEP 2 (FLAGBITS . 32)
) (READTABLEP 4 (BITS . 4)) (READTABLEP 2 (FLAGBITS . 48)) (READTABLEP 0 (
FLAGBITS . 0)) (READTABLEP 0 (FLAGBITS . 16)) (READTABLEP 0 (FLAGBITS . 32)) 
(READTABLEP 0 (FLAGBITS . 48)) (READTABLEP 4 (FLAGBITS . 80)) (READTABLEP 4 (
FLAGBITS . 96)) (READTABLEP 4 (FLAGBITS . 112)) (READTABLEP 6 POINTER) (
READTABLEP 5 (BITS . 7)) (READTABLEP 5 (BITS . 135)) (READTABLEP 4 (BITS . 
135)) (READTABLEP 8 (BITS . 7)) (READTABLEP 10 POINTER))) (QUOTE 12))
(/DECLAREDATATYPE (QUOTE READER-ENVIRONMENT) (QUOTE (POINTER POINTER POINTER 
POINTER)) (QUOTE ((READER-ENVIRONMENT 0 POINTER) (READER-ENVIRONMENT 2 
POINTER) (READER-ENVIRONMENT 4 POINTER) (READER-ENVIRONMENT 6 POINTER))) (
QUOTE 8))
(\ATBLSET)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCODE.LCOM;1
(SETTOPVAL (QUOTE CODERDTBL) (COPYREADTABLE (QUOTE ORIG)))
(SETSYNTAX 25 (QUOTE (MACRO (LAMBDA (FILE RDTBL) (EVAL (READ FILE RDTBL))))) 
CODERDTBL)
(SETSYNTAX 124 (QUOTE (MACRO ALWAYS READVBAR)) CODERDTBL)
(READTABLEPROP CODERDTBL (QUOTE USESILPACKAGE) NIL)
(/DECLAREDATATYPE (QUOTE COMPILED-CLOSURE) (QUOTE (POINTER POINTER)) (QUOTE (
(COMPILED-CLOSURE 0 POINTER) (COMPILED-CLOSURE 2 POINTER))) (QUOTE 4))
(DEFPRINT (QUOTE COMPILED-CLOSURE) (QUOTE \CCLOSURE.DEFPRINT))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ACODE.LCOM;7
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.LCOM;2
(/DECLAREDATATYPE (QUOTE COREFILEINFOBLK) (QUOTE (FIXP FIXP FIXP POINTER 
POINTER POINTER WORD WORD (BITS 2) WORD)) (QUOTE ((COREFILEINFOBLK 0 FIXP) (
COREFILEINFOBLK 2 FIXP) (COREFILEINFOBLK 4 FIXP) (COREFILEINFOBLK 6 POINTER) 
(COREFILEINFOBLK 8 POINTER) (COREFILEINFOBLK 10 POINTER) (COREFILEINFOBLK 12 
(BITS . 15)) (COREFILEINFOBLK 13 (BITS . 15)) (COREFILEINFOBLK 10 (BITS . 1))
 (COREFILEINFOBLK 14 (BITS . 15)))) (QUOTE 16))
(COREDEVICE (QUOTE NODIRCORE) T)
(COREDEVICE (QUOTE CORE))
(COREDEVICE (QUOTE SCRATCH) T)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.LCOM;1
(\BASEBYTES.IO.INIT)
(\STRINGSTREAM.INIT)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADIR.LCOM;8
(CONSTANTS (MULTIPLE.STREAMS.PER.FILE.ALLOWED T))
(MOVD? (QUOTE SIMPLE.FINDFILE) (QUOTE FINDFILE) NIL T)
(MOVD? (QUOTE NILL) (QUOTE CL:PATHNAMEP))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PMAP.LCOM;3
(PUTD (QUOTE \PAGEDBIN) (GETD (QUOTE \BUFFERED.BIN)) T)
(PUTD (QUOTE \PAGEDPEEKBIN) (GETD (QUOTE \BUFFERED.PEEKBIN)) T)
(/DECLAREDATATYPE (QUOTE BUFFER) (QUOTE (POINTER XPOINTER POINTER POINTER 
FLAG FLAG FLAG)) (QUOTE ((BUFFER 0 POINTER) (BUFFER 2 XPOINTER) (BUFFER 4 
POINTER) (BUFFER 6 POINTER) (BUFFER 6 (FLAGBITS . 0)) (BUFFER 6 (FLAGBITS . 
16)) (BUFFER 6 (FLAGBITS . 32)))) (QUOTE 8))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.LCOM;1
(\\VANILLADISKINIT)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.LCOM;1
(\INITBCPLDISPLAY)
(MOVD? (QUOTE NILL) (QUOTE SETDISPLAYHEIGHT))
(MOVD? (QUOTE \OPENLINEBUF) (QUOTE \CREATE.TTYDISPLAYSTREAM))
(SETTOPVAL (QUOTE \DEFAULTLINEBUF) (\SETUP.DEFAULT.LINEBUF))
(\OPENLINEBUF)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APRINT.LCOM;2
(SETTOPVAL (QUOTE \PNAMEDEVICE) (NCREATE (QUOTE FDEV) (\GETDEVICEFROMHOSTNAME
 (QUOTE NULL) T)))
(PROGN (PUTPROPS NUMFORMATCODE BYTEMACRO (= . PROG1)) (PUTPROPS NUMFORMATCODE
 DMACRO (= . PROG1)))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ABASIC.LCOM;2
(DUMMYDEF (WINDOWWORLDP NILL))
(SETTOPVAL (QUOTE \IMAX.FLOAT) (FIX MAX.FLOAT))
(SETTOPVAL (QUOTE \IMIN.FLOAT) (FIX MIN.FLOAT))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AERROR.LCOM;2
(CL:PROCLAIM (QUOTE (CL:SPECIAL *LAST-CONDITION*)))
(OR (BOUNDP (QUOTE *LAST-CONDITION*)) (CL:SETQ *LAST-CONDITION* NIL))
(SET-DOCUMENTATION (QUOTE *LAST-CONDITION*) (QUOTE CL:VARIABLE) 
"Last condition signalled. This gets rebound to itself in nested execs.")
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AINTERRUPT.LCOM;2
(INTCHAR T)
(SETTOPVAL (QUOTE LAST^TTIMEBOX) (CLOCK 0))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MISC.LCOM;1
(SETTOPVAL (QUOTE \GS.STR) (ALLOCSTRING 0))
(CL:PROCLAIM (QUOTE (GLOBAL MAKESYSDATE MAKESYSNAME)))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.LCOM;1
(SETTOPVAL (QUOTE EOLCHARCODE) (CHCON1 "
"))
(Value of PRETTYHEADER changed from NIL to "File created ")
(MAPC (QUOTE ((PUTD . /PUTD) (PUTPROP . /PUTPROP) (PUTPROP . PUT) (PUTPROP . 
SAVEPUT) (ADDPROP . /ADDPROP) (PUT . /PUT) (PRIN1 . LISPXPRIN1) (PRIN2 . 
LISPXPRIN2) (PRINT . LISPXPRINT) (TERPRI . LISPXTERPRI) (SPACES . LISPXSPACES
) (GETPROP . GETP) (SET . SAVESET) (SET . /SET) (NILL . MISSPELLED?) (
SETTOPVAL . /SETTOPVAL) (BOOTSTRAP-NAMEFIELD . NAMEFIELD) (NILL . 
RESETRESTORE))) (FUNCTION (LAMBDA (X) (OR (CCODEP (CDR X)) (MOVD (CAR X) (CDR
 X) NIL T)))))
(AND (CCODEP (QUOTE BOOTSTRAP-NAMEFIELD)) (PUTD (QUOTE BOOTSTRAP-NAMEFIELD)))
(RADIX 10)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMACROS.LCOM;1
(APPENDTOVAR COMPILERMACROPROPS DMACRO BYTEMACRO MACRO)
(SETF-MACRO-FUNCTION (QUOTE CL:MACROLET) (QUOTE CL::expand-MACROLET))
(CL::SET-SETF-INVERSE (QUOTE CL:MACRO-FUNCTION) (QUOTE SETF-MACRO-FUNCTION))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLEVAL.LCOM;1
(PUTPROP (QUOTE INTERLISP) (QUOTE SPECIAL-FORM) (QUOTE PROGN))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *CHECK-ARGUMENT-COUNTS*)))
(CL:PROCLAIM (QUOTE (GLOBAL *SPECIAL-BINDING-MARK*)))
(OR (BOUNDP (QUOTE *SPECIAL-BINDING-MARK*)) (CL:SETQ *SPECIAL-BINDING-MARK* 
"Variable specially bound. This string should never be visible"))
(XCL::SET-CONSTANTP (QUOTE CL:LAMBDA-LIST-KEYWORDS) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:LAMBDA-LIST-KEYWORDS)))
(XCL::SET-CONSTANTP (QUOTE CL:CALL-ARGUMENTS-LIMIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CALL-ARGUMENTS-LIMIT)))
(XCL::SET-CONSTANTP (QUOTE CL:LAMBDA-PARAMETERS-LIMIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:LAMBDA-PARAMETERS-LIMIT)))
(CL::SET-PARSED-STRUCTURE (QUOTE CLOSURE) T (QUOTE (CL::PS CLOSURE 
MAKE-CLOSURE (FUNCTION ENVIRONMENT) CL::DATATYPE NIL NIL "CLOSURE-" (
MAKE-CLOSURE) CLOSURE-P (LAMBDA (CLOSURE STREAM) (LET ((*PRINT-RADIX* NIL)) (
CL:FORMAT STREAM "#<Interpreted closure @ ~O,~O>" (\\HILOC CLOSURE) (\\LOLOC 
CLOSURE)))) COPY-CLOSURE NIL 0 NIL ((FUNCTION NIL T NIL (CLOSURE 0 POINTER) 
CLOSURE-FUNCTION) (ENVIRONMENT NIL T NIL (CLOSURE 2 POINTER) 
CLOSURE-ENVIRONMENT)) NIL NIL (POINTER POINTER) NIL (:ACCESSOR :PREDICATE) 
NIL NIL NIL)))
(SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE CLOSURE) (QUOTE (POINTER POINTER)) (
QUOTE ((CLOSURE 0 POINTER) (CLOSURE 2 POINTER))) 4 (QUOTE CL::STRUCTURE-OBJECT))
(PUTPROP (QUOTE CLOSURE) (QUOTE :TYPE-EXPANDER) (QUOTE 
CL::TYPE-EXPAND-STRUCTURE))
(CL::ESTABLISH-PREDICATE (QUOTE CLOSURE))
(CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE CLOSURE))
(CL::SET-PARSED-STRUCTURE (QUOTE ENVIRONMENT) T (QUOTE (CL::PS ENVIRONMENT 
NIL (VARS FUNCTIONS BLOCKS TAGBODIES) CL::DATATYPE NIL NIL "ENVIRONMENT-" ((
\\MAKE-ENVIRONMENT NIL)) ENVIRONMENT-P (LAMBDA (ENV STREAM DEPTH) (DECLARE (
IGNORE DEPTH)) (LET ((*PRINT-RADIX* NIL)) (CL:FORMAT STREAM 
"#<Lexical Environment @ ~O,~O>" (\\HILOC ENV) (\\LOLOC ENV)))) 
\\COPY-ENVIRONMENT NIL 0 NIL ((VARS NIL T NIL (ENVIRONMENT 0 POINTER) 
ENVIRONMENT-VARS) (FUNCTIONS NIL T NIL (ENVIRONMENT 2 POINTER) 
ENVIRONMENT-FUNCTIONS) (BLOCKS NIL T NIL (ENVIRONMENT 4 POINTER) 
ENVIRONMENT-BLOCKS) (TAGBODIES NIL T NIL (ENVIRONMENT 6 POINTER) 
ENVIRONMENT-TAGBODIES)) NIL NIL (POINTER POINTER POINTER POINTER) NIL (
:ACCESSOR :PREDICATE) NIL NIL NIL)))
(SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE ENVIRONMENT) (QUOTE (POINTER POINTER 
POINTER POINTER)) (QUOTE ((ENVIRONMENT 0 POINTER) (ENVIRONMENT 2 POINTER) (
ENVIRONMENT 4 POINTER) (ENVIRONMENT 6 POINTER))) 8 (QUOTE CL::STRUCTURE-OBJECT))
(PUTPROP (QUOTE ENVIRONMENT) (QUOTE :TYPE-EXPANDER) (QUOTE 
CL::TYPE-EXPAND-STRUCTURE))
(CL::ESTABLISH-PREDICATE (QUOTE ENVIRONMENT))
(CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE ENVIRONMENT))
(SETF-MACRO-FUNCTION (QUOTE \\MAKE-CHILD-ENVIRONMENT) (QUOTE 
|expand-\\MAKE-CHILD-ENVIRONMENT|))
(SETF-MACRO-FUNCTION (QUOTE ARG-REF) (QUOTE |expand-ARG-REF|))
(PUTPROP (QUOTE CL:COMPILER-LET) (QUOTE SPECIAL-FORM) (QUOTE 
CL::|interpret-COMPILER-LET|))
(PUTPROP (QUOTE CL:MACROLET) (QUOTE SPECIAL-FORM) (QUOTE 
CL::|interpret-MACROLET|))
(PUTPROP (QUOTE CL:FLET) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-FLET|))
(PUTPROP (QUOTE CL:LABELS) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-LABELS|
))
(PUTPROP (QUOTE QUOTE) (QUOTE SPECIAL-FORM) (QUOTE CAR))
(PUTPROP (QUOTE THE) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-THE|))
(PUTPROP (QUOTE CL:EVAL-WHEN) (QUOTE SPECIAL-FORM) (QUOTE 
CL::|interpret-EVAL-WHEN|))
(PUTPROP (QUOTE DECLARE) (QUOTE SPECIAL-FORM) (QUOTE FALSE))
(SETF-MACRO-FUNCTION (QUOTE CL:LOCALLY) (QUOTE CL::|expand-LOCALLY|))
(PUTPROP (QUOTE PROGN) (QUOTE SPECIAL-FORM) (QUOTE \\EVAL-PROGN))
(PUTPROP (QUOTE PROG1) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-PROG1|))
(SETF-MACRO-FUNCTION (QUOTE PROG1) (QUOTE CL::|expand-PROG1|))
(PUTPROP (QUOTE LET*) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-LET*|))
(PUTPROP (QUOTE LET) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-LET|))
(PUTPROP (QUOTE COND) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-COND|))
(SETF-MACRO-FUNCTION (QUOTE COND) (QUOTE CL::|expand-COND|))
(PUTPROP (QUOTE CL:IF) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-IF|))
(SETF-MACRO-FUNCTION (QUOTE AND) (QUOTE CL::|expand-AND|))
(SETF-MACRO-FUNCTION (QUOTE OR) (QUOTE CL::|expand-OR|))
(PUTPROP (QUOTE AND) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-AND|))
(PUTPROP (QUOTE OR) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-OR|))
(PUTPROP (QUOTE CL:BLOCK) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-BLOCK|))
(SETF-MACRO-FUNCTION (QUOTE RETURN) (QUOTE CL::|expand-RETURN|))
(PUTPROP (QUOTE CL:RETURN-FROM) (QUOTE SPECIAL-FORM) (QUOTE 
CL::|interpret-RETURN-FROM|))
(PUTPROP (QUOTE CL:FUNCTION) (QUOTE SPECIAL-FORM) (QUOTE 
CL::|interpret-FUNCTION|))
(PUTPROP (QUOTE FUNCTION) (QUOTE SPECIAL-FORM) (QUOTE |interpret-FUNCTION|))
(PUTPROP (QUOTE CL:MULTIPLE-VALUE-CALL) (QUOTE SPECIAL-FORM) (QUOTE 
CL::|interpret-MULTIPLE-VALUE-CALL|))
(PUTPROP (QUOTE CL:MULTIPLE-VALUE-PROG1) (QUOTE SPECIAL-FORM) (QUOTE 
CL::|interpret-MULTIPLE-VALUE-PROG1|))
(SET-DOCUMENTATION (QUOTE CL:EVALHOOK) (QUOTE CL:FUNCTION) 
"Evaluates Form with *Evalhook* bound to Evalhookfn and *Applyhook* bound to applyhookfn.  Ignores these hooks once, for the top-level evaluation of Form.")
(SET-DOCUMENTATION (QUOTE CL:APPLYHOOK) (QUOTE CL:FUNCTION) 
"Evaluates Form with *Evalhook* bound to Evalhookfn and *Applyhook* bound to applyhookfn.  Ignores these hooks once, for the top-level evaluation of Form.")
(CL:PROCLAIM (QUOTE (CL:SPECIAL *EVALHOOK*)))
(OR (BOUNDP (QUOTE *EVALHOOK*)) (CL:SETQ *EVALHOOK* NIL))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *APPLYHOOK*)))
(OR (BOUNDP (QUOTE *APPLYHOOK*)) (CL:SETQ *APPLYHOOK* NIL))
(CL:PROCLAIM (QUOTE (CL:SPECIAL CL::*SKIP-EVALHOOK*)))
(OR (BOUNDP (QUOTE CL::*SKIP-EVALHOOK*)) (CL:SETQ CL::*SKIP-EVALHOOK* NIL))
(SET-DOCUMENTATION (QUOTE CL::*SKIP-EVALHOOK*) (QUOTE CL:VARIABLE) 
"Used with non-null *EVALHOOK* to suppress the use of the hook-function
  for one level of eval.")
(CL:PROCLAIM (QUOTE (CL:SPECIAL CL::*SKIP-APPLYHOOK*)))
(OR (BOUNDP (QUOTE CL::*SKIP-APPLYHOOK*)) (CL:SETQ CL::*SKIP-APPLYHOOK* NIL))
(SET-DOCUMENTATION (QUOTE CL::*SKIP-APPLYHOOK*) (QUOTE CL:VARIABLE) 
"Used with non-null *APPLYHOOK* to suppress the use of the hook function
  for one level of eval.")
(CL::SET-SETF-INVERSE (QUOTE CL:CONSTANTP) (QUOTE XCL::SET-CONSTANTP))
(PUTPROP (QUOTE CL:SETQ) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-SETQ|))
(PUTPROP (QUOTE SETQ) (QUOTE SPECIAL-FORM) (QUOTE |interpret-SETQ|))
(SETF-MACRO-FUNCTION (QUOTE SETQ) (QUOTE |expand-SETQ|))
(SETF-MACRO-FUNCTION (QUOTE CL:PSETQ) (QUOTE CL::|expand-PSETQ|))
(SETF-MACRO-FUNCTION (QUOTE SETQQ) (QUOTE |expand-SETQQ|))
(PUTPROP (QUOTE CL:CATCH) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-CATCH|))
(PUTPROP (QUOTE CL:THROW) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-THROW|))
(PUTPROP (QUOTE CL:UNWIND-PROTECT) (QUOTE SPECIAL-FORM) (QUOTE 
CL::|interpret-UNWIND-PROTECT|))
(SETF-MACRO-FUNCTION (QUOTE PROG) (QUOTE CL::|expand-PROG|))
(SETF-MACRO-FUNCTION (QUOTE PROG*) (QUOTE CL::|expand-PROG*|))
(PUTPROP (QUOTE GO) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-GO|))
(PUTPROP (QUOTE CL:TAGBODY) (QUOTE SPECIAL-FORM) (QUOTE CL::|interpret-TAGBODY|))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *MACROEXPAND-HOOK*)))
(CL::SET-SETF-INVERSE (QUOTE XCL::DECL-SPECIFIER-P) (QUOTE 
XCL::SET-DECL-SPECIFIER-P))
(CL::SET-SETF-INVERSE (QUOTE XCL::GLOBALLY-NOTINLINE-P) (QUOTE 
XCL::SET-GLOBALLY-NOTINLINE-P))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPROGV.LCOM;1
(PUTPROP (QUOTE CL:PROGV) (QUOTE SPECIAL-FORM) (QUOTE CL::interpret-PROGV))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSPECIALFORMS.LCOM;1
(IL:SETF-MACRO-FUNCTION (QUOTE LOOP) (QUOTE |expand-LOOP|))
(IL:PUTPROP (QUOTE IDENTITY) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-IDENTITY|) (GET (QUOTE IDENTITY) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:SETF-MACRO-FUNCTION (QUOTE UNLESS) (QUOTE |expand-UNLESS|))
(IL:SETF-MACRO-FUNCTION (QUOTE WHEN) (QUOTE |expand-WHEN|))
(IL:SETF-MACRO-FUNCTION (QUOTE FLET) (QUOTE |expand-FLET|))
(IL:SETF-MACRO-FUNCTION (QUOTE LABELS) (QUOTE |expand-LABELS|))
(IL:SETF-MACRO-FUNCTION (QUOTE IL:SELECTQ) (QUOTE IL:|expand-SELECTQ|))
(IL:SETF-MACRO-FUNCTION (QUOTE DO) (QUOTE |expand-DO|))
(IL:SETF-MACRO-FUNCTION (QUOTE DO*) (QUOTE |expand-DO*|))
(IL:SETF-MACRO-FUNCTION (QUOTE DOLIST) (QUOTE |expand-DOLIST|))
(IL:SETF-MACRO-FUNCTION (QUOTE DOTIMES) (QUOTE |expand-DOTIMES|))
(IL:SETF-MACRO-FUNCTION (QUOTE CASE) (QUOTE |expand-CASE|))
(Property IL:* of IL:MACRO has been changed)
(PROCLAIM (QUOTE (SPECIAL IL:FILEPKGFLG IL:DFNFLG *READTABLE*)))
(PROCLAIM (CONS (QUOTE SPECIAL) IL:SYSSPECVARS))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLRESTART.LCOM;1
(CL::SET-PARSED-STRUCTURE (QUOTE RESTART) T (QUOTE (CL::PS RESTART 
MAKE-RESTART (IL:NAME IL:TAG IL:SELECTOR IL:TEST IL:REPORT INTERACTIVE-FN 
FUNCTION) CL::DATATYPE NIL NIL "RESTART-" (MAKE-RESTART) RESTART-P 
%RESTART-PRINTER COPY-RESTART NIL 0 NIL ((IL:NAME NIL T NIL (RESTART 0 
IL:POINTER) RESTART-NAME) (IL:TAG NIL T NIL (RESTART 2 IL:POINTER) 
RESTART-TAG) (IL:SELECTOR NIL T NIL (RESTART 4 IL:POINTER) RESTART-SELECTOR) 
(IL:TEST NIL T NIL (RESTART 6 IL:POINTER) RESTART-TEST) (IL:REPORT (QUOTE 
%RESTART-DEFAULT-REPORTER) T NIL (RESTART 8 IL:POINTER) RESTART-REPORT) (
INTERACTIVE-FN NIL T NIL (RESTART 10 IL:POINTER) RESTART-INTERACTIVE-FN) (
FUNCTION NIL T NIL (RESTART 12 IL:POINTER) RESTART-FUNCTION)) NIL NIL (
IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)
 NIL (:ACCESSOR :PREDICATE) NIL NIL NIL)))
(SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE RESTART) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((RESTART 0
 IL:POINTER) (RESTART 2 IL:POINTER) (RESTART 4 IL:POINTER) (RESTART 6 
IL:POINTER) (RESTART 8 IL:POINTER) (RESTART 10 IL:POINTER) (RESTART 12 
IL:POINTER))) 14 (QUOTE CL::STRUCTURE-OBJECT))
(IL:PUTPROP (QUOTE RESTART) (QUOTE :TYPE-EXPANDER) (QUOTE 
CL::TYPE-EXPAND-STRUCTURE))
(CL::ESTABLISH-PREDICATE (QUOTE RESTART))
(CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE RESTART))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLERROR.LCOM;1
(MOVD? (QUOTE SIMPLE-FORMAT) (QUOTE CL:FORMAT))
(CL::SET-PARSED-STRUCTURE (QUOTE PROCEED-CASE) T (QUOTE (CL::PS PROCEED-CASE 
MAKE-PROCEED-CASE (NAME TAG SELECTOR TEST REPORT CONDITIONS::INTERACTIVE-FN 
CL:FUNCTION) CL::DATATYPE NIL CONDITIONS:RESTART "%PROCEED-CASE-" (
MAKE-PROCEED-CASE) PROCEED-CASE-P CONDITIONS::%RESTART-PRINTER 
COPY-PROCEED-CASE NIL 0 NIL ((NAME NIL T NIL (PROCEED-CASE 0 POINTER) 
%PROCEED-CASE-NAME) (TAG NIL T NIL (PROCEED-CASE 2 POINTER) %PROCEED-CASE-TAG
) (SELECTOR NIL T NIL (PROCEED-CASE 4 POINTER) %PROCEED-CASE-SELECTOR) (TEST 
NIL T NIL (PROCEED-CASE 6 POINTER) %PROCEED-CASE-TEST) (REPORT (QUOTE 
CONDITIONS::%RESTART-DEFAULT-REPORTER) T NIL (PROCEED-CASE 8 POINTER) 
%PROCEED-CASE-REPORT) (CONDITIONS::INTERACTIVE-FN NIL T NIL (PROCEED-CASE 10 
POINTER) %PROCEED-CASE-INTERACTIVE-FN) (CL:FUNCTION NIL T NIL (PROCEED-CASE 
12 POINTER) %PROCEED-CASE-FUNCTION)) NIL NIL (POINTER POINTER POINTER POINTER
 POINTER POINTER POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL)))
(SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE PROCEED-CASE) (QUOTE (POINTER POINTER
 POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((PROCEED-CASE 0 POINTER) (
PROCEED-CASE 2 POINTER) (PROCEED-CASE 4 POINTER) (PROCEED-CASE 6 POINTER) (
PROCEED-CASE 8 POINTER) (PROCEED-CASE 10 POINTER) (PROCEED-CASE 12 POINTER)))
 14 (QUOTE CONDITIONS:RESTART))
(PUTPROP (QUOTE PROCEED-CASE) (QUOTE :TYPE-EXPANDER) (QUOTE 
CL::TYPE-EXPAND-STRUCTURE))
(CL::ESTABLISH-PREDICATE (QUOTE PROCEED-CASE))
(CL::ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PROCEED-CASE))
(CL:PROCLAIM (QUOTE (GLOBAL SI::NLSETQ-PROCEED-CASE)))
(SETTOPVAL (QUOTE SI::NLSETQ-PROCEED-CASE) (MAKE-PROCEED-CASE :NAME (QUOTE 
ABORT) :SELECTOR 0 :TEST NIL :REPORT "Unwind to ERRORSET"))
(SET-DOCUMENTATION (QUOTE SI::NLSETQ-PROCEED-CASE) (QUOTE CL:VARIABLE) 
"The prototype proceed-case object for NLSETQ.")
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSYMBOL.LCOM;1
(IL:MOVD (QUOTE IL:GETPROPLIST) (QUOTE SYMBOL-PLIST))
(PROCLAIM (QUOTE (SPECIAL *GENSYM-COUNTER*)))
(OR (BOUNDP (QUOTE *GENSYM-COUNTER*)) (SETQ *GENSYM-COUNTER* 0))
(PROCLAIM (QUOTE (SPECIAL *GENSYM-PREFIX*)))
(OR (BOUNDP (QUOTE *GENSYM-PREFIX*)) (SETQ *GENSYM-PREFIX* "G"))
(PROCLAIM (QUOTE (SPECIAL *GENTEMP-COUNTER*)))
(OR (BOUNDP (QUOTE *GENTEMP-COUNTER*)) (SETQ *GENTEMP-COUNTER* 0))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPACKAGE.LCOM;1
(IL:SETF-MACRO-FUNCTION (QUOTE IL:\\FATCHARSEENP) (QUOTE 
IL:|expand-\\FATCHARSEENP|))
(IL:SETF-MACRO-FUNCTION (QUOTE IL:\\PACKAGIFY) (QUOTE IL:|expand-\\PACKAGIFY|
))
(IL:SET-DOCUMENTATION (QUOTE IL:\\PACKAGIFY) (QUOTE FUNCTION) 
"If OBJ isn't already a package, turn the symbol or string into the package of that name.")
(IL:SETF-MACRO-FUNCTION (QUOTE IL:\\STRING-EQUALBASE) (QUOTE 
IL:|expand-\\STRING-EQUALBASE|))
(IL:SET-DOCUMENTATION (QUOTE IL:\\STRING-EQUALBASE) (QUOTE FUNCTION) 
"Compare a string to another string, with the second given in base offset length form.")
(IL:SETF-MACRO-FUNCTION (QUOTE IL:NUMERIC-UPCASE) (QUOTE 
IL:|expand-NUMERIC-UPCASE|))
(IL:SET-DOCUMENTATION (QUOTE IL:APROPOS-SEARCH) (QUOTE FUNCTION) 
"The symbol to substring comparison macro for APROPOS and APROPOS-LIST.  The string is assumed to already be uppercase.")
(SET-PARSED-STRUCTURE (QUOTE PACKAGE-HASHTABLE) T (QUOTE (PS 
PACKAGE-HASHTABLE %MAKE-PACKAGE-HASHTABLE (TABLE HASH SIZE FREE DELETED) 
DATATYPE NIL NIL "PACKAGE-HASHTABLE-" (%MAKE-PACKAGE-HASHTABLE) 
PACKAGE-HASHTABLE-P PRINT-PACKAGE-HASHTABLE NIL NIL 0 NIL ((TABLE NIL T NIL (
PACKAGE-HASHTABLE 0 IL:POINTER) PACKAGE-HASHTABLE-TABLE) (HASH NIL T NIL (
PACKAGE-HASHTABLE 2 IL:POINTER) PACKAGE-HASHTABLE-HASH) (SIZE NIL T NIL (
PACKAGE-HASHTABLE 4 IL:POINTER) PACKAGE-HASHTABLE-SIZE) (FREE NIL T NIL (
PACKAGE-HASHTABLE 6 IL:POINTER) PACKAGE-HASHTABLE-FREE) (DELETED NIL T NIL (
PACKAGE-HASHTABLE 8 IL:POINTER) PACKAGE-HASHTABLE-DELETED)) NIL 
"Packages are implemented using a special kind of hashtable (this one).  It is an open hashtable with a parallel 8-bit I-vector of hash-codes.  The primary purpose of the hash for each entry is to reduce paging by allowing collisions and misses to be detected without paging in the symbol and pname for an entry.  If the hash for an entry doesn't match that for the symbol that we are looking for, then we can go on without touching the symbol, pname, or even hastable vector.  It turns out that, contrary to my expectations, paging is a very important consideration the design of the package representation.  Using a similar scheme without the entry hash, the fasloader was spending more than half its time paging in INTERN.  The hash code also indicates the status of an entry.  If it zero, the the entry is unused.  If it is one, then it is deleted.  Double-hashing is used for collision resolution." (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL))
)
(SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE PACKAGE-HASHTABLE) (QUOTE (IL:POINTER
 IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((PACKAGE-HASHTABLE 0 
IL:POINTER) (PACKAGE-HASHTABLE 2 IL:POINTER) (PACKAGE-HASHTABLE 4 IL:POINTER)
 (PACKAGE-HASHTABLE 6 IL:POINTER) (PACKAGE-HASHTABLE 8 IL:POINTER))) 10 (
QUOTE STRUCTURE-OBJECT))
(IL:PUTPROP (QUOTE PACKAGE-HASHTABLE) (QUOTE :TYPE-EXPANDER) (QUOTE 
TYPE-EXPAND-STRUCTURE))
(ESTABLISH-PREDICATE (QUOTE PACKAGE-HASHTABLE))
(ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PACKAGE-HASHTABLE))
(IL:SET-DOCUMENTATION (QUOTE PACKAGE-HASHTABLE) (QUOTE STRUCTURE) 
"Packages are implemented using a special kind of hashtable (this one).  It is an open hashtable with a parallel 8-bit I-vector of hash-codes.  The primary purpose of the hash for each entry is to reduce paging by allowing collisions and misses to be detected without paging in the symbol and pname for an entry.  If the hash for an entry doesn't match that for the symbol that we are looking for, then we can go on without touching the symbol, pname, or even hastable vector.  It turns out that, contrary to my expectations, paging is a very important consideration the design of the package representation.  Using a similar scheme without the entry hash, the fasloader was spending more than half its time paging in INTERN.  The hash code also indicates the status of an entry.  If it zero, the the entry is unused.  If it is one, then it is deleted.  Double-hashing is used for collision resolution.")
(SET-PARSED-STRUCTURE (QUOTE PACKAGE) T (QUOTE (PS PACKAGE %MAKE-PACKAGE (
INDEX TABLES NAME NAMESYMBOL NICKNAMES USE-LIST USED-BY-LIST EXTERNAL-ONLY 
INTERNAL-SYMBOLS EXTERNAL-SYMBOLS SHADOWING-SYMBOLS) DATATYPE NIL NIL 
%PACKAGE- (%MAKE-PACKAGE) PACKAGEP PRINT-PACKAGE COPY-PACKAGE NIL 0 NIL ((
INDEX NIL T NIL (PACKAGE 0 IL:POINTER) %PACKAGE-INDEX) (TABLES (LIST NIL) T 
NIL (PACKAGE 2 IL:POINTER) %PACKAGE-TABLES) (NAME NIL T NIL (PACKAGE 4 
IL:POINTER) %PACKAGE-NAME) (NAMESYMBOL NIL T NIL (PACKAGE 6 IL:POINTER) 
%PACKAGE-NAMESYMBOL) (NICKNAMES NIL T NIL (PACKAGE 8 IL:POINTER) 
%PACKAGE-NICKNAMES) (USE-LIST NIL T NIL (PACKAGE 10 IL:POINTER) 
%PACKAGE-USE-LIST) (USED-BY-LIST NIL T NIL (PACKAGE 12 IL:POINTER) 
%PACKAGE-USED-BY-LIST) (EXTERNAL-ONLY NIL T NIL (PACKAGE 14 IL:POINTER) 
%PACKAGE-EXTERNAL-ONLY) (INTERNAL-SYMBOLS NIL T NIL (PACKAGE 16 IL:POINTER) 
%PACKAGE-INTERNAL-SYMBOLS) (EXTERNAL-SYMBOLS NIL T NIL (PACKAGE 18 IL:POINTER
) %PACKAGE-EXTERNAL-SYMBOLS) (SHADOWING-SYMBOLS NIL T NIL (PACKAGE 20 
IL:POINTER) %PACKAGE-SHADOWING-SYMBOLS)) NIL NIL (IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER 
IL:POINTER IL:POINTER) NIL (:ACCESSOR :PREDICATE) NIL NIL NIL)))
(SI::%STRUCTURE-DECLARE-DATATYPE (QUOTE PACKAGE) (QUOTE (IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER IL:POINTER)) (QUOTE ((PACKAGE 0 IL:POINTER) (PACKAGE 2 IL:POINTER) (PACKAGE 4 IL:POINTER) (PACKAGE 6 IL:POINTER) (PACKAGE 8 IL:POINTER) (
PACKAGE 10 IL:POINTER) (PACKAGE 12 IL:POINTER) (PACKAGE 14 IL:POINTER) (
PACKAGE 16 IL:POINTER) (PACKAGE 18 IL:POINTER) (PACKAGE 20 IL:POINTER))) 22 (
QUOTE STRUCTURE-OBJECT))
(IL:PUTPROP (QUOTE PACKAGE) (QUOTE :TYPE-EXPANDER) (QUOTE 
TYPE-EXPAND-STRUCTURE))
(ESTABLISH-PREDICATE (QUOTE PACKAGE))
(ESTABLISH-SETFS-AND-OPTIMIZERS (QUOTE PACKAGE))
(IL:SET-DOCUMENTATION (QUOTE IL:MAKE-PACKAGE-HASHTABLE) (QUOTE FUNCTION) 
"Make a package hashtable having a prime number of entries at least as great as (/ size package-rehash-threshold).  If Res is supplied, then it is destructively modified to produce the result. This is useful when changing the size, since there are many pointers to the hashtable.")
(PROCLAIM (QUOTE (SPECIAL *PACKAGE*)))
(OR (BOUNDP (QUOTE *PACKAGE*)) (SETQ *PACKAGE* NIL))
(IL:SET-DOCUMENTATION (QUOTE *PACKAGE*) (QUOTE VARIABLE) 
"The current package, in which read symbols are intern'ed.")
(PROCLAIM (QUOTE (SPECIAL XCL::*UNSAFE-TO-DELETE-PACKAGE-NAMES*)))
(OR (BOUNDP (QUOTE XCL::*UNSAFE-TO-DELETE-PACKAGE-NAMES*)) (SETQ 
XCL::*UNSAFE-TO-DELETE-PACKAGE-NAMES* (QUOTE ("LISP" "INTERLISP" 
"XEROX-COMMON-LISP"))))
(IL:SET-DOCUMENTATION (QUOTE XCL::*UNSAFE-TO-DELETE-PACKAGE-NAMES*) (QUOTE 
VARIABLE) "Packages whose deletion requires confirmation.")
(PROCLAIM (QUOTE (XCL:GLOBAL IL:*LISP-PACKAGE*)))
(OR (BOUNDP (QUOTE IL:*LISP-PACKAGE*)) (SETQ IL:*LISP-PACKAGE* NIL))
(IL:SET-DOCUMENTATION (QUOTE IL:*LISP-PACKAGE*) (QUOTE VARIABLE) 
"Global for internal references to the lisp package.")
(PROCLAIM (QUOTE (XCL:GLOBAL IL:*KEYWORD-PACKAGE*)))
(OR (BOUNDP (QUOTE IL:*KEYWORD-PACKAGE*)) (SETQ IL:*KEYWORD-PACKAGE* NIL))
(IL:SET-DOCUMENTATION (QUOTE IL:*KEYWORD-PACKAGE*) (QUOTE VARIABLE) 
"Global for internal references to the keyword package.")
(PROCLAIM (QUOTE (XCL:GLOBAL IL:*INTERLISP-PACKAGE*)))
(OR (BOUNDP (QUOTE IL:*INTERLISP-PACKAGE*)) (SETQ IL:*INTERLISP-PACKAGE* NIL)
)
(IL:SET-DOCUMENTATION (QUOTE IL:*INTERLISP-PACKAGE*) (QUOTE VARIABLE) 
"Global for internal references to the interlisp package.")
(XCL::SET-CONSTANTP (QUOTE IL:HASHTABLE-SIZE-LIMIT) NIL)
(PROCLAIM (QUOTE (SI::CONSTANT IL:HASHTABLE-SIZE-LIMIT)))
(IL:SET-DOCUMENTATION (QUOTE IL:HASHTABLE-SIZE-LIMIT) (QUOTE VARIABLE) 
"The maximum (inclusive, prime) limit to the size of a hashtable.")
(PROCLAIM (QUOTE (SPECIAL IL:PACKAGE-REHASH-THRESHOLD)))
(IL:SET-DOCUMENTATION (QUOTE IL:PACKAGE-REHASH-THRESHOLD) (QUOTE VARIABLE) 
"The maximum density allowed in a package hashtable")
(XCL::SET-CONSTANTP (QUOTE IL:PRIME-HASHTABLE-SIZES) NIL)
(PROCLAIM (QUOTE (SI::CONSTANT IL:PRIME-HASHTABLE-SIZES)))
(IL:SET-DOCUMENTATION (QUOTE IL:PRIME-HASHTABLE-SIZES) (QUOTE VARIABLE) 
"Some valid (prime) hashtable sizes.")
(IL:SET-DOCUMENTATION (QUOTE MAKE-SYMBOL) (QUOTE FUNCTION) 
"Make an uninterned symbol.")
(PROCLAIM (QUOTE (XCL:GLOBAL IL:*PACKAGE-FROM-NAME*)))
(OR (BOUNDP (QUOTE IL:*PACKAGE-FROM-NAME*)) (SETQ IL:*PACKAGE-FROM-NAME* (
IL:HASHARRAY 255 (QUOTE IL:ERROR) (QUOTE IL:STRINGHASHBITS) (QUOTE IL:STREQUAL))))
(IL:SET-DOCUMENTATION (QUOTE IL:*PACKAGE-FROM-NAME*) (QUOTE VARIABLE) 
"An equal hashtable from package names to packages.")
(PROCLAIM (QUOTE (XCL:GLOBAL IL:*PACKAGE-FROM-INDEX*)))
(OR (BOUNDP (QUOTE IL:*PACKAGE-FROM-INDEX*)) (SETQ IL:*PACKAGE-FROM-INDEX* (
MAKE-ARRAY 256 (QUOTE :INITIAL-ELEMENT) NIL)))
(IL:SET-DOCUMENTATION (QUOTE IL:*PACKAGE-FROM-INDEX*) (QUOTE VARIABLE) 
"Index to package converter.")
(XCL::SET-CONSTANTP (QUOTE XCL:*TOTAL-PACKAGES-LIMIT*) NIL)
(PROCLAIM (QUOTE (SI::CONSTANT XCL:*TOTAL-PACKAGES-LIMIT*)))
(IL:SET-DOCUMENTATION (QUOTE XCL:*TOTAL-PACKAGES-LIMIT*) (QUOTE VARIABLE) 
"The total number of packages that the system may have (excluding the 'uninterned' package).")
(XCL::SET-CONSTANTP (QUOTE IL:*UNINTERNED-PACKAGE-INDEX*) NIL)
(PROCLAIM (QUOTE (SI::CONSTANT IL:*UNINTERNED-PACKAGE-INDEX*)))
(IL:SET-DOCUMENTATION (QUOTE IL:*UNINTERNED-PACKAGE-INDEX*) (QUOTE VARIABLE) 
"Package index value for uninterned symbols.  The function \\PKG-FIND-FREE-PACKAGE-INDEX and the constant *UNINTERNED-PACKAGE-INDEX* are arranged so that SYMBOL-PACKAGE can find NIL in the index vector and NIL can also be the free slot marker.  *UNINTERNED-PACKAGE-INDEX* must be zero, otherwise change \\PKG-FIND-FREE-PACKAGE-INDEX .")
(IL:SET-DOCUMENTATION (QUOTE IL:\\PKG-FIND-FREE-PACKAGE-INDEX) (QUOTE 
FUNCTION) 
"Return the next free table index for a package.  Starts counting at 1 because 0 is for uninterned symbols.")
(IL:SETF-MACRO-FUNCTION (QUOTE IL:SYMBOL-HASH) (QUOTE IL:|expand-SYMBOL-HASH|
))
(IL:SET-DOCUMENTATION (QUOTE IL:SYMBOL-HASH) (QUOTE FUNCTION) 
"Returns the atom hash of the given string")
(IL:SETF-MACRO-FUNCTION (QUOTE IL:REHASH-FACTOR) (QUOTE 
IL:|expand-REHASH-FACTOR|))
(IL:SETF-MACRO-FUNCTION (QUOTE IL:SYMBOL-HASH-REPROBE) (QUOTE 
IL:|expand-SYMBOL-HASH-REPROBE|))
(IL:SETF-MACRO-FUNCTION (QUOTE IL:ENTRY-HASH) (QUOTE IL:|expand-ENTRY-HASH|))
(IL:SET-DOCUMENTATION (QUOTE IL:ENTRY-HASH) (QUOTE FUNCTION) 
"Compute a number from the sxhash of the pname and the length which must be between 2 and 255.")
(IL:SETF-MACRO-FUNCTION (QUOTE IL:COUNT-PACKAGE-HASHTABLE) (QUOTE 
IL:|expand-COUNT-PACKAGE-HASHTABLE|))
(IL:SET-DOCUMENTATION (QUOTE IL:COUNT-PACKAGE-HASHTABLE) (QUOTE FUNCTION) 
"Return two values: free elements and total size.")
(IL:SET-DOCUMENTATION (QUOTE IL:ENTER-NEW-NICKNAMES) (QUOTE FUNCTION) 
"Enter any new Nicknames for Package into *package-names*.  If there is a conflict then give the user a chance to do something about it.")
(IL:SET-DOCUMENTATION (QUOTE IL:MAKE-PRIME-HASHTABLE-SIZE) (QUOTE FUNCTION) 
"Find an appropriate size based on the expected number of elements, N, the rehash threshold and the limit on array size.")
(IL:SET-DOCUMENTATION (QUOTE MAKE-PACKAGE) (QUOTE FUNCTION) 
"Check for package name conflicts in name and nicknames, then make the package.  Do a use-package for each thing in the use list so that checking for conflicting exports among used packages is done.")
(IL:SET-DOCUMENTATION (QUOTE FIND-PACKAGE) (QUOTE FUNCTION) 
"Given a name, find the package with that name or nickname")
(IL:SET-DOCUMENTATION (QUOTE USE-PACKAGE) (QUOTE FUNCTION) 
"Make a package use (inherit) symbols from others.  Checks for name-conflicts.")
(IL:SET-DOCUMENTATION (QUOTE IN-PACKAGE) (QUOTE FUNCTION) 
"Like Make-Package, but also makes the created package current.")
(IL:SET-DOCUMENTATION (QUOTE XCL:PKG-GOTO) (QUOTE FUNCTION) 
"Like in-package, but confirms creation of new packages.")
(IL:SET-DOCUMENTATION (QUOTE RENAME-PACKAGE) (QUOTE FUNCTION) 
"Change the name if we can, blast any old nicknames and then add in any new ones.")
(IL:SET-DOCUMENTATION (QUOTE EXPORT) (QUOTE FUNCTION) 
"Make the symbols external in the package.")
(IL:SET-DOCUMENTATION (QUOTE UNEXPORT) (QUOTE FUNCTION) 
"Check that all symbols are available, then move from external to internal.")
(IL:SET-DOCUMENTATION (QUOTE IMPORT) (QUOTE FUNCTION) 
"Make the symbol internal in the package, noting name conflicts.")
(IL:SET-DOCUMENTATION (QUOTE SHADOWING-IMPORT) (QUOTE FUNCTION) 
"If a conflicting symbol is present, unintern it, otherwise just stick the symbol in.")
(IL:SET-DOCUMENTATION (QUOTE SHADOW) (QUOTE FUNCTION) 
"Hide the existing symbols with new ones in the package.")
(IL:SET-DOCUMENTATION (QUOTE UNUSE-PACKAGE) (QUOTE FUNCTION) 
"Remove some packages from the use (inherit) list of another package.")
(IL:SET-DOCUMENTATION (QUOTE LIST-ALL-PACKAGES) (QUOTE FUNCTION) 
"Return a list of the names of all existing packages.")
(IL:SET-DOCUMENTATION (QUOTE IL:ADD-SYMBOL) (QUOTE FUNCTION) 
"Add a symbol to a package hashtable.  The symbol is assumed not to be present.")
(IL:SETF-MACRO-FUNCTION (QUOTE IL:WITH-SYMBOL) (QUOTE IL:|expand-WITH-SYMBOL|
))
(IL:SET-DOCUMENTATION (QUOTE IL:WITH-SYMBOL) (QUOTE FUNCTION) 
"Find where the symbol named String is stored in Table.  Index-Var is bound to the index, or NIL if it is not present.  Symbol-Var is bound to the symbol.  Length and Hash are the length and sxhash of String.  Entry-Hash is the entry-hash of the string and length.")
(IL:SET-DOCUMENTATION (QUOTE IL:INTERN*) (QUOTE FUNCTION) 
"If the symbol doesn't exist then create it, special-casing the keyword package.")
(IL:SET-DOCUMENTATION (QUOTE IL:FIND-SYMBOL*) (QUOTE FUNCTION) 
"Check internal and external symbols, then scan down the list of hashtables for inherited symbols. When an inherited symbol is found pull that table to the beginning of the list.")
(IL:SET-DOCUMENTATION (QUOTE INTERN) (QUOTE FUNCTION) 
"Intern the name in the package, returning a symbol.")
(IL:SET-DOCUMENTATION (QUOTE FIND-SYMBOL) (QUOTE FUNCTION) 
"Find a symbol with the given name in a package.")
(IL:SET-DOCUMENTATION (QUOTE IL:NUKE-SYMBOL) (QUOTE FUNCTION) 
"Mark a symbol in a package-hashtable deleted")
(IL:SET-DOCUMENTATION (QUOTE UNINTERN) (QUOTE FUNCTION) 
"Remove a symbol from a package.  If uninterning a shadowing symbol, then a name conflict can result, otherwise just nuke the symbol.")
(IL:SET-DOCUMENTATION (QUOTE IL:MOBY-UNINTERN) (QUOTE FUNCTION) 
"Like Unintern, but if symbol is inherited chases down the package it is inherited from and uninterns it there.  Used for name-conflict resolution.  Shadowing symbols are not uninterned since they do not cause conflicts.")
(IL:SETF-MACRO-FUNCTION (QUOTE DO-EXTERNAL-SYMBOLS) (QUOTE 
|expand-DO-EXTERNAL-SYMBOLS|))
(IL:SET-DOCUMENTATION (QUOTE DO-EXTERNAL-SYMBOLS) (QUOTE FUNCTION) 
"Do-External-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms once for each external symbol in the given Package with Var bound to the current symbol.")
(IL:SETF-MACRO-FUNCTION (QUOTE XCL:DO-LOCAL-SYMBOLS) (QUOTE 
XCL::|expand-DO-LOCAL-SYMBOLS|))
(IL:SET-DOCUMENTATION (QUOTE XCL:DO-LOCAL-SYMBOLS) (QUOTE FUNCTION) 
"Do-Local-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms at least once for each symbol actually in the given Package with Var bound to the current symbol.")
(IL:SETF-MACRO-FUNCTION (QUOTE XCL:DO-INTERNAL-SYMBOLS) (QUOTE 
XCL::|expand-DO-INTERNAL-SYMBOLS|))
(IL:SET-DOCUMENTATION (QUOTE XCL:DO-INTERNAL-SYMBOLS) (QUOTE FUNCTION) 
"Do-Internal-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms at least once for each symbol actually in the given Package and not exported with Var bound to the current symbol.")
(IL:SETF-MACRO-FUNCTION (QUOTE DO-SYMBOLS) (QUOTE |expand-DO-SYMBOLS|))
(IL:SET-DOCUMENTATION (QUOTE DO-SYMBOLS) (QUOTE FUNCTION) 
"Do-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms at least once for each symbol accessible in the given Package with Var bound to the current symbol.")
(IL:SETF-MACRO-FUNCTION (QUOTE DO-ALL-SYMBOLS) (QUOTE |expand-DO-ALL-SYMBOLS|
))
(IL:SET-DOCUMENTATION (QUOTE DO-ALL-SYMBOLS) (QUOTE FUNCTION) 
"Do-All-Symbols (Var [Package [Result-Form]]) {Declaration}* {Tag | Statement}* Executes the Forms once for each symbol in each package with Var bound to the current symbol.")
(IL:SET-DOCUMENTATION (QUOTE FIND-ALL-SYMBOLS) (QUOTE FUNCTION) 
"Find every symbol in all packages with the given name.")
(IL:SET-DOCUMENTATION (QUOTE IL:BRIEFLY-DESCRIBE-SYMBOL) (QUOTE FUNCTION) 
"Short form description of a symbol.")
(IL:SET-DOCUMENTATION (QUOTE APROPOS) (QUOTE FUNCTION) 
"Find all symbols matching the string pattern in the given (or current) package.  The search can be limited to external symbols only.  Prints a short description of each found symbols.")
(IL:SET-DOCUMENTATION (QUOTE APROPOS-LIST) (QUOTE FUNCTION) 
"Find all symbols matching the string pattern in the given (or current) package.  The search can be limited to external symbols only.  Returns a list of the matching symbols.")
(IL:SET-DOCUMENTATION (QUOTE IL:FIND-EXACT-SYMBOL) (QUOTE FUNCTION) 
"True if name of SYMBOL when looked up in PACKAGE is found and is exactly SYMBOL")
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.LCOM;1
(MOVD? (QUOTE ERROR-MISSING-EXTERNAL-SYMBOL) (QUOTE 
RESOLVE-MISSING-EXTERNAL-SYMBOL))
(MOVD? (QUOTE ERROR) (QUOTE RESOLVE-MISSING-PACKAGE))
(MOVD? (QUOTE ERROR) (QUOTE RESOLVE-USE-PACKAGE-CONFLICT))
(MOVD? (QUOTE ERROR) (QUOTE RESOLVE-EXPORT-CONFLICT))
(MOVD? (QUOTE ERROR) (QUOTE RESOLVE-EXPORT-MISSING-CONFLICT))
(MOVD? (QUOTE ERROR) (QUOTE RESOLVE-IMPORT-CONFLICT))
(MOVD? (QUOTE ERROR) (QUOTE RESOLVE-UNINTERN-CONFLICT))
(MOVD? (QUOTE RETURN-FIRST-OF-THREE) (QUOTE RESOLVE-READER-CONFLICT))
(SET-DOCUMENTATION (QUOTE CHECK-SYMBOL-NAMESTRING) (QUOTE CL:FUNCTION) 
"Check whether a symbol would rather be in a package.")
(SET-DOCUMENTATION (QUOTE \\NEW.READ.SYMBOL) (QUOTE CL:FUNCTION) 
"Read a number or symbol from the string defined by BASE OFFSET LEN FATP PACKAGE is NIL if no package was specified, a package object or a string if an unknown package was typed (causes error).  EXTERNALP is true if symbol was typed with one colon, which requires that the symbol exist and be external (unless it was a keyword).  NONNUMERICP is true if we know the symbol is not a number, e.g., some characters in it were escaped.")
(SET-DOCUMENTATION (QUOTE \\NEW.MKATOM) (QUOTE CL:FUNCTION) 
"A version of \\MKATOM which makes symbols in the Interlisp package instead of the old litatom table.")
(CL:PROCLAIM (QUOTE (CL:SPECIAL LITATOM-PACKAGE-CONVERSION-ENABLED)))
(OR (BOUNDP (QUOTE LITATOM-PACKAGE-CONVERSION-ENABLED)) (CL:SETQ 
LITATOM-PACKAGE-CONVERSION-ENABLED NIL))
(CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.VARS)))
(CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.FNNAMES)))
(CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.DECLARATORS)))
(CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.TYPENAMES)))
(CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.MACROS)))
(CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.SPECIALFORMS)))
(CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.LAMBDA.LIST.KEYWORDS)))
(CL:PROCLAIM (QUOTE (CL:SPECIAL CMLSYMBOLS.SHARED)))
(CL:PROCLAIM (QUOTE (CL:SPECIAL LITATOM-PACKAGE-CONVERSION-TABLE)))
(OR (BOUNDP (QUOTE LITATOM-PACKAGE-CONVERSION-TABLE)) (CL:SETQ 
LITATOM-PACKAGE-CONVERSION-TABLE (QUOTE (("CL::" NIL "LISP" :INTERNAL) ("CL:"
 ("CL:FLG" "CL:MAKE-SYMBOL" "CL:COPY-SYMBOL" "CL:INTERN" "CL:MAKE-KEYWORD" 
"CL:GENTEMP" "CL:KEYWORDP") "LISP" :EXTERNAL) (":" NIL "KEYWORD" :EXTERNAL) (
"CONDITIONS::" NIL "CONDITIONS" :INTERNAL) ("CONDITIONS:" NIL "CONDITIONS" 
:EXTERNAL) ("XCL::" NIL "XCL" :INTERNAL) ("XCL:" NIL "XCL" :EXTERNAL) ("SI::"
 NIL "SI" :INTERNAL) ("SI:" NIL "SI" :EXTERNAL) ("COMPILER::" NIL "COMPILER" 
:INTERNAL) ("COMPILER:" NIL "COMPILER" :EXTERNAL) ("FASL::" NIL "FASL" 
:INTERNAL) ("FASL:" NIL "FASL" :EXTERNAL)))))
(SET-DOCUMENTATION (QUOTE TRANSFER-SYMBOL) (QUOTE CL:FUNCTION) 
"Move the function and plist definition cells of a symbol onto another, leaving name and value alone.")
(SET-DOCUMENTATION (QUOTE INTERN-LITATOM) (QUOTE CL:FUNCTION) 
"Tag a litatom with a package.  Add it to the package hashtable.  Handle keywords appropriately.  Return the symbol.")
(SET-DOCUMENTATION (QUOTE PACKAGE-INIT) (QUOTE CL:FUNCTION) 
"Clear, make structures of, initialize & convert symbols to, and enable use of the symbol package system.")
(SET-DOCUMENTATION (QUOTE PACKAGE-CLEAR) (QUOTE CL:FUNCTION) 
"Clear the global package data (used by FIND-PACKAGE) and reset the globals that hold the existing packages.")
(SET-DOCUMENTATION (QUOTE PACKAGE-MAKE) (QUOTE CL:FUNCTION) 
"Create, but do not fill with symbols, the base packages that need to exist.  Also enables the package qualifier characters in the readtables and saves the old definitions of \\READ.SYMBOL and \\MKATOM.")
(SET-DOCUMENTATION (QUOTE PACKAGE-ENABLE) (QUOTE CL:FUNCTION) 
"Turn on the package system, making PACKAGE the current one and redefining \\READ.SYMBOL and \\MKATOM appropriatly.")
(SET-DOCUMENTATION (QUOTE PACKAGE-DISABLE) (QUOTE CL:FUNCTION) 
"Turn off the package system and restore the old definitions of \\\\READ.SYMBOL and \\MKATOM.  After disabling, symbols interned under the package system will not be EQ to symbols of the same name reread.")
(MOVD? (QUOTE EQ) (QUOTE EQL))
(MOVD? (QUOTE LENGTH) (QUOTE CL:LENGTH))
(MOVD? (QUOTE ID) (QUOTE CL:IDENTITY))
(MOVD? (QUOTE ID) (QUOTE REMOVE-COMMENTS))
(PACKAGE-INIT)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-PACKAGE.LCOM;1
(IL:SET-DOCUMENTATION (QUOTE CL::NATURALIZE) (QUOTE FUNCTION) 
"Make a symbol, possibly in source, be in source and citizen and export of destination.")
(PROCLAIM (QUOTE (XCL:GLOBAL *FUTURE-CITIZENS-OF-CONDITIONS*)))
(IL:SET-DOCUMENTATION (QUOTE *FUTURE-CITIZENS-OF-CONDITIONS*) (QUOTE VARIABLE
) 
"Current citizens of XCL that should be in CONDITIONS: do not change this list!!!")
(XCL:DEFPACKAGE "CONDITIONS" (:EXPORT *BREAK-ON-SIGNALS* HANDLER-CASE 
WITH-SIMPLE-RESTART RESTART-CASE RESTART-BIND COMPUTE-RESTARTS RESTART-NAME 
FIND-RESTART INVOKE-RESTART INVOKE-RESTART-INTERACTIVELY CONTINUE 
MUFFLE-WARNING INVOKE-DEBUGGER RESTART TYPE-ERROR-DATUM PROGRAM-ERROR 
FILE-ERROR FILE-ERROR-PATHNAME DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW 
FLOATING-POINT-UNDERFLOW))
(MAPC (FUNCTION DEFECT-FROM-XCL-TO-CONDITIONS) 
*FUTURE-CITIZENS-OF-CONDITIONS*)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-PACKAGE.LCOM;1
(PROCLAIM (QUOTE (SPECIAL CL::FUTURE-CITIZENS-OF-XCL)))
(IL:SET-DOCUMENTATION (QUOTE CL::FUTURE-CITIZENS-OF-XCL) (QUOTE VARIABLE) 
"A list of names retroactively placed in XCL; do not add to it.")
(DEFPACKAGE "XEROX-COMMON-LISP" (:USE "LISP" "CONDITIONS") (:NICKNAMES "XCL")
 (:PREFIX-NAME "XCL") (:EXPORT ARGLIST SET-EXEC-TYPE SET-DEFAULT-EXEC-TYPE 
SYNONYM-STREAM-P SYNONYM-STREAM-SYMBOL FOLLOW-SYNONYM-STREAMS 
BROADCAST-STREAM-P BROADCAST-STREAM-STREAMS CONCATENATED-STREAM-P 
CONCATENATED-STREAM-STREAMS TWO-WAY-STREAM-P TWO-WAY-STREAM-INPUT-STREAM 
TWO-WAY-STREAM-OUTPUT-STREAM ECHO-STREAM-P ECHO-STREAM-INPUT-STREAM 
ECHO-STREAM-OUTPUT-STREAM STRING-STREAM-P OPEN-STREAM-P *CURRENT-CONDITION* 
*EVAL-FUNCTION* *EXEC-PROMPT* *DEBUGGER-PROMPT* MAKE-PROFILE RESTORE-PROFILE 
SAVE-PROFILE WITH-PROFILE COPY-PROFILE PROFILE-NAME PROFILE-P FIND-PROFILE 
LIST-ALL-PROFILES DEFPROFILE PROFILES *DEFAULT-PROFILE* *PROFILE* PACK PACK* 
*PRINT-STRUCTURE* DO-INTERNAL-SYMBOLS PKG-GOTO READ-CONFLICT 
READ-CONFLICT-NAME READ-CONFLICT-PACKAGES MISSING-EXTERNAL-SYMBOL 
MISSING-EXTERNAL-SYMBOL-NAME MISSING-EXTERNAL-SYMBOL-PACKAGE MISSING-PACKAGE 
MISSING-PACKAGE-PACKAGE-NAME MISSING-PACKAGE-SYMBOL-NAME 
MISSING-PACKAGE-EXTERNAL PACKAGE-ERROR PACKAGE-ERROR-PACKAGE SYMBOL-CONFLICT 
SYMBOL-CONFLICT-SYMBOLS USE-CONFLICT USE-CONFLICT-USED-PACKAGE 
EXPORT-CONFLICT EXPORT-CONFLICT-EXPORTED-SYMBOLS SYMBOL-COLON-ERROR 
ESCAPE-COLONS-PROCEED EXPORT-CONFLICT-PACAKGES EXPORT-MISSING 
EXPORT-MISSING-SYMBOLS IMPORT-CONFLICT UNINTERN-CONFLICT 
UNINTERN-CONFLICT-SYMBOL PREFER-CLSYM-PROCEED RETURN-CLSYM-PROCEED 
PREFER-ILSYM-PROCEED RETURN-ILSYM-PROCEED MAKE-EXTERNAL-PROCEED 
MAKE-INTERNAL-PROCEED NEW-PACKAGE-PROCEED UGLY-SYMBOL-PROCEED 
SHADOW-USE-CONFLICTS-PROCEED UNINTERN-USER-PROCEED UNINTERN-USEE-PROCEED 
UNINTERN-PROCEED IMPORT-PROCEED SHADOWING-IMPORT-PROCEED *TRACE-IO* 
HASH-TABLE-FULL HASH-TABLE-FULL-TABLE ATTEMPT-TO-CHANGE-CONSTANT 
ATTEMPT-TO-CHANGE-CONSTANT-NAME ATTEMPT-TO-RPLAC-NIL 
ATTEMPT-TO-RPLAC-NIL-NAME TYPE-ERROR-EXPECTED-TYPE SIMPLE-TYPE-ERROR 
SIMPLE-TYPE-ERROR-EXPECTED-TYPE SIMPLE-TYPE-ERROR-CULPRIT STREAM-NOT-OPEN 
STREAM-NOT-OPEN-STREAM SYMBOL-NAME-TOO-LONG SYMBOL-NAME-TOO-LONG-STREAM 
SYMBOL-HT-FULL ARRAY-SPACE-FULL DATA-TYPES-EXHAUSTED DEVICE-ERROR 
DEVICE-ERROR-DEVICE SIMPLE-DEVICE-ERROR SIMPLE-DEVICE-ERROR-DEVICE 
SIMPLE-DEVICE-ERROR-MESSAGE FS-ERROR FILE-WONT-OPEN FILE-WONT-OPEN-PATHNAME 
FS-RESOURCES-EXCEEDED FS-PROTECTION-VIOLATION ARITHMETIC-ERROR 
ARITHMETIC-ERROR-OPERATION ARITHMETIC-ERROR-OPERANDS FLOATING-OVERFLOW 
FLOATING-OVERFLOW-OPERATION FLOATING-OVERFLOW-OPERANDS FLOATING-UNDERFLOW 
FLOATING-UNDERFLOW-OPERATION FLOATING-UNDERFLOW-OPERANDS PATHNAME-ERROR 
PATHNAME-ERROR-PATHNAME FILE-NOT-FOUND FILE-NOT-FOUND-PATHNAME 
INVALID-PATHNAME INVALID-PATHNAME-PATHNAME CONTROL-E-INTERRUPT 
CONTROL-E-INTERRUPT-FUNCTION ASSERTION-FAILED ASSERTION-FAILED-FORMAT-STRING 
ASSERTION-FAILED-FORMAT-ARGUMENTS BAD-PROCEED-CASE BAD-PROCEED-CASE-NAME 
TYPE-MISMATCH TYPE-MISMATCH-EXPECTED-TYPE TYPE-MISMATCH-VALUE 
TYPE-MISMATCH-MESSAGE STORAGE-EXHAUSTED CREATE-TRACE-WINDOW UNBREAK-FUNCTION 
REBREAK-FUNCTION TRACE-FUNCTION *TRACE-LEVEL* *TRACE-LENGTH* *TRACE-VERBOSE* 
INNER REINSTALL-ADVICE ADVISE-FUNCTION UNADVISE-FUNCTION READVISE-FUNCTION 
ADVISED-FUNCTIONS DEFADVICE WITH-COLLECTION COLLECT ONCE-ONLY 
*SHORT-SITE-NAME* *LONG-SITE-NAME* DEFINER NAMED-PROGN COMPILE-DEFINER 
COMPILE-FORM FALSE FILE-ENVIRONMENTS DEFINE-FILE-ENVIRONMENT 
*BREAK-ON-SIGNALS* HANDLER-CASE WITH-SIMPLE-RESTART RESTART-CASE RESTART-BIND
 COMPUTE-RESTARTS RESTART-NAME FIND-RESTART INVOKE-RESTART 
INVOKE-RESTART-INTERACTIVELY CONTINUE MUFFLE-WARNING INVOKE-DEBUGGER RESTART 
TYPE-ERROR TYPE-ERROR-DATUM PROGRAM-ERROR FILE-ERROR FILE-ERROR-PATHNAME 
DIVISION-BY-ZERO FLOATING-POINT-OVERFLOW FLOATING-POINT-UNDERFLOW 
ROW-MAJOR-AREF RECORD-FETCH RECORD-FFETCH RECORD-CREATE DEFINE-RECORD 
PACKAGE-PREFIX))
(IL:MAPC CL::FUTURE-CITIZENS-OF-XCL (QUOTE CL::DEFECT-FROM-IL-TO-XCL))
(CL::CHECK-ALL)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROC.LCOM;1
(/DECLAREDATATYPE (QUOTE PROCESS) (QUOTE (WORD WORD BYTE POINTER BYTE POINTER
 BYTE POINTER FLAG FLAG FLAG FLAG FLAG FLAG FLAG FLAG POINTER POINTER POINTER
 POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER)) (QUOTE ((PROCESS 0 
(BITS . 15)) (PROCESS 1 (BITS . 15)) (PROCESS 2 (BITS . 7)) (PROCESS 4 
POINTER) (PROCESS 3 (BITS . 7)) (PROCESS 6 POINTER) (PROCESS 3 (BITS . 135)) 
(PROCESS 8 POINTER) (PROCESS 8 (FLAGBITS . 0)) (PROCESS 8 (FLAGBITS . 16)) (
PROCESS 8 (FLAGBITS . 32)) (PROCESS 8 (FLAGBITS . 48)) (PROCESS 6 (FLAGBITS
 . 0)) (PROCESS 6 (FLAGBITS . 16)) (PROCESS 6 (FLAGBITS . 32)) (PROCESS 6 (
FLAGBITS . 48)) (PROCESS 10 POINTER) (PROCESS 12 POINTER) (PROCESS 14 POINTER
) (PROCESS 16 POINTER) (PROCESS 18 POINTER) (PROCESS 20 POINTER) (PROCESS 22 
POINTER) (PROCESS 24 POINTER) (PROCESS 26 POINTER) (PROCESS 28 POINTER) (
PROCESS 30 POINTER) (PROCESS 32 POINTER) (PROCESS 34 POINTER) (PROCESS 36 
POINTER) (PROCESS 38 POINTER) (PROCESS 40 POINTER) (PROCESS 42 POINTER) (
PROCESS 44 POINTER) (PROCESS 46 POINTER) (PROCESS 48 POINTER) (PROCESS 50 
POINTER) (PROCESS 52 POINTER) (PROCESS 54 POINTER) (PROCESS 56 POINTER) (
PROCESS 58 POINTER) (PROCESS 60 POINTER) (PROCESS 62 POINTER) (PROCESS 64 
POINTER))) (QUOTE 66))
(/DECLAREDATATYPE (QUOTE PROCESSQUEUE) (QUOTE (BYTE POINTER POINTER POINTER 
POINTER)) (QUOTE ((PROCESSQUEUE 0 (BITS . 7)) (PROCESSQUEUE 2 POINTER) (
PROCESSQUEUE 4 POINTER) (PROCESSQUEUE 6 POINTER) (PROCESSQUEUE 8 POINTER))) (
QUOTE 10))
(SETTOPVAL (QUOTE \PROCESS.NAME.TABLE) (HASHARRAY 30 NIL (FUNCTION 
STRING-EQUAL-HASHBITS) (FUNCTION STRING-EQUAL)))
(MOVD? (QUOTE PROCESS.RETURN) (QUOTE KILL.ME) NIL T)
(/DECLAREDATATYPE (QUOTE EVENT) (QUOTE (FLAG (BITS 3) POINTER POINTER)) (
QUOTE ((EVENT 0 (FLAGBITS . 0)) (EVENT 0 (BITS . 18)) (EVENT 0 POINTER) (
EVENT 2 POINTER))) (QUOTE 4))
(/DECLAREDATATYPE (QUOTE MONITORLOCK) (QUOTE (FLAG FLAG (BITS 2) POINTER 
POINTER POINTER POINTER)) (QUOTE ((MONITORLOCK 0 (FLAGBITS . 0)) (MONITORLOCK
 0 (FLAGBITS . 16)) (MONITORLOCK 0 (BITS . 33)) (MONITORLOCK 0 POINTER) (
MONITORLOCK 2 POINTER) (MONITORLOCK 4 POINTER) (MONITORLOCK 6 POINTER))) (
QUOTE 8))
(SETTOPVAL (QUOTE \PROCTIMER.SCRATCH) (NCREATE (QUOTE FIXP)))
(DEFPRINT (QUOTE PROCESS) (FUNCTION \PROCESS.DEFPRINT))
(DEFPRINT (QUOTE EVENT) (FUNCTION \EVENT.DEFPRINT))
(DEFPRINT (QUOTE MONITORLOCK) (FUNCTION \MONITORLOCK.DEFPRINT))
(\PROCESS.INIT)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY.LCOM;1
(CL::SET-SETF-INVERSE (QUOTE XCL:ROW-MAJOR-AREF) (QUOTE CL::ROW-MAJOR-ASET))
(CL::SET-SETF-METHOD-EXPANDER (QUOTE CL:AREF) (QUOTE CL::|AREF-setf-expander|
))
(CL::SET-SETF-METHOD-EXPANDER (QUOTE BIT) (QUOTE CL::|BIT-setf-expander|))
(CL::SET-SETF-METHOD-EXPANDER (QUOTE CL:CHAR) (QUOTE CL::|CHAR-setf-expander|
))
(CL::SET-SETF-INVERSE (QUOTE CL:FILL-POINTER) (QUOTE SET-FILL-POINTER))
(CL::SET-SETF-METHOD-EXPANDER (QUOTE CL:SBIT) (QUOTE CL::|SBIT-setf-expander|
))
(CL::SET-SETF-METHOD-EXPANDER (QUOTE CL:SCHAR) (QUOTE CL::|SCHAR-setf-expander|))
(CL::SET-SETF-METHOD-EXPANDER (QUOTE CL:SVREF) (QUOTE CL::|SVREF-setf-expander|))
(PUTPROP (QUOTE CL:AREF) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::|optimize-AREF|) (GET (QUOTE CL:AREF) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE ASET) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
XCL::|optimize-ASET|) (GET (QUOTE ASET) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE BIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::|optimize-BIT|) (GET (QUOTE BIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::|optimize-CHAR|) (GET (QUOTE CL:CHAR) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:SBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::|optimize-SBIT|) (GET (QUOTE CL:SBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:SCHAR) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::|optimize-SCHAR|) (GET (QUOTE CL:SCHAR) (QUOTE COMPILER:OPTIMIZER-LIST)))
)
(PUTPROP (QUOTE CL:SVREF) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::|optimize-SVREF|) (GET (QUOTE CL:SVREF) (QUOTE COMPILER:OPTIMIZER-LIST)))
)
(XCL::SET-CONSTANTP (QUOTE CL:ARRAY-RANK-LIMIT) NIL)
(SETTOPVAL (QUOTE CL:ARRAY-RANK-LIMIT) (EXPT 2 7))
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:ARRAY-RANK-LIMIT)))
(XCL::SET-CONSTANTP (QUOTE CL:ARRAY-TOTAL-SIZE-LIMIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:ARRAY-TOTAL-SIZE-LIMIT)))
(XCL::SET-CONSTANTP (QUOTE CL:ARRAY-DIMENSION-LIMIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:ARRAY-DIMENSION-LIMIT)))
(CL:PROCLAIM (QUOTE (CL:SPECIAL *DEFAULT-PUSH-EXTENSION-SIZE*)))
(PUTPROP (QUOTE %ONED-ARRAY-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE |optimize-%ONED-ARRAY-P|) (GET (QUOTE %ONED-ARRAY-P) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE %TWOD-ARRAY-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE |optimize-%TWOD-ARRAY-P|) (GET (QUOTE %TWOD-ARRAY-P) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE %GENERAL-ARRAY-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN 
(QUOTE |optimize-%GENERAL-ARRAY-P|) (GET (QUOTE %GENERAL-ARRAY-P) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(/DECLAREDATATYPE (QUOTE GENERAL-ARRAY) (QUOTE ((BITS 4) POINTER FLAG FLAG 
FLAG FLAG FLAG FLAG FLAG FLAG (BITS 8) WORD FIXP FIXP POINTER)) (QUOTE ((
GENERAL-ARRAY 0 (BITS . 3)) (GENERAL-ARRAY 0 POINTER) (GENERAL-ARRAY 2 (
FLAGBITS . 0)) (GENERAL-ARRAY 2 (FLAGBITS . 16)) (GENERAL-ARRAY 2 (FLAGBITS
 . 32)) (GENERAL-ARRAY 2 (FLAGBITS . 48)) (GENERAL-ARRAY 2 (FLAGBITS . 64)) (
GENERAL-ARRAY 2 (FLAGBITS . 80)) (GENERAL-ARRAY 2 (FLAGBITS . 96)) (
GENERAL-ARRAY 2 (FLAGBITS . 112)) (GENERAL-ARRAY 2 (BITS . 135)) (
GENERAL-ARRAY 3 (BITS . 15)) (GENERAL-ARRAY 4 FIXP) (GENERAL-ARRAY 6 FIXP) (
GENERAL-ARRAY 8 POINTER))) (QUOTE 10))
(/DECLAREDATATYPE (QUOTE ONED-ARRAY) (QUOTE ((BITS 4) POINTER FLAG (BITS 1) 
FLAG FLAG (BITS 1) FLAG FLAG FLAG (BITS 8) WORD FIXP FIXP)) (QUOTE ((
ONED-ARRAY 0 (BITS . 3)) (ONED-ARRAY 0 POINTER) (ONED-ARRAY 2 (FLAGBITS . 0))
 (ONED-ARRAY 2 (BITS . 16)) (ONED-ARRAY 2 (FLAGBITS . 32)) (ONED-ARRAY 2 (
FLAGBITS . 48)) (ONED-ARRAY 2 (BITS . 64)) (ONED-ARRAY 2 (FLAGBITS . 80)) (
ONED-ARRAY 2 (FLAGBITS . 96)) (ONED-ARRAY 2 (FLAGBITS . 112)) (ONED-ARRAY 2 (
BITS . 135)) (ONED-ARRAY 3 (BITS . 15)) (ONED-ARRAY 4 FIXP) (ONED-ARRAY 6 
FIXP))) (QUOTE 8))
(/DECLAREDATATYPE (QUOTE TWOD-ARRAY) (QUOTE ((BITS 4) POINTER FLAG (BITS 1) 
FLAG (BITS 4) FLAG (BITS 8) FIXP FIXP FIXP)) (QUOTE ((TWOD-ARRAY 0 (BITS . 3)
) (TWOD-ARRAY 0 POINTER) (TWOD-ARRAY 2 (FLAGBITS . 0)) (TWOD-ARRAY 2 (BITS . 
16)) (TWOD-ARRAY 2 (FLAGBITS . 32)) (TWOD-ARRAY 2 (BITS . 51)) (TWOD-ARRAY 2 
(FLAGBITS . 112)) (TWOD-ARRAY 2 (BITS . 135)) (TWOD-ARRAY 3 FIXP) (TWOD-ARRAY
 5 FIXP) (TWOD-ARRAY 7 FIXP))) (QUOTE 10))
(DEFPRINT (QUOTE ONED-ARRAY) (QUOTE %DEFPRINT-VECTOR))
(DEFPRINT (QUOTE TWOD-ARRAY) (QUOTE %DEFPRINT-ARRAY))
(DEFPRINT (QUOTE GENERAL-ARRAY) (QUOTE %DEFPRINT-ARRAY))
(PUTPROP (QUOTE %ARRAY-READ) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE |optimize-%ARRAY-READ|) (GET (QUOTE %ARRAY-READ) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE %ARRAY-WRITE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE |optimize-%ARRAY-WRITE|) (GET (QUOTE %ARRAY-WRITE) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSK.LCOM;1
(SETTOPVAL (QUOTE \DSKtopMonitor) (CREATE.MONITORLOCK "DSKTopMonitor"))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.LCOM;3
(SETTOPVAL (QUOTE \UFStopMonitor) (CREATE.MONITORLOCK "UFSTopMonitor"))
(/DECLAREDATATYPE (QUOTE UFSGENFILESTATE) (QUOTE (FIXP FIXP FIXP POINTER 
POINTER FLAG POINTER FIXP POINTER FIXP FIXP FIXP FIXP POINTER FIXP POINTER 
POINTER POINTER)) (QUOTE ((UFSGENFILESTATE 0 FIXP) (UFSGENFILESTATE 2 FIXP) (
UFSGENFILESTATE 4 FIXP) (UFSGENFILESTATE 6 POINTER) (UFSGENFILESTATE 8 
POINTER) (UFSGENFILESTATE 8 (FLAGBITS . 0)) (UFSGENFILESTATE 10 POINTER) (
UFSGENFILESTATE 12 FIXP) (UFSGENFILESTATE 14 POINTER) (UFSGENFILESTATE 16 
FIXP) (UFSGENFILESTATE 18 FIXP) (UFSGENFILESTATE 20 FIXP) (UFSGENFILESTATE 22
 FIXP) (UFSGENFILESTATE 24 POINTER) (UFSGENFILESTATE 26 FIXP) (
UFSGENFILESTATE 28 POINTER) (UFSGENFILESTATE 30 POINTER) (UFSGENFILESTATE 32 
POINTER))) (QUOTE 34))
(SETTOPVAL (QUOTE \UFS.GFS.TABLE) (HASHARRAY 20))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFSCALLC.LCOM;3
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PASSWORDS.LCOM;1
(SETTOPVAL (QUOTE LOGINPASSWORDS) (HASHARRAY 8))
(SETTOPVAL (QUOTE \GETPASSWORD.LOCK) (CREATE.MONITORLOCK "GetPassword"))
(MOVD? (QUOTE NILL) (QUOTE CLBUFS))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONT.LCOM;1
(MOVD (QUOTE FONTCLASSCOMPONENT) (QUOTE FONTCOMPONENT))
(MOVD (QUOTE SETFONTCLASSCOMPONENT) (QUOTE SETFONTCOMPONENT))
(/DECLAREDATATYPE (QUOTE FONTCLASS) (QUOTE (BYTE POINTER POINTER POINTER 
POINTER POINTER)) (QUOTE ((FONTCLASS 0 (BITS . 7)) (FONTCLASS 2 POINTER) (
FONTCLASS 4 POINTER) (FONTCLASS 6 POINTER) (FONTCLASS 8 POINTER) (FONTCLASS 
10 POINTER))) (QUOTE 12))
(/DECLAREDATATYPE (QUOTE FONTDESCRIPTOR) (QUOTE (POINTER POINTER POINTER 
POINTER WORD WORD WORD WORD SIGNEDWORD SIGNEDWORD SIGNEDWORD SIGNEDWORD 
POINTER POINTER POINTER POINTER POINTER (BITS 8) WORD POINTER POINTER POINTER
)) (QUOTE ((FONTDESCRIPTOR 0 POINTER) (FONTDESCRIPTOR 2 POINTER) (
FONTDESCRIPTOR 4 POINTER) (FONTDESCRIPTOR 6 POINTER) (FONTDESCRIPTOR 8 (BITS
 . 15)) (FONTDESCRIPTOR 9 (BITS . 15)) (FONTDESCRIPTOR 10 (BITS . 15)) (
FONTDESCRIPTOR 11 (BITS . 15)) (FONTDESCRIPTOR 12 (SIGNEDBITS . 15)) (
FONTDESCRIPTOR 13 (SIGNEDBITS . 15)) (FONTDESCRIPTOR 14 (SIGNEDBITS . 15)) (
FONTDESCRIPTOR 15 (SIGNEDBITS . 15)) (FONTDESCRIPTOR 16 POINTER) (
FONTDESCRIPTOR 18 POINTER) (FONTDESCRIPTOR 20 POINTER) (FONTDESCRIPTOR 22 
POINTER) (FONTDESCRIPTOR 24 POINTER) (FONTDESCRIPTOR 26 (BITS . 7)) (
FONTDESCRIPTOR 27 (BITS . 15)) (FONTDESCRIPTOR 28 POINTER) (FONTDESCRIPTOR 30
 POINTER) (FONTDESCRIPTOR 32 POINTER))) (QUOTE 34))
(/DECLAREDATATYPE (QUOTE CHARSETINFO) (QUOTE (POINTER POINTER POINTER POINTER
 POINTER WORD WORD POINTER)) (QUOTE ((CHARSETINFO 0 POINTER) (CHARSETINFO 2 
POINTER) (CHARSETINFO 4 POINTER) (CHARSETINFO 6 POINTER) (CHARSETINFO 8 
POINTER) (CHARSETINFO 10 (BITS . 15)) (CHARSETINFO 11 (BITS . 15)) (
CHARSETINFO 12 POINTER))) (QUOTE 14))
(\UNITWIDTHSVECTOR)
(CONSTANTS (NORUNCODE 255))
(PUTPROP (QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-FONTPROP) (GET (QUOTE FONTPROP) (QUOTE COMPILER:OPTIMIZER-LIST))))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.LCOM;2
(/DECLAREDATATYPE (QUOTE BITMAP) (QUOTE (POINTER WORD WORD WORD WORD)) (QUOTE
 ((BITMAP 0 POINTER) (BITMAP 2 (BITS . 15)) (BITMAP 3 (BITS . 15)) (BITMAP 4 
(BITS . 15)) (BITMAP 5 (BITS . 15)))) (QUOTE 6))
(/DECLAREDATATYPE (QUOTE PILOTBBT) (QUOTE (WORD WORD WORD SIGNEDWORD WORD 
WORD WORD SIGNEDWORD WORD WORD WORD WORD WORD WORD WORD WORD)) (QUOTE ((
PILOTBBT 0 (BITS . 15)) (PILOTBBT 1 (BITS . 15)) (PILOTBBT 2 (BITS . 15)) (
PILOTBBT 3 (SIGNEDBITS . 15)) (PILOTBBT 4 (BITS . 15)) (PILOTBBT 5 (BITS . 15
)) (PILOTBBT 6 (BITS . 15)) (PILOTBBT 7 (SIGNEDBITS . 15)) (PILOTBBT 8 (BITS
 . 15)) (PILOTBBT 9 (BITS . 15)) (PILOTBBT 10 (BITS . 15)) (PILOTBBT 11 (BITS
 . 15)) (PILOTBBT 12 (BITS . 15)) (PILOTBBT 13 (BITS . 15)) (PILOTBBT 14 (
BITS . 15)) (PILOTBBT 15 (BITS . 15)))) (QUOTE 16))
(/DECLAREDATATYPE (QUOTE \DISPLAYDATA) (QUOTE (POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD FLAG 
XPOINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
POINTER POINTER POINTER WORD WORD POINTER WORD)) (QUOTE ((\DISPLAYDATA 0 
POINTER) (\DISPLAYDATA 2 POINTER) (\DISPLAYDATA 4 POINTER) (\DISPLAYDATA 6 
POINTER) (\DISPLAYDATA 8 POINTER) (\DISPLAYDATA 10 POINTER) (\DISPLAYDATA 12 
POINTER) (\DISPLAYDATA 14 POINTER) (\DISPLAYDATA 16 POINTER) (\DISPLAYDATA 18
 POINTER) (\DISPLAYDATA 20 POINTER) (\DISPLAYDATA 22 POINTER) (\DISPLAYDATA 
24 POINTER) (\DISPLAYDATA 26 POINTER) (\DISPLAYDATA 28 POINTER) (\DISPLAYDATA
 30 POINTER) (\DISPLAYDATA 32 POINTER) (\DISPLAYDATA 34 (BITS . 15)) (
\DISPLAYDATA 35 (BITS . 15)) (\DISPLAYDATA 36 (BITS . 15)) (\DISPLAYDATA 37 (
BITS . 15)) (\DISPLAYDATA 38 (BITS . 15)) (\DISPLAYDATA 32 (FLAGBITS . 0)) (
\DISPLAYDATA 40 XPOINTER) (\DISPLAYDATA 42 POINTER) (\DISPLAYDATA 44 POINTER)
 (\DISPLAYDATA 46 POINTER) (\DISPLAYDATA 48 POINTER) (\DISPLAYDATA 50 POINTER
) (\DISPLAYDATA 52 POINTER) (\DISPLAYDATA 54 POINTER) (\DISPLAYDATA 56 
POINTER) (\DISPLAYDATA 58 POINTER) (\DISPLAYDATA 60 POINTER) (\DISPLAYDATA 62
 POINTER) (\DISPLAYDATA 39 (BITS . 15)) (\DISPLAYDATA 64 (BITS . 15)) (
\DISPLAYDATA 66 POINTER) (\DISPLAYDATA 65 (BITS . 15)))) (QUOTE 68))
(PUTPROP (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE optimize-\FBITMAPBIT) (GET (QUOTE \FBITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
(INITBITMASKS)
(SETTOPVAL (QUOTE CursorBitMap) (\CreateCursorBitMap))
(CONSTANTS (MINIMUMCOLOR 0) (MINIMUMSHADE 0))
(MOVD (QUOTE BITMAPBIT) (QUOTE \BITMAPBIT))
(PUTPROP (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-BITMAPBIT) (GET (QUOTE BITMAPBIT) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-BITMAPP) (GET (QUOTE BITMAPP) (QUOTE COMPILER:OPTIMIZER-LIST))))
(MOVD? (QUOTE BITBLT) (QUOTE BKBITBLT))
(MOVD? (QUOTE \ILLEGAL.ARG) (QUOTE \COERCETODS))
(MOVD? (QUOTE NILL) (QUOTE WFROMDS))
(MOVD? (QUOTE NILL) (QUOTE WINDOWP))
(MOVD? (QUOTE NILL) (QUOTE INVERTW))
(MOVD? (QUOTE NILL) (QUOTE \TOTOPWDS))
(PUTPROP (QUOTE TTYDISPLAYSTREAM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN 
(QUOTE optimize-TTYDISPLAYSTREAM) (GET (QUOTE TTYDISPLAYSTREAM) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(SETF-MACRO-FUNCTION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE 
expand-\MAYBE-DRIBBLE-CHAR))
(SET-DOCUMENTATION (QUOTE \MAYBE-DRIBBLE-CHAR) (QUOTE CL:FUNCTION) 
"if we are dribbling, then dribble this character")
(UPDATESCREENDIMENSIONS)
(Value of \MaxScreenPage changed from 0 to -1)
(SETTOPVAL (QUOTE ScreenBitMap) (\CreateScreenBitMap SCREENWIDTH SCREENHEIGHT
))
(CURSOR.INIT)
(INITIALIZEDISPLAYSTREAMS)
(DISPLAYSTREAMINIT 1000)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APUTDQ.LCOM;1
(DUMMYDEF (ADDSTATS *) (LISPXWATCH NILL) (CLBUFS NILL) (FINDFILE INFILEP) (
FILEMAP *) (VIRGINFN GETD))
(DUMMYDEF (* QUOTE) (GETP GETPROP) (DECLARE QUOTE) (FRPLNODE2 RPLNODE2) (
DISPLAYTERMP TRUE) (FRPLACA RPLACA) (FRPLACD RPLACD) (MISSPELLED? NILL) (
UNDOSAVE NILL) (SETLINELENGTH ZERO) (DOBE NILL) (RELINK NILL) (PUT PUTPROP) (
/PUT PUTPROP))
(SETTOPVAL (QUOTE SYSHASHARRAY) (HASHARRAY 50))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPATIBILITY.LCOM;1
(MOVD (QUOTE HARRAYP) (QUOTE HASHARRAYP))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DMISC.LCOM;1
(BACKSPACEDEL \ORIGTERMTABLE)
(BACKSPACEDEL NIL)
(SETTOPVAL (QUOTE \LASTRECLAIM) (\DAYTIME0 (NCREATE (QUOTE FIXP))))
(APPENDTOVAR BACKGROUNDFNS PERIODICALLYRECLAIM)
(APPENDTOVAR \SYSTEMTIMERVARS (\LASTRECLAIM SECONDS))
(MOVD (QUOTE RINGBELLS) (QUOTE PRINTBELLS))
(OR (LISTP (EVALV (QUOTE EDITCHARACTERS))) (RPAQ EDITCHARACTERS (QUOTE (J X Z
 Y N))))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMACROS.LCOM;1
(Property CMLMACROS of FILEDATES has been changed)
(APPENDTOVAR COMPILERMACROPROPS DMACRO BYTEMACRO MACRO)
(Property * of MACRO has been changed)
(SETF-MACRO-FUNCTION (QUOTE CL:MACROLET) (QUOTE CL::expand-MACROLET))
(CL::SET-SETF-INVERSE (QUOTE CL:MACRO-FUNCTION) (QUOTE SETF-MACRO-FUNCTION))
(Property CMLMACROS of FILETYPE has been changed)
(Property CMLMACROS of COPYRIGHT has been changed)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLLIST.LCOM;1
(SET-SETF-INVERSE (QUOTE NTH) (QUOTE %SET-NTH))
(IL:PUTPROP (QUOTE NTH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-NTH|) (GET (QUOTE NTH) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:MOVD (QUOTE %SET-NTH) (QUOTE IL:%SETNTH))
(IL:PUTPROP (QUOTE FIRST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-FIRST|) (GET (QUOTE FIRST) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE SECOND) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-SECOND|) (GET (QUOTE SECOND) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE THIRD) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-THIRD|) (GET (QUOTE THIRD) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE FOURTH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-FOURTH|) (GET (QUOTE FOURTH) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE FIFTH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-FIFTH|) (GET (QUOTE FIFTH) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE SIXTH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-SIXTH|) (GET (QUOTE SIXTH) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE SEVENTH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-SEVENTH|) (GET (QUOTE SEVENTH) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE EIGHTH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-EIGHTH|) (GET (QUOTE EIGHTH) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE NINTH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-NINTH|) (GET (QUOTE NINTH) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE TENTH) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-TENTH|) (GET (QUOTE TENTH) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE REST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-REST|) (GET (QUOTE REST) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE NTHCDR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-NTHCDR|) (GET (QUOTE NTHCDR) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE MEMBER) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-MEMBER|) (GET (QUOTE MEMBER) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE ADJOIN) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-ADJOIN|) (GET (QUOTE ADJOIN) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE ACONS) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|definline-ACONS|) (GET (QUOTE ACONS) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE ASSOC) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-ASSOC|) (GET (QUOTE ASSOC) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:SETF-MACRO-FUNCTION (QUOTE %LIST-COLLECT) (QUOTE |expand-%LIST-COLLECT|))
(IL:PUTPROP (QUOTE MAPCAR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-MAPCAR|) (GET (QUOTE MAPCAR) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE MAPLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-MAPLIST|) (GET (QUOTE MAPLIST) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE MAPC) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-MAPC|) (GET (QUOTE MAPC) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE MAPL) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-MAPL|) (GET (QUOTE MAPL) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE MAPCAN) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-MAPCAN|) (GET (QUOTE MAPCAN) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE MAPCON) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
|optimize-MAPCON|) (GET (QUOTE MAPCON) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE IL:MAP) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
IL:|optimize-MAP|) (GET (QUOTE IL:MAP) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE IL:MAPC) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
IL:|optimize-MAPC|) (GET (QUOTE IL:MAPC) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE IL:MAPLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE
 IL:|optimize-MAPLIST|) (GET (QUOTE IL:MAPLIST) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE IL:MAPCAR) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
IL:|optimize-MAPCAR|) (GET (QUOTE IL:MAPCAR) (QUOTE COMPILER:OPTIMIZER-LIST))
))
(IL:PUTPROP (QUOTE IL:MAPCON) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
IL:|optimize-MAPCON|) (GET (QUOTE IL:MAPCON) (QUOTE COMPILER:OPTIMIZER-LIST))
))
(IL:PUTPROP (QUOTE IL:MAPCONC) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE
 IL:|optimize-MAPCONC|) (GET (QUOTE IL:MAPCONC) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE IL:SOME) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
IL:|optimize-SOME|) (GET (QUOTE IL:SOME) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE IL:EVERY) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
IL:|optimize-EVERY|) (GET (QUOTE IL:EVERY) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE IL:NOTANY) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
IL:|optimize-NOTANY|) (GET (QUOTE IL:NOTANY) (QUOTE COMPILER:OPTIMIZER-LIST))
))
(IL:PUTPROP (QUOTE IL:NOTEVERY) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (
QUOTE IL:|optimize-NOTEVERY|) (GET (QUOTE IL:NOTEVERY) (QUOTE COMPILER:OPTIMIZER-LIST))))
(IL:PUTPROP (QUOTE IL:SUBSET) (QUOTE COMPILER:OPTIMIZER-LIST) (ADJOIN (QUOTE 
IL:|optimize-SUBSET|) (GET (QUOTE IL:SUBSET) (QUOTE COMPILER:OPTIMIZER-LIST))
))
(IL:SETF-MACRO-FUNCTION (QUOTE XCL:WITH-COLLECTION) (QUOTE 
XCL::|expand-WITH-COLLECTION|))
(IL:MOVD (QUOTE IL:FMEMB) (QUOTE IL:MEMQ))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCHARACTER.LCOM;1
(PUTPROP (QUOTE CHARCODE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
optimize-CHARCODE) (GET (QUOTE CHARCODE) (QUOTE COMPILER:OPTIMIZER-LIST))))
(XCL::SET-CONSTANTP (QUOTE \CHARHI) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT \CHARHI)))
(XCL::SET-CONSTANTP (QUOTE CL:CHAR-BITS-LIMIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-BITS-LIMIT)))
(XCL::SET-CONSTANTP (QUOTE CL:CHAR-CODE-LIMIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-CODE-LIMIT)))
(XCL::SET-CONSTANTP (QUOTE CL:CHAR-CONTROL-BIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-CONTROL-BIT)))
(XCL::SET-CONSTANTP (QUOTE CL:CHAR-FONT-LIMIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-FONT-LIMIT)))
(XCL::SET-CONSTANTP (QUOTE CL:CHAR-HYPER-BIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-HYPER-BIT)))
(XCL::SET-CONSTANTP (QUOTE CL:CHAR-META-BIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-META-BIT)))
(XCL::SET-CONSTANTP (QUOTE CL:CHAR-SUPER-BIT) NIL)
(CL:PROCLAIM (QUOTE (SI::CONSTANT CL:CHAR-SUPER-BIT)))
(PUTPROP (QUOTE CL:CHAR-CODE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-CHAR-CODE) (GET (QUOTE CL:CHAR-CODE) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR-INT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-CHAR-INT) (GET (QUOTE CL:CHAR-INT) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CODE-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-CODE-CHAR) (GET (QUOTE CL:CODE-CHAR) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:INT-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-INT-CHAR) (GET (QUOTE CL:INT-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST))))
(SETTOPVAL (\TYPEGLOBALVARIABLE (QUOTE CHARACTER) T) (NTYPX (CL:CODE-CHAR 0 0
 0)))
(DEFPRINT (QUOTE CHARACTER) (QUOTE CHARACTER.PRINT))
(PUTPROP (QUOTE CL:CHAR-UPCASE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-CHAR-UPCASE) (GET (QUOTE CL:CHAR-UPCASE) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR-DOWNCASE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN 
(QUOTE CL::optimize-CHAR-DOWNCASE) (GET (QUOTE CL:CHAR-DOWNCASE) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:MAKE-CHAR) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-MAKE-CHAR) (GET (QUOTE CL:MAKE-CHAR) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(SET-DOCUMENTATION (QUOTE CL:DIGIT-CHAR-P) (QUOTE CL:FUNCTION) 
"Returns the weigh of CHAR in radix RADIX, or NIL if CHAR is not a digit char in that radix.")
(PUTPROP (QUOTE CL:CHAR-EQUAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-CHAR-EQUAL) (GET (QUOTE CL:CHAR-EQUAL) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR-GREATERP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN 
(QUOTE CL::optimize-CHAR-GREATERP) (GET (QUOTE CL:CHAR-GREATERP) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR-LESSP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-CHAR-LESSP) (GET (QUOTE CL:CHAR-LESSP) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR-NOT-EQUAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN
 (QUOTE CL::optimize-CHAR-NOT-EQUAL) (GET (QUOTE CL:CHAR-NOT-EQUAL) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR-NOT-GREATERP) (QUOTE COMPILER:OPTIMIZER-LIST) (
CL:ADJOIN (QUOTE CL::optimize-CHAR-NOT-GREATERP) (GET (QUOTE 
CL:CHAR-NOT-GREATERP) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR-NOT-LESSP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN
 (QUOTE CL::optimize-CHAR-NOT-LESSP) (GET (QUOTE CL:CHAR-NOT-LESSP) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR/=) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::optimize-CHAR/=) (GET (QUOTE CL:CHAR/=) (QUOTE COMPILER:OPTIMIZER-LIST)))
)
(PUTPROP (QUOTE CL:CHAR<) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::optimize-CHAR<) (GET (QUOTE CL:CHAR<) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR<=) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::optimize-CHAR<=) (GET (QUOTE CL:CHAR<=) (QUOTE COMPILER:OPTIMIZER-LIST)))
)
(PUTPROP (QUOTE CL:CHAR=) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::optimize-CHAR=) (GET (QUOTE CL:CHAR=) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR>) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::optimize-CHAR>) (GET (QUOTE CL:CHAR>) (QUOTE COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:CHAR>=) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE 
CL::optimize-CHAR>=) (GET (QUOTE CL:CHAR>=) (QUOTE COMPILER:OPTIMIZER-LIST)))
)
(PUTPROP (QUOTE CL:CHARACTERP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-CHARACTERP) (GET (QUOTE CL:CHARACTERP) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:LOWER-CASE-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-LOWER-CASE-P) (GET (QUOTE CL:LOWER-CASE-P) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:STRING-CHAR-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN 
(QUOTE CL::optimize-STRING-CHAR-P) (GET (QUOTE CL:STRING-CHAR-P) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(PUTPROP (QUOTE CL:UPPER-CASE-P) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (
QUOTE CL::optimize-UPPER-CASE-P) (GET (QUOTE CL:UPPER-CASE-P) (QUOTE 
COMPILER:OPTIMIZER-LIST))))
(SETF-MACRO-FUNCTION (QUOTE %%CHAR-DOWNCASE-CODE) (QUOTE 
expand-%%CHAR-DOWNCASE-CODE))
(SETF-MACRO-FUNCTION (QUOTE %%CHAR-UPCASE-CODE) (QUOTE 
expand-%%CHAR-UPCASE-CODE))
(SETF-MACRO-FUNCTION (QUOTE %%CODE-CHAR) (QUOTE expand-%%CODE-CHAR))
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREADTABLE.LCOM;1
(CL:PROCLAIM (QUOTE (CL:SPECIAL *READ-SUPPRESS*)))
(OR (BOUNDP (QUOTE *READ-SUPPRESS*)) (CL:SETQ *READ-SUPPRESS* NIL))
(INIT-CML-READTABLES)
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOLOADUPFNS.LCOM;2
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOBITBLT.LCOM;1
(MOVD (QUOTE \\BITBLT.BITMAP) (QUOTE \\MAIKO.OLDBITBLT.BITMAP))
={DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOINIT.;1
(QUOTE (\\TEDIT.BLTCHAR \\MAIKO.PUNTBLTCHAR SI::*CLOSURE-CACHE* 
XCL::*DELETED-IMPLICIT-HASH-SLOT*))
(Value of LOADUPDIRECTORIES changed from ({ERIS}<LISPCORE>SOURCES> {ERIS}<LISPCORE>LIBRARY> {ERIS}<LISPUSERS>) to ("{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>" "{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>" "{DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>" "{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>"))
(Value of DISPLAYFONTDIRECTORIES changed from ({DSK}/USR/LOCAL/LDE/FONTS/DISPLAY/PRESENTATION/ {dsk}/usr/local/lde/fonts/display/publishing/) to ("{DSK}<Users>kaplan>Local>medley3.5>git-medley>fonts>displayfonts>" "{DSK}<Users>kaplan>Local>medley3.5>git-medley>fonts>altofonts>"))


POSTINITARRAYS:  There were 36 allocated but unused array pages.

*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
********[FPTOVP]*************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
***********************xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx******
***********************************[PageMaps]********************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
*****************************************************************************
**************
\ No newline at end of file
diff --git a/loadups/whereis.dribble b/loadups/whereis.dribble
index ddb4213f..fa8e743e 100644
--- a/loadups/whereis.dribble
+++ b/loadups/whereis.dribble
@@ -1,378 +1,378 @@
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>10MBDECLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>10MBDRIVER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AARITH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ABASIC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ACODE.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADDARITH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADIR.;9 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADISPLAY.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ADVISE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AERROR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AFONT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AINTERRUPT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AOFD.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APRINT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>APUTDQ.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ARGLIST.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASKUSER.;7 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ASTACK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;9 .
-Warning: Error attempting to LOADVARS (CCECHOMODES TERMCLASSES READCODEMASKS READMACROCONTEXTS READCLASSES READMACROWAKEUPS READMACROESCAPES) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATBL.;9.
+;;; {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.
 .. done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATTACHEDWINDOW.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>AUTHENTICATION.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BREAK-AND-TRACE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BRKDWN.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BSP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BYTECOMPILER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CL-ERROR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLEARINGHOUSE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLISP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLISPIFY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLOSURE-CACHE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CLSTREAMS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARITH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLARRAY.;2 ... 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.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCHARACTER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLCOMPILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDEFFER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDESTRUCT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLDOC.;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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLEXEC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFILESYS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFLOAT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLFORMAT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLHASH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLLIST.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLLOAD.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMACROS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMISCIO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMODULES.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLMVS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPACKAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPARSE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPATHNAME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPRED.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPRINT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLPROGV.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLRAND.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREADTABLE.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQ.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQBASICS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQCOMMON.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQFINDER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMAPPERS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSEQMODIFY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSETF.;2 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSPECIALFORMS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTEP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSTRING.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLSYMBOL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLTIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLTYPES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLUNDO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLWALK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMMENT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMMON.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPARE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPATIBILITY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COMPILER-PACKAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-IL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-POST-SI.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-HIERARCHY-SI.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CONDITION-PACKAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COREIO.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>COROUTINE.;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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>D-ASSEM-PACKAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEBUGEDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEBUGGER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFFER-RUNTIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFPACKAGE-IMPORT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEFSTRUCT-RUN-TIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DESCRIBE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DEXEC.;11 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DFILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DIRECTORY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DISKDLION.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DISKVMEMDECLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DLAP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DMISC.;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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSKDISPLAY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DSPRINTDEF.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DTDECLARE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>DWIMIFY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EDITINTERFACE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ERROR-RUNTIME-AFTER-FASL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>EXEC-COMMANDS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASDUMP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASL-PACKAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASL-SUPPORT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FASLOAD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;15 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEPKG.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILESETS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FONTPROFILEPATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FREEMENU.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>GAINSPACE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HARDCOPY.;7 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HIST.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HLDISPLAY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>HPRINT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ICONW.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IDLER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IL-ERROR-STUFF.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMAGEIO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IMPLICIT-KEY-HASH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INSPECT-CLOSURE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.;7 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>IOCHAR.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LEAF.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LISP-PACKAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLARITH.;2 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLBIGNUM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCHAR.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLCODE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDATATYPE.;13 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLDISPLAY.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLERROR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLETHER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFAULT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLFLOAT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLGC.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLINTERP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLKEY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLMVS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNEW.;16 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLNSDECLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPACKAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLPARAMS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLRESTART.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSTK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSUBRS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLSYMBOL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLTIMER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADFNS.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-FULL.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOADUP-LISP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOCALFILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LOGOW.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACHINEINDEPENDENT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROAUX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROAUX-OPTIMIZERS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MACROS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOBITBLT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAIKOETHER.;2 ... 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.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAKEINIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MEM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MENU.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MISC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MOD44IO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MODARITH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NEWPRINTDEF.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSFILING.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>NSPRINT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-CONVERSION-TABLE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PAINTW.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PASSWORDS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PMAP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>POSTLOADUP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRETTY.;11 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PRINTFN.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PROFILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PUP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>READSYS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RECORD.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>RENAMEFNS.;3 ... done.
+;;; {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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ACCESS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-ATOMIC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-BASE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMANDS.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-COMMENTS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-CONVERT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-DEBUG.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-DECLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-EXPORTS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-INDENT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LINEAR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LIST-FORMATS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-LISTS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TERMINAL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-TOPLEVEL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SEDIT-WINDOW.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SETF-RUNTIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPELLFILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SPPDECLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>STACKFNS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>SYSPRETTY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TCPHTE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TIME.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TRSERVER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TTYIN.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>TWODINSPECTOR.;7 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFS.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UFSCALLC.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNDO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>UNWINDMACROS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VANILLADISK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>VMEM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WALKER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WEDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOW.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWICON.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWOBJ.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>WINDOWSCROLL.;3 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-COMPILER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-EXTRAS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCL-PACKAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ALPHA.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ANALYZE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ANNOTATE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-DATABASE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-ENV-CTXT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-GENCODE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-META-EVAL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-OPTIMIZERS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-PEEPHOLE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-RUNTIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TOP-LEVEL.;11 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TRANSFORMS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XCLC-TREES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXFILL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>XXGEOM.;2 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHARCODETABLES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHARDEVICE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHARS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHAT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATDECLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATSERVER-EMACS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.;54 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CMLFLOATARRAY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COLOR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COPYFILES.;3 ... 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.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DEDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DEDITPP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DMCHAT.;2 ... done.
+;;; {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.;3 ... done.
+;;; {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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>ETHERRECORDS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILE-UPDATE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.;35 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FONTSAMPLE.;2 ... done.
+;;; {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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GCHAX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHZOOM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH-FILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HRULE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>KEYBOARDCONFIGS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>KEYBOARDEDITOR.;3 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>LOAD-SKETCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOCOLOR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;3 .Warning: Error attempting to LOADVARS (MAIKOKEYBOARDSCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MAIKOKEYBOARDS.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MATMULT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSANALYZE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSCOMMON.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSPARSE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>NSCHAT.;2 ... done.
+;;; {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.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PRESS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>RDSYS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>READNUMBER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>REMOTEVMEM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SAMEDIR.;10 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SCALEBITMAP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;3 .Warning: Error attempting to LOADVARS (SEDIT-COMMONLISPCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SEDIT-COMMONLISP.;3.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHBMELT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHEDIT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHELEMENTS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHOBJ.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHOPS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SKETCHSTREAM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SPY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SYSEDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.;5 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSERDECLS.;2 ... done.
+;;; {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.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.;3 ... 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.;3 ... 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.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFIND.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.;5 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.;2 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TELERAID.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXEC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTMODULES.;2 .
+;;; {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
 XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>SEDIT-COMMONLISP.;1
 Source file created  4-Jan-2021 22:52:01
@@ -385,401 +385,401 @@ 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.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TTYCHAT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.;171 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.;3 ... 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.;10 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VT100KP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>VTCHAT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>WHERE-IS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>XCCS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ACCESS.;2 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AIREGIONS-DEMO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AISBLT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ANALYZER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ARCHIVEBROWSER.;2 ... done.
+;;; {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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>autosamedir.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>AUXMENU.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDIMAGES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BACKGROUNDMENU.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BICLOCK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BIGGER-FONT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BITMAP-GALLERY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>bitmapfns.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BLACKBOX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;2 .Warning: Couldn't find BLOCKS-HKBCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BLOCKS-HKB.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BMENCODE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BOYERMOORE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BRKDWNREPORT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>bsearch.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>BUTTONS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>C150STREAM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CALENDAR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>canvasconverter.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CD.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATEMACS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-NS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-RS232.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CHATSERVER-TCP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>checkset.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>circlprint.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CL-TTYEDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLORDEMO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLORNNCC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLOROBJ.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COLORPOLYGONS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMENTHACKS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMON-MAKE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMMWINDOW.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPARE-PATHS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPAREDIRECTORIES.;284 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COMPARESOURCES.;4 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERDEFS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIEREVALSERVE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERIMAGESTREAM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>COURIERSERVEPATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>CROCK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DANDELIONUFO4096.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATATYPESPLUS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATEFNS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATEFORMAT-EDITOR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DATESORT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEBUGGER-CONTEXT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DECL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEDITHARDCOPY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTICON.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEFAULTSUBITEMFN.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DEFINERPRINT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIALPHONE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICOLOR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;2 .Warning: Error attempting to LOADVARS (DICT-WINDOW-TYPESCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICT-WINDOW-TYPES.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DICTTOOL.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIGEST.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIGI-CLOCK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DINFO.;6 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DIRGRAPHER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DLIONFNKEYS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DOC-OBJECTS.;8 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>document.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>donz.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DORADOCOLOR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DPUPFTPPATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DSPSCALE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>dumper.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DUMPLOAD.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EDITBG.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EDITFONT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EDITKEYS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EMACS.;10 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ENDNOTE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONFORMS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EQUATIONS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ETHERBOOT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EVALOBJ.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>EYECON.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FASTEDITBM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILECACHE-FIX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FileCacheMsgWindow.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILENAMES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILEWATCH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FILLREGION.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FIND-CITATION.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FINGER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FM-CREATOR.;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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FONTSAMPLER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FORMACRO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>FTPSERVERPATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;2 .Warning: Error attempting to LOADVARS (GENERIC-INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GENERIC-INIT.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GRAPHCALLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GraphGroup.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GREP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>GRID-ICONS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;2 .Warning: Couldn't find H-ENVCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-ENV.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;2 .Warning: Couldn't find H-LOADCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-LOAD.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;2 .Warning: Couldn't find H-PATCHESCOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-PATCHES.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;2 .Warning: Couldn't find H-SOURCECOMS on {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>H-SOURCE.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HANOI.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HARDCOPY-RETAIN.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HASHBUFFER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HASHDATUM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HEADLINE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HGRAPH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HISTMENU.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HOSTUP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HPGL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-INIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HYPERDESK-LOG.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDEASKETCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDLEDRAIN.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDLEHAX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IDLESWAP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>INDEX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>INSPECTCODE-TEDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IPTALK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISCONSTANTS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISDEMOFNS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISIO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISLIB.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISNET.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISSTREAM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>IRISVIEW.;2 ... done.
+;;; {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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KINETIC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>KOTOLOGO.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LABEL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITE-INDENT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITEABBREV.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAFITEPRIVATEDL.;2 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LAYOUT-SEDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LIFE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LISPNERD.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOADIRIS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOADMENUITEMS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LoadPatches.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGIC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-DEVEL.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGIC-UNIFIER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOGTIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LOOKUPINFILES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>LUPINE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MACINTERFACE.;80 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MACWINDOW.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MAGNIFIER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MAILSHARE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MAKEGRAPH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MANAGER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MANDELBROT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MATHSERVER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>mathserverplot.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MATHTONS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MATRIXOPS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MESATOLISP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MICROTEK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MICROTEKPRINT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MISSILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.;15 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MONITOR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MTP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MULTIPLE-HARDCOPY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NEATICONS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NGROUP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOTECARDS-4045XLPPATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOTEPAD-CORESTYLES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NOVAFONT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSALLOCATION.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSCOPYFILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSDISPLAYSIZES.;3 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSROUTINGHASH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTALK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTALKGAP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>NSTHASIZE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>OSS-LYRIC-PATCHES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PAC-MAN-IDLE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PACKED-STRUCTURE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PACMAN.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PAGEHOLD.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PARSER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PARSERG.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PATCH-LARGEIPBITMAP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PATCH-TWOSIDED.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PCMEMTEST.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PHONE-DIRECTORY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PIECE-MENUS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PIXELBLT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLAINTEXTSTREAM.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLAY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOT.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTANDNC-PATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTBOXPATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTEXAMPLES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTINSKETCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS1.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PLOTOBJECTS2.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PORT-CLFILE.;2 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PREEMPTIVE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRESSFROMNS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRINTERMENU.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PROGRAMCHAT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PROMPTREMINDERS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PROOFREADER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-PATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-RS232.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-SEND.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-SKETCH-PATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PS-TTY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PSCFONT-FIX-FILENAME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>QEDIT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>QIX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READAIS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READAPPLEFONT.;2 ... done.
+;;; {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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READDISPLAYFONT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READEBCDIC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>READINTERPRESS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>REGION.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>REGISTER-MACHINE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>REMOTEPSW.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCCOMMON.;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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCOS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCPORTMAPPER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCRPC.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCSTRUCT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RPCXDR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>RS232CNETWORK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SCREENPAPER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEARCHMENU.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-COMMONLISP.;2 .(SEDIT-COMMONLISPCOMS reset)
+;;; {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)
 .. done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-MENU-ALWAYS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PATCHES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SEDIT-PROFILE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SETDEFAULTPRINTER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SFFONT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SHOWTIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SIMPLECHAT.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SIMPLIFY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SINGLEFILEINDEX.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SKETCHCOLOR.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SKETCHTALK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SNAPW-ICON.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SOLID-MOVEW.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SOLITAIRE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STARBG.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STEP-COMMAND-MENU.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STORAGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STREAMDECLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>STYLESHEET.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SUPERPARENTHESES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>SYSTATS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TALK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TALKGAP.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TCPTIME.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-CLOSE-ON-SHRINK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDIT-LINE-NUMBERING.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tedit-process-killer.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITDORADOKEYS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITKEY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEDITTALK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEK4010.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TEK4010CHAT.;2 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tkdorado.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-DATE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-ENDNOTE.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-INDEX.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGRAPH.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NGROUP.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-NUMBER.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TMAX-XREF.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>tmenu.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TRAJECTORY-FOLLOWER.;2 ... 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.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TSET.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TTYTALK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TURBO-WINDOWS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>TWODGRAPHICS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UNBOXEDOPS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UNDIGESTIFY.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UNIFIER.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UPCSTATS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UTILISOPRS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>UUENCODE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;2 .Warning: Error attempting to LOADVARS (VANILLA-INITCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VANILLA-INIT.;2.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>VSTATS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WALKFILES.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WDWHACKS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHEELSCROLL.;45 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHOCALLS.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WINK.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WORDNERD.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XCL-BRIDGE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XORCURSORPATCH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>XREF.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ABC.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARCLEANUP.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>AREDIT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARHACK.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARINDEX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARQUERY.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;1 .Warning: Error attempting to LOADVARS (ARREPORT-TESTCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>arreport-test.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>ARSREPORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CALENDARHACKS.;3 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CHANGECONTROL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>COMPTEST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>CONDITIONGRAPH.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DICOLOR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DO-TEST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>DUMPFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>FASL-DEBUG.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>FLOAT-ARRAY-SUPPORT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>GIVE-AND-TAKE.;2 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MACROTEST.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MACROTESTAUX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAILCLIENT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAINTAIN.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAKE-EXPORTS-ALL.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MAKE-TCP-EXPORTS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MEDLEY-UTILS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MESATYPES.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>msx.;1 .Warning: Error attempting to LOADVARS (MSXCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>msx.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>MULTI-COMPILE.;4 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;1 .Warning: Error attempting to LOADVARS (NATIVE-TRANSLATORCOMS) from {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR.;1.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NATIVE-TRANSLATOR-PACKAGE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>NSTOASCIIDISPLAYFONT.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>PEANO.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>READ-PRINT-PROFILE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>RELEASETOOLS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>SMART-TRICKLE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>SPLICE.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>TAR.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>TYPEHAX.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>WHEREIS.;1 ... done.
-;;; {DSK}<Users>kaplan>Local>medley3.5>git-medley>internal>library>XCLC-DEBUG.;1 ... done.
+;;; {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.;4 ... 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.
diff --git a/loadups/whereis.hash b/loadups/whereis.hash
index fa9e69a3..9cbb471f 100644
Binary files a/loadups/whereis.hash and b/loadups/whereis.hash differ
diff --git a/sources/ATERM b/sources/ATERM
index c2b0dc03..00d4113f 100644
--- a/sources/ATERM
+++ b/sources/ATERM
@@ -1,19 +1,20 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "16-May-90 12:08:04" {DSK}<usr>local>lde>lispcore>sources>ATERM.;2 36386  
+(FILECREATED "29-Apr-2021 09:38:58" {DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;4 56766  
 
-      changes to%:  (VARS ATERMCOMS)
+      changes to%:  (FNS \CREATELINEBUFFER)
 
-      previous date%: "29-Jul-88 15:37:31" {DSK}<usr>local>lde>lispcore>sources>ATERM.;1)
+      previous date%: "16-May-90 12:08:04" 
+{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>ATERM.;3)
 
 
 (* ; "
-Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1982-1988, 1990, 2021 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT ATERMCOMS)
 
 (RPAQQ ATERMCOMS
-       [                                                     (* ; "Line-buffering")
+       [                                                     (* ; "Line-buffering")
         (FNS BKLINBUF CLEARBUF LINBUF PAGEFULLFN SETLINELENGTH SYSBUF TERMCHARWIDTH TERMINAL-INPUT 
              TERMINAL-OUTPUT \CHDEL1 \CLOSELINE \DECPARENCOUNT \ECHOCHAR \FILLBUFFER 
              \FILLBUFFER.WORDSEPRP \FILLBUFFER.BACKUP \GETCHAR \INCPARENCOUNT \RESETLINE 
@@ -28,8 +29,8 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Co
         (FNS DRIBBLE DRIBBLEFILE)
         (FNS \SETUP.DEFAULT.LINEBUF \CREATELINEBUFFER \LINEBUF.READP \LINEBUF.EOFP \LINEBUF.PEEKBIN 
              \OPENLINEBUF)
-        (COMS                                                (* ; 
-                                        "User entries to make up for fact that (EOFP T) = NIL now.")
+        (COMS                                                (* ; 
+                                        "User entries to make up for fact that (EOFP T) = NIL now.")
               (FNS LINEBUFFER-EOFP LINEBUFFER-SKIPSEPRS))
         (DECLARE%: DOCOPY DONTEVAL@LOAD (VARS (\#DISPLAYLINES 58)
                                               (\DISPLAYLINELENGTH 82)
@@ -60,90 +61,523 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Co
 (DEFINEQ
 
 (BKLINBUF
-(LAMBDA (STR) (* bvm%: " 5-May-86 11:38") (COND ((STRINGP STR) (\RESETLINE) (for J C (SA _ (fetch READSA of (\DTEST *READTABLE* (QUOTE READTABLEP)))) from 1 while (SETQ C (NTHCHARCODE STR J)) do (\OUTCHAR \LINEBUF.OFD C) (\INCPARENCOUNT (\SYNCODE SA C))) (\CLOSELINE) STR)))
-)
+  [LAMBDA (STR)                                          (* bvm%: " 5-May-86 11:38")
+    (COND
+       ((STRINGP STR)
+        (\RESETLINE)
+        (for J C [SA _ (fetch READSA of (\DTEST *READTABLE* 'READTABLEP] from 1
+           while (SETQ C (NTHCHARCODE STR J)) do (\OUTCHAR \LINEBUF.OFD C)
+                                                        (\INCPARENCOUNT (\SYNCODE SA C)))
+        (\CLOSELINE)
+        STR])
 
 (CLEARBUF
-(LAMBDA (FILE FLG) (* ; "Edited 17-Jan-87 16:08 by bvm:") (PROG ((STRM (SELECTQ FILE (T \LINEBUF.OFD) (NIL *STANDARD-INPUT*) (\GETSTREAM FILE (QUOTE INPUT)))) SYSBUF LINBUF) (* ; "Do the stream coercion in line so we don't needlessly create a tty window just to clear input") (COND ((AND (EQ STRM \LINEBUF.OFD) (NEQ STRM \DEFAULTLINEBUF)) (* ; "Don't do this if \LINEBUF.OFD is the default, since then there really isn't anything to save") (COND (FLG (SETQ LINBUF (\SAVELINEBUF)) (SETQ SYSBUF (\SAVESYSBUF)) (COND ((OR LINBUF SYSBUF) (* ; "note in manual: if both buffers are empty, don't change saved ones.") (SETQ \LINBUF LINBUF) (SETQ \SYSBUF SYSBUF)))) (T (\CLEARSYSBUF))) (* ; "check for mouse events enabled and coordinated with keyboard") (\RESETTERMINAL)))) NIL)
-)
+  [LAMBDA (FILE FLG)                                     (* ; "Edited 17-Jan-87 16:08 by bvm:")
+    [PROG ([STRM (SELECTQ FILE
+                     (T \LINEBUF.OFD)
+                     (NIL *STANDARD-INPUT*)
+                     (\GETSTREAM FILE 'INPUT]
+           SYSBUF LINBUF)                                    (* ; 
+    "Do the stream coercion in line so we don't needlessly create a tty window just to clear input")
+          (COND
+             ((AND (EQ STRM \LINEBUF.OFD)
+                   (NEQ STRM \DEFAULTLINEBUF))               (* ; 
+     "Don't do this if \LINEBUF.OFD is the default, since then there really isn't anything to save")
+              (COND
+                 [FLG (SETQ LINBUF (\SAVELINEBUF))
+                      (SETQ SYSBUF (\SAVESYSBUF))
+                      (COND
+                         ((OR LINBUF SYSBUF)                 (* ; 
+                              "note in manual: if both buffers are empty, don't change saved ones.")
+                          (SETQ \LINBUF LINBUF)
+                          (SETQ \SYSBUF SYSBUF]
+                 (T (\CLEARSYSBUF)))                         (* ; 
+                                     "check for mouse events enabled and coordinated with keyboard")
+              (\RESETTERMINAL]
+    NIL])
 
 (LINBUF
-(LAMBDA (FLG) (* rrb "21-JUL-83 15:33") (COND (FLG (AND \LINBUF (CONCAT \LINBUF))) (T (SETQ \LINBUF NIL))))
-)
+  [LAMBDA (FLG)                                          (* rrb "21-JUL-83 15:33")
+    (COND
+       (FLG (AND \LINBUF (CONCAT \LINBUF)))
+       (T (SETQ \LINBUF NIL])
 
 (PAGEFULLFN
-(LAMBDA (STREAM) (* lmm "10-Jan-86 01:19") (* ;; "default function that is called by \STOPSCROLL?  when more lines are printed in a row than will fit on the screen or window.") (* ;; "If no input is pending, it waits for a character to be typed.") (LET ((KEYSTREAM (fetch (LINEBUFFER KEYBOARDSTREAM) of \LINEBUF.OFD))) (COND ((READP KEYSTREAM)) ((DISPLAYSTREAMP STREAM) (* ; "reverse only this window.") (RESETLST (RESETSAVE (SETDISPLAYHEIGHT T)) (COND ((AND (NOT (TTY.PROCESSP)) (EQ (PROCESSPROP (THIS.PROCESS) (QUOTE NAME)) (QUOTE MOUSE))) (* ; "Running under mouse, so can't make this proc be the tty process") (RESETSAVE (TTY.PROCESS (THIS.PROCESS))))) (RESETSAVE (INVERTW STREAM) (LIST (FUNCTION INVERTW) STREAM)) (BIN KEYSTREAM))) (T (PRIN1 \STOPSCROLLMESSAGE STREAM) (BIN KEYSTREAM) (* ; "Now erase the message") (FRPTQ (NCHARS \STOPSCROLLMESSAGE) (\OUTCHAR STREAM ERASECHARCODE)) (BLOCK)))))
-)
+  [LAMBDA (STREAM)                                       (* lmm "10-Jan-86 01:19")
+
+    (* ;; "default function that is called by \STOPSCROLL?  when more lines are printed in a row than will fit on the screen or window.")
+
+    (* ;; "If no input is pending, it waits for a character to be typed.")
+
+    (LET ((KEYSTREAM (fetch (LINEBUFFER KEYBOARDSTREAM) of \LINEBUF.OFD)))
+         (COND
+            ((READP KEYSTREAM))
+            ((DISPLAYSTREAMP STREAM)                         (* ; "reverse only this window.")
+             (RESETLST
+                 (RESETSAVE (SETDISPLAYHEIGHT T))
+                 [COND
+                    ((AND (NOT (TTY.PROCESSP))
+                          (EQ (PROCESSPROP (THIS.PROCESS)
+                                     'NAME)
+                              'MOUSE))                       (* ; 
+                                  "Running under mouse, so can't make this proc be the tty process")
+                     (RESETSAVE (TTY.PROCESS (THIS.PROCESS]
+                 (RESETSAVE (INVERTW STREAM)
+                        (LIST (FUNCTION INVERTW)
+                              STREAM))
+                 (BIN KEYSTREAM)))
+            (T (PRIN1 \STOPSCROLLMESSAGE STREAM)
+               (BIN KEYSTREAM)                               (* ; "Now erase the message")
+               (FRPTQ (NCHARS \STOPSCROLLMESSAGE)
+                      (\OUTCHAR STREAM ERASECHARCODE))
+               (BLOCK])
 
 (SETLINELENGTH
-(LAMBDA (N) (* rrb "22-JUL-83 10:10") (LINELENGTH (OR N (fetch (STREAM LINELENGTH) of \TERM.OFD)) T)))
+  [LAMBDA (N)                                            (* rrb "22-JUL-83 10:10")
+    (LINELENGTH (OR N (fetch (STREAM LINELENGTH) of \TERM.OFD))
+           T])
 
 (SYSBUF
-(LAMBDA (FLG) (* rrb "21-JUL-83 15:34") (COND (FLG (AND \SYSBUF (CONCAT \SYSBUF))) (T (SETQ \SYSBUF NIL))))
-)
+  [LAMBDA (FLG)                                          (* rrb "21-JUL-83 15:34")
+    (COND
+       (FLG (AND \SYSBUF (CONCAT \SYSBUF)))
+       (T (SETQ \SYSBUF NIL])
 
 (TERMCHARWIDTH
-(LAMBDA (CHARCODE STREAM TTBL) (* JonL " 8-NOV-83 03:28") (* ;; "Returns the width that the printed representation of CHARCODE would occupy if printed on the terminal STREAM, allowing for the various escape sequences.  Used by \ECHOCHAR") (\STREAMCHARWIDTH (LOGAND CHARCODE \CHARMASK) (\OUTSTREAMARG STREAM) (GETTERMTABLE TTBL)))
-)
+  [LAMBDA (CHARCODE STREAM TTBL)                         (* JonL " 8-NOV-83 03:28")
+
+    (* ;; "Returns the width that the printed representation of CHARCODE would occupy if printed on the terminal STREAM, allowing for the various escape sequences.  Used by \ECHOCHAR")
+
+    (\STREAMCHARWIDTH (LOGAND CHARCODE \CHARMASK)
+           (\OUTSTREAMARG STREAM)
+           (GETTERMTABLE TTBL])
 
 (TERMINAL-INPUT
-(LAMBDA U (* ; "Edited 17-Jan-87 16:08 by bvm:") (* ;;; "Return the current terminal output stream.  If an argument is supplied, make it the new terminal output stream") (PROG1 \LINEBUF.OFD (COND ((IGEQ U 1) (LET ((STREAM (GETSTREAM (ARG U 1) (QUOTE INPUT)))) (if (EQ *STANDARD-INPUT* \LINEBUF.OFD) then (SETQ *STANDARD-INPUT* STREAM)) (SETQ \LINEBUF.OFD STREAM))))))
-)
+  [LAMBDA U                                              (* ; "Edited 17-Jan-87 16:08 by bvm:")
+
+(* ;;; "Return the current terminal output stream.  If an argument is supplied, make it the new terminal output stream")
+
+    (PROG1 \LINEBUF.OFD
+        [COND
+           ((IGEQ U 1)
+            (LET [(STREAM (GETSTREAM (ARG U 1)
+                                 'INPUT]
+                 (if (EQ *STANDARD-INPUT* \LINEBUF.OFD)
+                     then (SETQ *STANDARD-INPUT* STREAM))
+                 (SETQ \LINEBUF.OFD STREAM])])
 
 (TERMINAL-OUTPUT
-(LAMBDA U (* ; "Edited 17-Jan-87 16:08 by bvm:") (* ;;; "Return the current terminal output stream.  If an argument is supplied, make it the new terminal output stream") (PROG1 \TERM.OFD (COND ((IGEQ U 1) (LET ((STREAM (GETSTREAM (ARG U 1) (QUOTE OUTPUT)))) (if (EQ *STANDARD-OUTPUT* \TERM.OFD) then (SETQ *STANDARD-OUTPUT* STREAM)) (SETQ TtyDisplayStream (SETQ \TERM.OFD STREAM)))))))
-)
+  [LAMBDA U                                              (* ; "Edited 17-Jan-87 16:08 by bvm:")
+
+(* ;;; "Return the current terminal output stream.  If an argument is supplied, make it the new terminal output stream")
+
+    (PROG1 \TERM.OFD
+        [COND
+           ((IGEQ U 1)
+            (LET [(STREAM (GETSTREAM (ARG U 1)
+                                 'OUTPUT]
+                 (if (EQ *STANDARD-OUTPUT* \TERM.OFD)
+                     then (SETQ *STANDARD-OUTPUT* STREAM))
+                 (SETQ TtyDisplayStream (SETQ \TERM.OFD STREAM])])
 
 (\CHDEL1
-(LAMBDA NIL (* rmk%: "28-Mar-85 18:25") (COND ((\BACKNSCHAR \LINEBUF.OFD (UNFOLD \NORUNCODE 256)) (PROG1 (\NSPEEK \LINEBUF.OFD (UNFOLD \NORUNCODE 256)) (\SETEOFPTR \LINEBUF.OFD (GETFILEPTR \LINEBUF.OFD))))))
-)
+  [LAMBDA NIL                                            (* rmk%: "28-Mar-85 18:25")
+    (COND
+       ((\BACKNSCHAR \LINEBUF.OFD (UNFOLD \NORUNCODE 256))
+        (PROG1 (\NSPEEK \LINEBUF.OFD (UNFOLD \NORUNCODE 256))
+            (\SETEOFPTR \LINEBUF.OFD (GETFILEPTR \LINEBUF.OFD)))])
 
 (\CLOSELINE
-(LAMBDA NIL (* lmm "10-Jan-86 03:07") (SETQ \CURRENTDISPLAYLINE 0) (UNINTERRUPTABLY (\SETFILEPTR \LINEBUF.OFD 0) (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with READING.LBS)))
-)
+  [LAMBDA NIL                                            (* lmm "10-Jan-86 03:07")
+    (SETQ \CURRENTDISPLAYLINE 0)
+    (UNINTERRUPTABLY
+        (\SETFILEPTR \LINEBUF.OFD 0)
+        (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with READING.LBS))])
 
 (\DECPARENCOUNT
-(LAMBDA (RSNX) (* bvm%: "14-Feb-85 00:29") (* ;; "This updates parencounts as characters are removed from the buffer due to line-editting.  RSNX is a readtable syntax code") (COND ((EQ RSNX STRINGDELIM.RC) (replace (LINEBUFFER INSTRINGP) of \LINEBUF.OFD with (NOT (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD)))) ((NOT (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD)) (SELECTC RSNX (LEFTPAREN.RC (COND ((EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) 0) (add (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD) -1)))) (RIGHTPAREN.RC (COND ((EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) 0) (add (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD) 1)))) (LEFTBRACKET.RC (add (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) -1)) (RIGHTBRACKET.RC (add (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) 1)) NIL))))
-)
+  [LAMBDA (RSNX)                                         (* bvm%: "14-Feb-85 00:29")
+
+    (* ;; "This updates parencounts as characters are removed from the buffer due to line-editting.  RSNX is a readtable syntax code")
+
+    (COND
+       [(EQ RSNX STRINGDELIM.RC)
+        (replace (LINEBUFFER INSTRINGP) of \LINEBUF.OFD with (NOT (fetch (LINEBUFFER
+                                                                                          INSTRINGP)
+                                                                                 of \LINEBUF.OFD]
+       ((NOT (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD))
+        (SELECTC RSNX
+            (LEFTPAREN.RC (COND
+                             ((EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                                  0)
+                              (add (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD)
+                                     -1))))
+            (RIGHTPAREN.RC (COND
+                              ((EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                                   0)
+                               (add (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD)
+                                      1))))
+            (LEFTBRACKET.RC 
+                 (add (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                        -1))
+            (RIGHTBRACKET.RC 
+                 (add (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                        1))
+            NIL])
 
 (\ECHOCHAR
-(LAMBDA (C) (* ; "Edited 15-Jun-87 16:58 by jds") (* ;; "Echo the character-code C appropriately.  If it really got echoed, return T, otherwise NIL.") (COND ((fetch ECHOFLG of \PRIMTERMTABLE) (COND ((AND (EQ (fetch RAISEFLG of \PRIMTERMTABLE) 0) (IGEQ C (CHARCODE a)) (ILEQ C (CHARCODE z))) (* ; "This is doing a raise if flag is set") (SETQ C (IDIFFERENCE C 32)))) (\OUTCHAR \TERM.OFD C) T)))
-)
+  [LAMBDA (C)                                            (* ; "Edited 15-Jun-87 16:58 by jds")
+
+    (* ;; 
+  "Echo the character-code C appropriately.  If it really got echoed, return T, otherwise NIL.")
+
+    (COND
+       ((fetch ECHOFLG of \PRIMTERMTABLE)
+        [COND
+           ((AND (EQ (fetch RAISEFLG of \PRIMTERMTABLE)
+                     0)
+                 (IGEQ C (CHARCODE a))
+                 (ILEQ C (CHARCODE z)))                      (* ; 
+                                                           "This is doing a raise if flag is set")
+            (SETQ C (IDIFFERENCE C 32]
+        (\OUTCHAR \TERM.OFD C)
+        T])
 
 (\FILLBUFFER
-(LAMBDA (FILLTYPE) (* ; "Edited 20-Aug-87 17:52 by jds") (* ;; "While filling the line, the current file pointer is the end of the line.  When the line is closed, this is made the eof.   *READTABLE* is used for syntactic delimiters and paren counting on READ and RATOM calls but isn't referenced (or bound) for READC") (DECLARE (USEDFREE *READTABLE* *READ-NEWLINE-SUPPRESS*)) (\RESETLINE) (PROG ((ILB (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)) (ISP (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD)) (ILP (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD)) (KEYSTREAM (fetch (LINEBUFFER KEYBOARDSTREAM) of \LINEBUF.OFD)) (RTBLSA (fetch READSA of *READTABLE*)) (CONTROLTON (fetch CONTROLFLG of \PRIMTERMTABLE)) RSNX TCLASS CHAR RAISEDCHAR PEEKEDECHOED) (* ;; "AR 8999/9000 the RTBLSA init code used to set it to nil if FILLTYPE were READC.FT; alas, RTBLSA is used even when that's true. --JDS 8/20/87") (DECLARE (SPECVARS RTBLSA)) (* ; "TCLASS is terminal syntax class, RSNX is read-table code") (COND ((SETQ CHAR (fetch (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD)) (* ; "Account for peeked character, adn remember if for further down.") (SETQ CHAR (IABS CHAR)) (* ; "The peeked char may be negative because it was BIN'ed earlier.  Make sure it is positive.") (COND ((NOT (fetch (LINEBUFFER PEEKEDECHOFLG) of \LINEBUF.OFD)) (* ; "It wasn't echoed when first read, so echo it now if desired") (* ; "Incompatible with I-10 to do it this way") (\ECHOCHAR CHAR))) (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD with NIL) (replace (LINEBUFFER PEEKEDECHOFLG) of \LINEBUF.OFD with NIL) (SETQ PEEKEDECHOED T) (SETQ RAISEDCHAR (\RAISECHAR CHAR)))) (COND ((AND CONTROLTON (EQ FILLTYPE READC.FT)) (\LINEBUFBOUT \LINEBUF.OFD (OR CHAR (\GETCHAR))) (GO EXIT))) (COND (CHAR (GO NEXTTCLASS))) NEXT (SETQ CHAR (BIN KEYSTREAM)) NEXTTCLASS (SETQ TCLASS (fetch TERMCLASS of (\SYNCODE \PRIMTERMSA (SETQ RAISEDCHAR (\RAISECHAR CHAR))))) REDO (SELECTC TCLASS (RETYPE.TC (\OUTCHAR \TERM.OFD (CHARCODE EOL)) (\SETEOFPTR \LINEBUF.OFD (\GETFILEPTR \LINEBUF.OFD)) (* ;; "Make the EOF be accurate during retyping, in case an interrupt happens and the buffer gets saved via \SAVELINEBUF.") (UNINTERRUPTABLY (\SETFILEPTR \LINEBUF.OFD 0) (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with RETYPING.LBS)) (until (\PAGEDEOFP \LINEBUF.OFD) do (\OUTCHAR \TERM.OFD (\NSIN \LINEBUF.OFD (UNFOLD \NORUNCODE 256)))) (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with FILLING.LBS) (GO NEXT)) (CHARDELETE.TC (COND ((SETQ CHAR (\CHDEL1)) (\FILLBUFFER.BACKUP CHAR))) (GO RECOMPUTE)) (LINEDELETE.TC (while (SETQ CHAR (\CHDEL1)) do (\FILLBUFFER.BACKUP CHAR)) (GO RECOMPUTE)) (WORDDELETE.TC (COND ((SETQ CHAR (\CHDEL1)) (while (\FILLBUFFER.WORDSEPRP CHAR) do (* ; "first chars are seprs, delete them all") (\FILLBUFFER.BACKUP CHAR) (OR (SETQ CHAR (\CHDEL1)) (GO RECOMPUTE))) (\FILLBUFFER.BACKUP CHAR) (OR (SETQ CHAR (\CHDEL1)) (GO RECOMPUTE)) (while (NULL (\FILLBUFFER.WORDSEPRP CHAR)) do (\FILLBUFFER.BACKUP CHAR) (OR (SETQ CHAR (\CHDEL1)) (GO RECOMPUTE))) (* ; "put CHAR back") (\LINEBUFBOUT \LINEBUF.OFD CHAR) (GO RECOMPUTE))) (GO NEXT)) (CTRLV.TC (* ;; "The reasonable thing to do is coerce the character, set TCLASS to NONE.TC, and go REDO.  But on the 10, ctlv disables the immediacy of read-macros.  This is quite bizarre, cause a macro that was suppose to do something in the middle of reading will be done out of context.  We simulate that behavior, however.") (COND (PEEKEDECHOED (* ; "Has been echoed already, don't echo it again.") (SETQ PEEKEDECHOED NIL)) (T (\ECHOCHAR CHAR))) (* ; "Want to echo ^V") (\LINEBUFBOUT \LINEBUF.OFD (COND ((OR (AND (IGEQ (SETQ RAISEDCHAR (\GETCHAR)) (CHARCODE A)) (ILEQ RAISEDCHAR (CHARCODE Z))) (AND (IGEQ RAISEDCHAR (CHARCODE a)) (ILEQ RAISEDCHAR (CHARCODE z)))) (LOGAND RAISEDCHAR 31)) (T RAISEDCHAR))) (GO NEXT)) (EOL.TC (COND (PEEKEDECHOED (* ; "Has been echoed already, don't echo it again.") (SETQ PEEKEDECHOED NIL)) (T (\ECHOCHAR CHAR))) (\LINEBUFBOUT \LINEBUF.OFD RAISEDCHAR) (GO EXIT)) NIL) (COND (PEEKEDECHOED (SETQ PEEKEDECHOED NIL)) (T (\ECHOCHAR CHAR))) (* ; "Here if it isn't a terminal class.  Only echo if it isn't a special terminal class") (\LINEBUFBOUT \LINEBUF.OFD RAISEDCHAR) (AND (EQ FILLTYPE READC.FT) (GO NEXT)) (COND ((EQ ESCAPE.RC (SETQ RSNX (\SYNCODE RTBLSA RAISEDCHAR))) (* ; "On Tenex the escape inhibits the action of all terminal characters except control-V.") (COND ((EQ CTRLV.TC (SETQ TCLASS (fetch TERMCLASS of (\SYNCODE \PRIMTERMSA (SETQ RAISEDCHAR (\GETCHAR)))))) (GO REDO))) (\LINEBUFBOUT \LINEBUF.OFD RAISEDCHAR) (GO NEXT))) (SELECTC FILLTYPE (RATOM/RSTRING.FT (COND ((AND CONTROLTON (fetch STOPATOM of RSNX)) (GO EXIT)))) (READ.FT (COND ((AND CONTROLTON (EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) 0) (EQ (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD) 0) (fetch STOPATOM of RSNX) (SELECTC RSNX ((LIST LEFTPAREN.RC LEFTBRACKET.RC) NIL) (STRINGDELIM.RC (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD)) (NOT (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD)))) (* ;; "READ is reading an atom.  Return when atom ends, but also obey bracket/paren exception noted on page 14.33 of manual.") (GO EXIT))) (COND ((\INCPARENCOUNT RSNX) (* ;; "Parens balance--throw the carriage if the closing paren or bracket character was not a CR, and if FLG argument of READ is NIL.  (We know we are under a READ call because of FILLTYPE)") (\CLOSELINE) (* ; "\CLOSELINE first so dribble happens before EOL") (COND ((AND (NEQ RAISEDCHAR (CHARCODE EOL)) (NOT *READ-NEWLINE-SUPPRESS*)) (\OUTCHAR \TERM.OFD (CHARCODE EOL)))) (RETURN)) ((EQ IMMEDIATE.RMW (fetch WAKEUP of RSNX)) (* ; "Immediate read-macro") (GO EXIT)))) (SHOULDNT)) (GO NEXT) RECOMPUTE (AND (EQ FILLTYPE READ.FT) (PROGN (UNINTERRUPTABLY (\SETFILEPTR \LINEBUF.OFD 0) (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with RETYPING.LBS) (replace (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD with ILB) (replace (LINEBUFFER INSTRINGP) of \LINEBUF.OFD with ISP) (replace (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD with ILP)) (until (\PAGEDEOFP \LINEBUF.OFD) do (SETQ CHAR (\NSIN \LINEBUF.OFD (UNFOLD \NORUNCODE 256))) (COND ((EQ ESCAPE.RC (SETQ RSNX (\SYNCODE RTBLSA CHAR))) (OR (\PAGEDEOFP \LINEBUF.OFD) (\NSIN \LINEBUF.OFD (UNFOLD \NORUNCODE 256)))) (T (\INCPARENCOUNT RSNX)))) (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with FILLING.LBS))) (GO NEXT) EXIT (\CLOSELINE)))
-)
+  [LAMBDA (FILLTYPE)                                     (* ; "Edited 20-Aug-87 17:52 by jds")
+
+    (* ;; "While filling the line, the current file pointer is the end of the line.  When the line is closed, this is made the eof.   *READTABLE* is used for syntactic delimiters and paren counting on READ and RATOM calls but isn't referenced (or bound) for READC")
+
+    (DECLARE (USEDFREE *READTABLE* *READ-NEWLINE-SUPPRESS*))
+    (\RESETLINE)
+    (PROG ((ILB (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD))
+           (ISP (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD))
+           (ILP (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD))
+           (KEYSTREAM (fetch (LINEBUFFER KEYBOARDSTREAM) of \LINEBUF.OFD))
+           (RTBLSA (fetch READSA of *READTABLE*))
+           (CONTROLTON (fetch CONTROLFLG of \PRIMTERMTABLE))
+           RSNX TCLASS CHAR RAISEDCHAR PEEKEDECHOED)
+
+     (* ;; "AR 8999/9000 the RTBLSA init code used to set it to nil if FILLTYPE were READC.FT; alas, RTBLSA is used even when that's true. --JDS 8/20/87")
+
+          (DECLARE (SPECVARS RTBLSA))                    (* ; 
+                                         "TCLASS is terminal syntax class, RSNX is read-table code")
+          [COND
+             ((SETQ CHAR (fetch (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD))
+                                                             (* ; 
+                                  "Account for peeked character, adn remember if for further down.")
+              (SETQ CHAR (IABS CHAR))                        (* ; 
+        "The peeked char may be negative because it was BIN'ed earlier.  Make sure it is positive.")
+              (COND
+                 ((NOT (fetch (LINEBUFFER PEEKEDECHOFLG) of \LINEBUF.OFD))
+                                                             (* ; 
+                                      "It wasn't echoed when first read, so echo it now if desired")
+                                                             (* ; 
+                                                         "Incompatible with I-10 to do it this way")
+                  (\ECHOCHAR CHAR)))
+              (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD with NIL)
+              (replace (LINEBUFFER PEEKEDECHOFLG) of \LINEBUF.OFD with NIL)
+              (SETQ PEEKEDECHOED T)
+              (SETQ RAISEDCHAR (\RAISECHAR CHAR]
+          (COND
+             ((AND CONTROLTON (EQ FILLTYPE READC.FT))
+              (\LINEBUFBOUT \LINEBUF.OFD (OR CHAR (\GETCHAR)))
+              (GO EXIT)))
+          (COND
+             (CHAR (GO NEXTTCLASS)))
+      NEXT
+          (SETQ CHAR (BIN KEYSTREAM))
+      NEXTTCLASS
+          [SETQ TCLASS (fetch TERMCLASS of (\SYNCODE \PRIMTERMSA (SETQ RAISEDCHAR
+                                                                          (\RAISECHAR CHAR]
+      REDO
+          (SELECTC TCLASS
+              (RETYPE.TC (\OUTCHAR \TERM.OFD (CHARCODE EOL))
+                         (\SETEOFPTR \LINEBUF.OFD (\GETFILEPTR \LINEBUF.OFD))
+
+                         (* ;; "Make the EOF be accurate during retyping, in case an interrupt happens and the buffer gets saved via \SAVELINEBUF.")
+
+                         (UNINTERRUPTABLY
+                             (\SETFILEPTR \LINEBUF.OFD 0)
+                             (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with
+                                                                                        RETYPING.LBS))
+                         [until (\PAGEDEOFP \LINEBUF.OFD)
+                            do (\OUTCHAR \TERM.OFD (\NSIN \LINEBUF.OFD (UNFOLD \NORUNCODE 256]
+                         (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with 
+                                                                                          FILLING.LBS
+                                )
+                         (GO NEXT))
+              (CHARDELETE.TC (COND
+                                ((SETQ CHAR (\CHDEL1))
+                                 (\FILLBUFFER.BACKUP CHAR)))
+                             (GO RECOMPUTE))
+              (LINEDELETE.TC (while (SETQ CHAR (\CHDEL1)) do (\FILLBUFFER.BACKUP
+                                                                          CHAR))
+                             (GO RECOMPUTE))
+              (WORDDELETE.TC (COND
+                                ((SETQ CHAR (\CHDEL1))
+                                 (while (\FILLBUFFER.WORDSEPRP CHAR)
+                                    do                   (* ; 
+                                                           "first chars are seprs, delete them all")
+                                          (\FILLBUFFER.BACKUP CHAR)
+                                          (OR (SETQ CHAR (\CHDEL1))
+                                              (GO RECOMPUTE)))
+                                 (\FILLBUFFER.BACKUP CHAR)
+                                 (OR (SETQ CHAR (\CHDEL1))
+                                     (GO RECOMPUTE))
+                                 (while (NULL (\FILLBUFFER.WORDSEPRP CHAR))
+                                    do (\FILLBUFFER.BACKUP CHAR)
+                                          (OR (SETQ CHAR (\CHDEL1))
+                                              (GO RECOMPUTE)))
+                                                             (* ; "put CHAR back")
+                                 (\LINEBUFBOUT \LINEBUF.OFD CHAR)
+                                 (GO RECOMPUTE)))
+                             (GO NEXT))
+              (CTRLV.TC 
+                        (* ;; "The reasonable thing to do is coerce the character, set TCLASS to NONE.TC, and go REDO.  But on the 10, ctlv disables the immediacy of read-macros.  This is quite bizarre, cause a macro that was suppose to do something in the middle of reading will be done out of context.  We simulate that behavior, however.")
+
+                        (COND
+                           (PEEKEDECHOED                     (* ; 
+                                                    "Has been echoed already, don't echo it again.")
+                                  (SETQ PEEKEDECHOED NIL))
+                           (T (\ECHOCHAR CHAR)))         (* ; "Want to echo ^V")
+                        (\LINEBUFBOUT \LINEBUF.OFD (COND
+                                                      ([OR (AND (IGEQ (SETQ RAISEDCHAR (\GETCHAR)
+                                                                       )
+                                                                      (CHARCODE A))
+                                                                (ILEQ RAISEDCHAR (CHARCODE Z)))
+                                                           (AND (IGEQ RAISEDCHAR (CHARCODE a))
+                                                                (ILEQ RAISEDCHAR (CHARCODE z]
+                                                       (LOGAND RAISEDCHAR 31))
+                                                      (T RAISEDCHAR)))
+                        (GO NEXT))
+              (EOL.TC (COND
+                         (PEEKEDECHOED                       (* ; 
+                                                    "Has been echoed already, don't echo it again.")
+                                (SETQ PEEKEDECHOED NIL))
+                         (T (\ECHOCHAR CHAR)))
+                      (\LINEBUFBOUT \LINEBUF.OFD RAISEDCHAR)
+                      (GO EXIT))
+              NIL)
+          (COND
+             (PEEKEDECHOED (SETQ PEEKEDECHOED NIL))
+             (T (\ECHOCHAR CHAR)))                       (* ; 
+               "Here if it isn't a terminal class.  Only echo if it isn't a special terminal class")
+          (\LINEBUFBOUT \LINEBUF.OFD RAISEDCHAR)
+          (AND (EQ FILLTYPE READC.FT)
+               (GO NEXT))
+          (COND
+             ((EQ ESCAPE.RC (SETQ RSNX (\SYNCODE RTBLSA RAISEDCHAR)))
+                                                             (* ; 
+             "On Tenex the escape inhibits the action of all terminal characters except control-V.")
+              (COND
+                 ([EQ CTRLV.TC (SETQ TCLASS (fetch TERMCLASS of (\SYNCODE \PRIMTERMSA
+                                                                               (SETQ RAISEDCHAR
+                                                                                (\GETCHAR]
+                  (GO REDO)))
+              (\LINEBUFBOUT \LINEBUF.OFD RAISEDCHAR)
+              (GO NEXT)))
+          (SELECTC FILLTYPE
+              (RATOM/RSTRING.FT 
+                   (COND
+                      ((AND CONTROLTON (fetch STOPATOM of RSNX))
+                       (GO EXIT))))
+              (READ.FT (COND
+                          ([AND CONTROLTON (EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                                               0)
+                                (EQ (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD)
+                                    0)
+                                (fetch STOPATOM of RSNX)
+                                (SELECTC RSNX
+                                    ((LIST LEFTPAREN.RC LEFTBRACKET.RC) 
+                                         NIL)
+                                    (STRINGDELIM.RC 
+                                         (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD))
+                                    (NOT (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD]
+
+                           (* ;; "READ is reading an atom.  Return when atom ends, but also obey bracket/paren exception noted on page 14.33 of manual.")
+
+                           (GO EXIT)))
+                       (COND
+                          ((\INCPARENCOUNT RSNX)
+
+                           (* ;; "Parens balance--throw the carriage if the closing paren or bracket character was not a CR, and if FLG argument of READ is NIL.  (We know we are under a READ call because of FILLTYPE)")
+
+                           (\CLOSELINE)                  (* ; 
+                                                   "\CLOSELINE first so dribble happens before EOL")
+                           [COND
+                              ((AND (NEQ RAISEDCHAR (CHARCODE EOL))
+                                    (NOT *READ-NEWLINE-SUPPRESS*))
+                               (\OUTCHAR \TERM.OFD (CHARCODE EOL]
+                           (RETURN))
+                          ((EQ IMMEDIATE.RMW (fetch WAKEUP of RSNX))
+                                                             (* ; "Immediate read-macro")
+                           (GO EXIT))))
+              (SHOULDNT))
+          (GO NEXT)
+      RECOMPUTE
+          (AND (EQ FILLTYPE READ.FT)
+               (PROGN (UNINTERRUPTABLY
+                          (\SETFILEPTR \LINEBUF.OFD 0)
+                          (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with 
+                                                                                         RETYPING.LBS
+                                 )
+                          (replace (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD with ILB)
+                          (replace (LINEBUFFER INSTRINGP) of \LINEBUF.OFD with ISP)
+                          (replace (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD with ILP))
+                      [until (\PAGEDEOFP \LINEBUF.OFD)
+                         do (SETQ CHAR (\NSIN \LINEBUF.OFD (UNFOLD \NORUNCODE 256)))
+                               (COND
+                                  [(EQ ESCAPE.RC (SETQ RSNX (\SYNCODE RTBLSA CHAR)))
+                                   (OR (\PAGEDEOFP \LINEBUF.OFD)
+                                       (\NSIN \LINEBUF.OFD (UNFOLD \NORUNCODE 256]
+                                  (T (\INCPARENCOUNT RSNX]
+                      (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with FILLING.LBS
+                             )))
+          (GO NEXT)
+      EXIT
+          (\CLOSELINE])
 
 (\FILLBUFFER.WORDSEPRP
-(LAMBDA (CHAR) (* lmm "17-Jan-86 19:44") (OR (EQ WORDSEPR.TC (fetch TERMCLASS of (\SYNCODE \PRIMTERMSA CHAR))) (NEQ OTHER.RC (\SYNCODE RTBLSA CHAR))))
-)
+  [LAMBDA (CHAR)                                         (* lmm "17-Jan-86 19:44")
+    (OR (EQ WORDSEPR.TC (fetch TERMCLASS of (\SYNCODE \PRIMTERMSA CHAR)))
+        (NEQ OTHER.RC (\SYNCODE RTBLSA CHAR])
 
 (\FILLBUFFER.BACKUP
-(LAMBDA (CHAR) (* lmm "10-Jan-86 18:32") (DSPBACKUP (CHARWIDTH CHAR \TERM.OFD) \TERM.OFD)))
+  [LAMBDA (CHAR)                                         (* lmm "10-Jan-86 18:32")
+    (DSPBACKUP (CHARWIDTH CHAR \TERM.OFD)
+           \TERM.OFD])
 
 (\GETCHAR
-(LAMBDA NIL (* lmm "30-Dec-85 17:25") (PROG ((C (BIN (fetch (LINEBUFFER KEYBOARDSTREAM) of \LINEBUF.OFD)))) (\ECHOCHAR C) (* ; "Echo here so raise-echo is correct") (RETURN (\RAISECHAR C))))
-)
+  [LAMBDA NIL                                            (* lmm "30-Dec-85 17:25")
+    (PROG [(C (BIN (fetch (LINEBUFFER KEYBOARDSTREAM) of \LINEBUF.OFD]
+          (\ECHOCHAR C)                                  (* ; 
+                                                           "Echo here so raise-echo is correct")
+          (RETURN (\RAISECHAR C])
 
 (\INCPARENCOUNT
-(LAMBDA (RSNX) (* bvm%: "14-Feb-85 00:30") (* ;; "This maintains the paren count as characters are added to the buffer.  RSNX is a readtable syntax code.  Returns T when parens balance.") (COND ((EQ RSNX STRINGDELIM.RC) (replace (LINEBUFFER INSTRINGP) of \LINEBUF.OFD with (NOT (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD))) NIL) ((NOT (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD)) (SELECTC RSNX (LEFTPAREN.RC (AND (EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) 0) (add (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD) 1)) NIL) (RIGHTPAREN.RC (* ; "NOTE: RP's never match left-brackets, just like on 10") (AND (EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) 0) (OR (EQ (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD) 0) (EQ (add (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD) -1) 0)))) (LEFTBRACKET.RC (add (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) 1) NIL) (RIGHTBRACKET.RC (COND ((EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) 0) (replace (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD with 0)) (T (AND (EQ (add (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD) -1) 0) (EQ (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD) 0))))) NIL))))
-)
+  [LAMBDA (RSNX)                                         (* bvm%: "14-Feb-85 00:30")
+
+    (* ;; "This maintains the paren count as characters are added to the buffer.  RSNX is a readtable syntax code.  Returns T when parens balance.")
+
+    (COND
+       ((EQ RSNX STRINGDELIM.RC)
+        (replace (LINEBUFFER INSTRINGP) of \LINEBUF.OFD with (NOT (fetch (LINEBUFFER
+                                                                                          INSTRINGP)
+                                                                                 of \LINEBUF.OFD)
+                                                                              ))
+        NIL)
+       ((NOT (fetch (LINEBUFFER INSTRINGP) of \LINEBUF.OFD))
+        (SELECTC RSNX
+            (LEFTPAREN.RC (AND (EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                                   0)
+                               (add (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD)
+                                      1))
+                          NIL)
+            (RIGHTPAREN.RC                                   (* ; 
+                                            "NOTE: RP's never match left-brackets, just like on 10")
+                           (AND (EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                                    0)
+                                (OR (EQ (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD)
+                                        0)
+                                    (EQ (add (fetch (LINEBUFFER LPARCOUNT) of 
+                                                                                         \LINEBUF.OFD
+                                                        )
+                                               -1)
+                                        0))))
+            (LEFTBRACKET.RC 
+                 (add (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                        1)
+                 NIL)
+            (RIGHTBRACKET.RC 
+                 [COND
+                    ((EQ (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                         0)
+                     (replace (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD with 0))
+                    (T (AND (EQ (add (fetch (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD)
+                                       -1)
+                                0)
+                            (EQ (fetch (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD)
+                                0])
+            NIL])
 
 (\RESETLINE
-(LAMBDA NIL (* jds "10-Apr-85 23:17") (UNINTERRUPTABLY (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with FILLING.LBS) (\SETFILEPTR \LINEBUF.OFD 0) (\SETEOFPTR \LINEBUF.OFD 0)) (SETQ \CURRENTDISPLAYLINE 0))
-)
+  [LAMBDA NIL                                            (* jds "10-Apr-85 23:17")
+    (UNINTERRUPTABLY
+        (replace (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD with FILLING.LBS)
+        (\SETFILEPTR \LINEBUF.OFD 0)
+        (\SETEOFPTR \LINEBUF.OFD 0))
+    (SETQ \CURRENTDISPLAYLINE 0])
 
 (\RESETTERMINAL
-(LAMBDA NIL (* bvm%: "11-Jul-84 23:15") (DECLARE (GLOBALVARS \VideoColor)) (* ;; "Called by CLEARBUF and by RESET and ERROR! when returning to the TOPFRAME on the stack") (replace (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD with 0) (replace (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD with 0) (replace (LINEBUFFER INSTRINGP) of \LINEBUF.OFD with NIL) (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD with NIL) (\RESETLINE) (* ; "Since we aren't immediately filling the buffer, guarantee that the next read causes an EOF error") (VIDEOCOLOR \VideoColor))
-)
+  [LAMBDA NIL                                            (* bvm%: "11-Jul-84 23:15")
+    (DECLARE (GLOBALVARS \VideoColor))
+
+    (* ;; "Called by CLEARBUF and by RESET and ERROR! when returning to the TOPFRAME on the stack")
+
+    (replace (LINEBUFFER LPARCOUNT) of \LINEBUF.OFD with 0)
+    (replace (LINEBUFFER LBRKCOUNT) of \LINEBUF.OFD with 0)
+    (replace (LINEBUFFER INSTRINGP) of \LINEBUF.OFD with NIL)
+    (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD with NIL)
+    (\RESETLINE)                                         (* ; 
+ "Since we aren't immediately filling the buffer, guarantee that the next read causes an EOF error")
+    (VIDEOCOLOR \VideoColor])
 
 (\SAVELINEBUF
-(LAMBDA NIL (* ; "Edited  9-Mar-88 11:41 by bvm") (* ;; "Don't have to set the fileptr to its original place cause we are heading for a \RESETTERMINAL in CLEARBUF") (SELECTC (fetch (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD) (FILLING.LBS (\CLOSELINE)) (RETYPING.LBS (* ; "EOF is valid, but current fileptr isn't") (\SETFILEPTR \LINEBUF.OFD 0)) NIL) (COND ((NOT (\PAGEDEOFP \LINEBUF.OFD)) (LET* ((NBYTES (- (\GETEOFPTR \LINEBUF.OFD) (\GETFILEPTR \LINEBUF.OFD))) (NC NBYTES) (STR (if (EQ (fetch (STREAM CHARSET) of \LINEBUF.OFD) 0) then (* ; "Thin linebuffer") (ALLOCSTRING NC) else (* ; "Fat linebuffer.  This should always be the case now") (ALLOCSTRING (SETQ NC (FOLDHI NBYTES 2)) NIL NIL T)))) (* ;; "Read chars into string.  Do it this way, rather than thru, say RSTRING, because we want to treat linebuf as an ordinary stream, not a terminal stream;  (EOFP T) = NIL would defeat us.") (\BINS \LINEBUF.OFD (fetch (STRINGP BASE) of STR) 0 NBYTES) (if (OR (> NC 1) (NEQ (CHCON1 STR) (CHARCODE CR))) then (* ; "Only something to save if it's not a naked eol.") STR)))))
-)
+  [LAMBDA NIL                                            (* ; "Edited  9-Mar-88 11:41 by bvm")
+
+    (* ;; "Don't have to set the fileptr to its original place cause we are heading for a \RESETTERMINAL in CLEARBUF")
+
+    (SELECTC (fetch (LINEBUFFER LINEBUFSTATE) of \LINEBUF.OFD)
+        (FILLING.LBS (\CLOSELINE))
+        (RETYPING.LBS                                        (* ; 
+                                                          "EOF is valid, but current fileptr isn't")
+                      (\SETFILEPTR \LINEBUF.OFD 0))
+        NIL)
+    (COND
+       ((NOT (\PAGEDEOFP \LINEBUF.OFD))
+        (LET* [(NBYTES (- (\GETEOFPTR \LINEBUF.OFD)
+                          (\GETFILEPTR \LINEBUF.OFD)))
+               (NC NBYTES)
+               (STR (if (EQ (fetch (STREAM CHARSET) of \LINEBUF.OFD)
+                                0)
+                        then                             (* ; "Thin linebuffer")
+                              (ALLOCSTRING NC)
+                      else                               (* ; 
+                                              "Fat linebuffer.  This should always be the case now")
+                            (ALLOCSTRING (SETQ NC (FOLDHI NBYTES 2))
+                                   NIL NIL T]
+
+              (* ;; "Read chars into string.  Do it this way, rather than thru, say RSTRING, because we want to treat linebuf as an ordinary stream, not a terminal stream;  (EOFP T) = NIL would defeat us.")
+
+              (\BINS \LINEBUF.OFD (fetch (STRINGP BASE) of STR)
+                     0 NBYTES)
+              (if (OR (> NC 1)
+                          (NEQ (CHCON1 STR)
+                               (CHARCODE CR)))
+                  then                                   (* ; 
+                                                  "Only something to save if it's not a naked eol.")
+                        STR])
 
 (\STOPSCROLL?
-(LAMBDA NIL (* lmm "11-Feb-86 09:56") (* ;; "Called whenever a carriage-return is printed on the display.  Keeps track of number of lines since last user input.  If this one would scroll information off the screen, it calls the users window specific function or the function PAGEFULLFN which waits for the user to type a character.") (DECLARE (GLOBALVARS \STOPSCROLLMESSAGE)) (* ; "Set \#DISPLAYLINEs to NIL to disable") (COND ((AND (NEQ \CURRENTDISPLAYLINE -1) (OR (EQ \#DISPLAYLINES 0) (NOT (SMALLP \#DISPLAYLINES))))) ((OR (EQ \CURRENTDISPLAYLINE -1) (EQ \#DISPLAYLINES (SETQ \CURRENTDISPLAYLINE (ADD1 \CURRENTDISPLAYLINE)))) (SETQ \CURRENTDISPLAYLINE 0) (LET ((W (AND \WINDOWWORLD (WFROMDS (TTYDISPLAYSTREAM)))) WINDOWFN) (COND ((AND W (SETQ WINDOWFN (WINDOWPROP W (QUOTE PAGEFULLFN)))) (APPLY* WINDOWFN (TTYDISPLAYSTREAM))) (T (PAGEFULLFN (TTYDISPLAYSTREAM))))))))
-)
+  [LAMBDA NIL                                            (* lmm "11-Feb-86 09:56")
+
+    (* ;; "Called whenever a carriage-return is printed on the display.  Keeps track of number of lines since last user input.  If this one would scroll information off the screen, it calls the users window specific function or the function PAGEFULLFN which waits for the user to type a character.")
+
+    (DECLARE (GLOBALVARS \STOPSCROLLMESSAGE))            (* ; 
+                                                           "Set \#DISPLAYLINEs to NIL to disable")
+    (COND
+       [(AND (NEQ \CURRENTDISPLAYLINE -1)
+             (OR (EQ \#DISPLAYLINES 0)
+                 (NOT (SMALLP \#DISPLAYLINES]
+       ([OR (EQ \CURRENTDISPLAYLINE -1)
+            (EQ \#DISPLAYLINES (SETQ \CURRENTDISPLAYLINE (ADD1 \CURRENTDISPLAYLINE]
+        (SETQ \CURRENTDISPLAYLINE 0)
+        (LET ([W (AND \WINDOWWORLD (WFROMDS (TTYDISPLAYSTREAM]
+              WINDOWFN)
+             (COND
+                ([AND W (SETQ WINDOWFN (WINDOWPROP W 'PAGEFULLFN]
+                 (APPLY* WINDOWFN (TTYDISPLAYSTREAM)))
+                (T (PAGEFULLFN (TTYDISPLAYSTREAM])
 )
 
 (RPAQQ BCPLDISPLAYCOMS ((FNS \DSCCOUT \INITBCPLDISPLAY)
@@ -152,20 +586,77 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Co
 (DEFINEQ
 
 (\DSCCOUT
-(LAMBDA (STREAM CHARCODE) (* lmm " 5-OCT-83 18:31") (* ;; "The terminal outcharfn, prior for non-displaystream systems.  STREAM is always \TERM.OFD, but passed as an argument so that calling structure is the same as the more general display outcharfn, and thus, so that a simple MOVD can be done to install the display world.") (SELECTC (fetch CCECHO of (\SYNCODE \PRIMTERMSA CHARCODE)) (INDICATE.CCE (PROG ((CC CHARCODE)) (add (fetch CHARPOSITION of STREAM) (IPLUS (COND ((IGREATERP CC 127) (* ; "META character") (DSPBOUT (CHARCODE %#)) (SETQ CC (LOGAND CC 127)) 1) (T 0)) (COND ((ILESSP CC 32) (* ; "CONTROL character") (DSPBOUT (CHARCODE ^)) (SETQ CC (LOGOR CC 64)) 1) (T 0)) (PROGN (DSPBOUT CC) 1))))) (SIMULATE.CCE (SELCHARQ CHARCODE (LF (DSPBOUT (CHARCODE EOL)) (RPTQ (fetch CHARPOSITION of STREAM) (DSPBOUT (CHARCODE SPACE))) (\STOPSCROLL?)) (EOL (DSPBOUT (CHARCODE EOL)) (\STOPSCROLL?) (replace CHARPOSITION of STREAM with 0)) (ESCAPE (DSPBOUT (CHARCODE $)) (* ; "change to $") (add (fetch CHARPOSITION of STREAM) 1)) (TAB (FRPTQ (IDIFFERENCE 8 (MOD (fetch CHARPOSITION of STREAM) 8)) (DSPBOUT (CHARCODE SPACE)) (add (fetch CHARPOSITION of STREAM) 1))) (PROGN (DSPBOUT CHARCODE) (add (fetch CHARPOSITION of STREAM) 1)))) (REAL.CCE (DSPBOUT CHARCODE) (COND ((EQ CHARCODE (CHARCODE EOL)) (\STOPSCROLL?) (replace CHARPOSITION of STREAM with 0)) (T (add (fetch CHARPOSITION of STREAM) 1)))) (IGNORE.CCE) (SHOULDNT)))
-)
+  [LAMBDA (STREAM CHARCODE)                              (* lmm " 5-OCT-83 18:31")
+
+    (* ;; "The terminal outcharfn, prior for non-displaystream systems.  STREAM is always \TERM.OFD, but passed as an argument so that calling structure is the same as the more general display outcharfn, and thus, so that a simple MOVD can be done to install the display world.")
+
+    (SELECTC (fetch CCECHO of (\SYNCODE \PRIMTERMSA CHARCODE))
+        (INDICATE.CCE [PROG ((CC CHARCODE))
+                            (add (fetch CHARPOSITION of STREAM)
+                                   (IPLUS (COND
+                                             ((IGREATERP CC 127)
+                                                             (* ; "META character")
+                                              (DSPBOUT (CHARCODE %#))
+                                              (SETQ CC (LOGAND CC 127))
+                                              1)
+                                             (T 0))
+                                          (COND
+                                             ((ILESSP CC 32) (* ; "CONTROL character")
+                                              (DSPBOUT (CHARCODE ^))
+                                              (SETQ CC (LOGOR CC 64))
+                                              1)
+                                             (T 0))
+                                          (PROGN (DSPBOUT CC)
+                                                 1])
+        (SIMULATE.CCE (SELCHARQ CHARCODE
+                           (LF (DSPBOUT (CHARCODE EOL))
+                               (RPTQ (fetch CHARPOSITION of STREAM)
+                                     (DSPBOUT (CHARCODE SPACE)))
+                               (\STOPSCROLL?))
+                           (EOL (DSPBOUT (CHARCODE EOL))
+                                (\STOPSCROLL?)
+                                (replace CHARPOSITION of STREAM with 0))
+                           (ESCAPE (DSPBOUT (CHARCODE $))    (* ; "change to $")
+                                   (add (fetch CHARPOSITION of STREAM)
+                                          1))
+                           (TAB (FRPTQ (IDIFFERENCE 8 (MOD (fetch CHARPOSITION of STREAM)
+                                                           8))
+                                       (DSPBOUT (CHARCODE SPACE))
+                                       (add (fetch CHARPOSITION of STREAM)
+                                              1)))
+                           (PROGN (DSPBOUT CHARCODE)
+                                  (add (fetch CHARPOSITION of STREAM)
+                                         1))))
+        (REAL.CCE (DSPBOUT CHARCODE)
+                  (COND
+                     ((EQ CHARCODE (CHARCODE EOL))
+                      (\STOPSCROLL?)
+                      (replace CHARPOSITION of STREAM with 0))
+                     (T (add (fetch CHARPOSITION of STREAM)
+                               1))))
+        (IGNORE.CCE)
+        (SHOULDNT])
 
 (\INITBCPLDISPLAY
-(LAMBDA NIL (* ; "Edited 17-Jan-87 16:08 by bvm:") (SETQ \BCPLDISPLAY (create STREAM DEVICE _ (create FDEV BOUT _ (FUNCTION \DSCCOUT)) ACCESS _ (QUOTE OUTPUT) LINELENGTH _ 72 USERCLOSEABLE _ NIL USERVISIBLE _ NIL OUTCHARFN _ (FUNCTION \DSCCOUT))) (OR (STREAMP \TERM.OFD) (SETQ \TERM.OFD \BCPLDISPLAY)) (OR (STREAMP *STANDARD-OUTPUT*) (SETQ *STANDARD-OUTPUT* \BCPLDISPLAY)))
-)
+  [LAMBDA NIL                                            (* ; "Edited 17-Jan-87 16:08 by bvm:")
+    (SETQ \BCPLDISPLAY (create STREAM
+                              DEVICE _ (create FDEV
+                                              BOUT _ (FUNCTION \DSCCOUT))
+                              ACCESS _ 'OUTPUT
+                              LINELENGTH _ 72
+                              USERCLOSEABLE _ NIL
+                              USERVISIBLE _ NIL
+                              OUTCHARFN _ (FUNCTION \DSCCOUT)))
+    (OR (STREAMP \TERM.OFD)
+        (SETQ \TERM.OFD \BCPLDISPLAY))
+    (OR (STREAMP *STANDARD-OUTPUT*)
+        (SETQ *STANDARD-OUTPUT* \BCPLDISPLAY])
 )
 (DECLARE%: DONTEVAL@LOAD DOCOPY 
 
 (\INITBCPLDISPLAY)
 )
-(* "FOLLOWING DEFINITIONS EXPORTED")
-
-(DECLARE%: DOEVAL@COMPILE DONTCOPY
+(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DOEVAL@COMPILE DONTCOPY
 
 (GLOBALVARS \BCPLDISPLAY)
 )
@@ -175,8 +666,27 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Co
 (DEFINEQ
 
 (VIDEOCOLOR
-(LAMBDA NARGS (* ; "Edited 29-Jul-88 15:30 by drc:") (DECLARE (GLOBALVARS \VideoColor)) (* ;; "sets the interpretation of bits that are displayed on the screen so that 1 is black {NIL} or 1 is white {anything else}.") (PROG1 \VideoColor (COND ((NEQ NARGS 0) (SETQ \VideoColor (AND (ARG NARGS 1) T)) (SELECTC \MACHINETYPE (\MAIKO (SETQ \VideoColor (SUBRCALL DSP-VIDEOCOLOR \VideoColor))) (\DANDELION (replace DLDISPCONTROL of \IOPAGE with (COND (\VideoColor (* ; "Inverse video") (LOGOR 2048 (fetch DLDISPCONTROL of \IOPAGE))) (T (LOGAND (LOGXOR 2048 MAX.SMALLP) (fetch DLDISPCONTROL of \IOPAGE)))))) (\DAYBREAK (DOVE.XOR.CURSOR \DoveDisplay.XorCursor)) (SETSCREENCOLOR \VideoColor))))))
-)
+  [LAMBDA NARGS                                          (* ; "Edited 29-Jul-88 15:30 by drc:")
+    (DECLARE (GLOBALVARS \VideoColor))
+
+    (* ;; "sets the interpretation of bits that are displayed on the screen so that 1 is black {NIL} or 1 is white {anything else}.")
+
+    (PROG1 \VideoColor
+        [COND
+           ((NEQ NARGS 0)
+            (SETQ \VideoColor (AND (ARG NARGS 1)
+                                   T))
+            (SELECTC \MACHINETYPE
+                (\MAIKO (SETQ \VideoColor (SUBRCALL DSP-VIDEOCOLOR \VideoColor)))
+                (\DANDELION [replace DLDISPCONTROL of \IOPAGE
+                               with (COND
+                                           (\VideoColor      (* ; "Inverse video")
+                                                  (LOGOR 2048 (fetch DLDISPCONTROL of \IOPAGE
+                                                                     )))
+                                           (T (LOGAND (LOGXOR 2048 MAX.SMALLP)
+                                                     (fetch DLDISPCONTROL of \IOPAGE])
+                (\DAYBREAK (DOVE.XOR.CURSOR \DoveDisplay.XorCursor))
+                (SETSCREENCOLOR \VideoColor])])
 )
 
 (RPAQQ \VideoColor NIL)
@@ -190,71 +700,285 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Co
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \RAISECHAR MACRO (OPENLAMBDA (C)
-                                          (COND
-                                             ((AND (fetch RAISEFLG of \PRIMTERMTABLE)
-                                                   (IGEQ C (CHARCODE a))
-                                                   (ILEQ C (CHARCODE z)))
-                                              (IDIFFERENCE C 32))
-                                             (T C))))
+                                     (COND
+                                        ((AND (fetch RAISEFLG of \PRIMTERMTABLE)
+                                              (IGEQ C (CHARCODE a))
+                                              (ILEQ C (CHARCODE z)))
+                                         (IDIFFERENCE C 32))
+                                        (T C))))
 
 (PUTPROPS \LINEBUFBOUT MACRO (OPENLAMBDA (STRM CHAR)
-                                            (\BOUT STRM (\CHARSET CHAR))
-                                            (\BOUT STRM (\CHAR8CODE CHAR))))
+                                       (\BOUT STRM (\CHARSET CHAR))
+                                       (\BOUT STRM (\CHAR8CODE CHAR))))
 )
 )
 (DEFINEQ
 
 (\PEEKREFILL
-(LAMBDA NIL (* ; "Edited 15-Jun-87 16:26 by jds") (* ;; "Called from \ENDOFFILE via \RefillBufferFn when the linebuffer is empty") (PROG (C) (COND ((SETQ C (fetch (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD)) (* ;; "Saved char, just return it.  Ideally we might want to pay attention to echo state, but Interlisp-10 doesn't, so be compatible") (* ;; "Following code is a major crock.  Problem is that the eof interface is at the BIN level, but terminal deals in characters, which take two BINs.  The code here assumes that the main way we get called is via \NSPEEK macro, which does a \PEEKBIN to start, then a BIN of that character to get it out of the way, then another \PEEKBIN followed by \BACKFILEPTR.  We're assuming the \BACKFILEPTR on the buffer stream is a no-op and that it is always called after the second \PEEKBIN.  We keep track of whether we're peeking at the left or right half of the character by negating it after the first half is consumed, then making it normal again after the second one (so that a subsequent PEEKC would still return the character).  It is also possible to be called here from SKIPSEPR[CODE]S, in which case there might be a real BIN to consume the char if it's a sepr.") (* ;; "Anyway, this code should be reworked someday using the READ-CHAR, PEEK-CHAR stream interface.") (RETURN (SELECTQ (STKNAME (QUOTE (\BIN \PEEKBIN))) (\BIN (* ;; "He is doing a \BIN -- remember for later calls that we have passed over the left half of the character") (COND ((IGREATERP C 0) (* ; "We're looking at the left half.  Return it and move to right half.") (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD with (IMINUS C)) (\CHARSET (\RAISECHAR C))) (T (* ; "We looked at the left half before.  Now return the right half and char is now totally consumed.") (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD with NIL) (\CHAR8CODE (\RAISECHAR (IMINUS C)))))) (COND ((IGREATERP C 0) (* ; "We're still looking at the left half.  Return it.") (\CHARSET (\RAISECHAR C))) (T (* ; "We looked at the left half before.  Now look at the right half.") (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD with (IMINUS C)) (\CHAR8CODE (\RAISECHAR (IMINUS C))))))))) (* ;; "Echo the character, and remember whether we echoed it or not:") (replace (LINEBUFFER PEEKEDECHOFLG) of \LINEBUF.OFD with (\ECHOCHAR (SETQ C (BIN (fetch (LINEBUFFER KEYBOARDSTREAM) of \LINEBUF.OFD))))) (* ; "First time thru this: Get a key, and echo it.") (\RESETLINE) (* ; "Clear the line buffer.") (* ;; "Save the peeked character OUTSIDE the line buffer, to avoid problems if the guy later types ^E before the character is really read.") (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD with C) (RETURN (\CHARSET (\RAISECHAR C)))))
-)
+  [LAMBDA NIL                                            (* ; "Edited 15-Jun-87 16:26 by jds")
+
+    (* ;; "Called from \ENDOFFILE via \RefillBufferFn when the linebuffer is empty")
+
+    (PROG (C)
+          [COND
+             ((SETQ C (fetch (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD))
+
+              (* ;; "Saved char, just return it.  Ideally we might want to pay attention to echo state, but Interlisp-10 doesn't, so be compatible")
+
+              (* ;; "Following code is a major crock.  Problem is that the eof interface is at the BIN level, but terminal deals in characters, which take two BINs.  The code here assumes that the main way we get called is via \NSPEEK macro, which does a \PEEKBIN to start, then a BIN of that character to get it out of the way, then another \PEEKBIN followed by \BACKFILEPTR.  We're assuming the \BACKFILEPTR on the buffer stream is a no-op and that it is always called after the second \PEEKBIN.  We keep track of whether we're peeking at the left or right half of the character by negating it after the first half is consumed, then making it normal again after the second one (so that a subsequent PEEKC would still return the character).  It is also possible to be called here from SKIPSEPR[CODE]S, in which case there might be a real BIN to consume the char if it's a sepr.")
+
+              (* ;; 
+    "Anyway, this code should be reworked someday using the READ-CHAR, PEEK-CHAR stream interface.")
+
+              (RETURN (SELECTQ (STKNAME '(\BIN \PEEKBIN))
+                          (\BIN 
+                                (* ;; "He is doing a \BIN -- remember for later calls that we have passed over the left half of the character")
+
+                                [COND
+                                   ((IGREATERP C 0)          (* ; 
+                               "We're looking at the left half.  Return it and move to right half.")
+                                    (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD
+                                       with (IMINUS C))
+                                    (\CHARSET (\RAISECHAR C)))
+                                   (T                        (* ; 
+  "We looked at the left half before.  Now return the right half and char is now totally consumed.")
+                                      (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD
+                                         with NIL)
+                                      (\CHAR8CODE (\RAISECHAR (IMINUS C])
+                          (COND
+                             ((IGREATERP C 0)                (* ; 
+                                                "We're still looking at the left half.  Return it.")
+                              (\CHARSET (\RAISECHAR C)))
+                             (T                              (* ; 
+                                  "We looked at the left half before.  Now look at the right half.")
+                                (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD
+                                   with (IMINUS C))
+                                (\CHAR8CODE (\RAISECHAR (IMINUS C]
+
+     (* ;; "Echo the character, and remember whether we echoed it or not:")
+
+          [replace (LINEBUFFER PEEKEDECHOFLG) of \LINEBUF.OFD
+             with (\ECHOCHAR (SETQ C (BIN (fetch (LINEBUFFER KEYBOARDSTREAM) of
+                                                                                         \LINEBUF.OFD
+                                                         ]   (* ; 
+                                                    "First time thru this: Get a key, and echo it.")
+          (\RESETLINE)                                   (* ; "Clear the line buffer.")
+
+     (* ;; "Save the peeked character OUTSIDE the line buffer, to avoid problems if the guy later types ^E before the character is really read.")
+
+          (replace (LINEBUFFER PEEKEDCHAR) of \LINEBUF.OFD with C)
+          (RETURN (\CHARSET (\RAISECHAR C])
 
 (\READREFILL
-(LAMBDA NIL (* AJB "15-Jan-86 14:52") (* ;; "Called from \ENDOFFILE via \RefillBufferFn when the linebuffer is empty") (DECLARE (USEDFREE \LINEBUF.OFD)) (* ;; "If the LINEBUFFER has a REFILLBUFFERFN use it, otherwise call \FILLBUFFER as default") (COND ((STREAMPROP \LINEBUF.OFD (QUOTE REFILLBUFFERFN)) (APPLY* (STREAMPROP \LINEBUF.OFD (QUOTE REFILLBUFFERFN)) READ.FT)) (T (\FILLBUFFER READ.FT))) (CL:FUNCALL (STKNAME (QUOTE (\BIN \PEEKBIN))) \LINEBUF.OFD))
-)
+  [LAMBDA NIL                                            (* AJB "15-Jan-86 14:52")
+
+    (* ;; "Called from \ENDOFFILE via \RefillBufferFn when the linebuffer is empty")
+
+    (DECLARE (USEDFREE \LINEBUF.OFD))
+
+    (* ;; "If the LINEBUFFER has a REFILLBUFFERFN use it, otherwise call \FILLBUFFER as default")
+
+    (COND
+       ((STREAMPROP \LINEBUF.OFD 'REFILLBUFFERFN)
+        (APPLY* (STREAMPROP \LINEBUF.OFD 'REFILLBUFFERFN)
+               READ.FT))
+       (T (\FILLBUFFER READ.FT)))
+    (CL:FUNCALL (STKNAME '(\BIN \PEEKBIN))
+           \LINEBUF.OFD])
 
 (\RATOM/RSTRING-REFILL
-(LAMBDA NIL (* AJB "15-Jan-86 14:53") (* ;; "Called from \ENDOFFILE via \RefillBufferFn when the linebuffer is empty") (DECLARE (USEDFREE \LINEBUF.OFD)) (* ;; "If the LINEBUFFER has a REFILLBUFFERFN use it, otherwise call \FILLBUFFER as default") (COND ((STREAMPROP \LINEBUF.OFD (QUOTE REFILLBUFFERFN)) (APPLY* (STREAMPROP \LINEBUF.OFD (QUOTE REFILLBUFFERFN)) RATOM/RSTRING.FT)) (T (\FILLBUFFER RATOM/RSTRING.FT))) (\BIN \LINEBUF.OFD))
-)
+  [LAMBDA NIL                                            (* AJB "15-Jan-86 14:53")
+
+    (* ;; "Called from \ENDOFFILE via \RefillBufferFn when the linebuffer is empty")
+
+    (DECLARE (USEDFREE \LINEBUF.OFD))
+
+    (* ;; "If the LINEBUFFER has a REFILLBUFFERFN use it, otherwise call \FILLBUFFER as default")
+
+    (COND
+       ((STREAMPROP \LINEBUF.OFD 'REFILLBUFFERFN)
+        (APPLY* (STREAMPROP \LINEBUF.OFD 'REFILLBUFFERFN)
+               RATOM/RSTRING.FT))
+       (T (\FILLBUFFER RATOM/RSTRING.FT)))
+    (\BIN \LINEBUF.OFD])
 
 (\READCREFILL
-(LAMBDA NIL (* AJB "15-Jan-86 14:53") (* ;; "Called from \ENDOFFILE via \RefillBufferFn when the linebuffer is empty") (DECLARE (USEDFREE \LINEBUF.OFD)) (* ;; "If the LINEBUFFER has a REFILLBUFFERFN use it, otherwise call \FILLBUFFER as default") (COND ((STREAMPROP \LINEBUF.OFD (QUOTE REFILLBUFFERFN)) (APPLY* (STREAMPROP \LINEBUF.OFD (QUOTE REFILLBUFFERFN)) READC.FT)) (T (\FILLBUFFER READC.FT))) (\BIN \LINEBUF.OFD))
-)
+  [LAMBDA NIL                                            (* AJB "15-Jan-86 14:53")
+
+    (* ;; "Called from \ENDOFFILE via \RefillBufferFn when the linebuffer is empty")
+
+    (DECLARE (USEDFREE \LINEBUF.OFD))
+
+    (* ;; "If the LINEBUFFER has a REFILLBUFFERFN use it, otherwise call \FILLBUFFER as default")
+
+    (COND
+       ((STREAMPROP \LINEBUF.OFD 'REFILLBUFFERFN)
+        (APPLY* (STREAMPROP \LINEBUF.OFD 'REFILLBUFFERFN)
+               READC.FT))
+       (T (\FILLBUFFER READC.FT)))
+    (\BIN \LINEBUF.OFD])
 )
 (DEFINEQ
 
 (DRIBBLE
-(LAMBDA (FILE APPENDFLG) (* ; "Edited 16-Jan-87 17:03 by hdj") (* ;; "Turn on/off dribbling for this process") (* ;; "") (* ;; "Dribbling is on if the special variable *dribble-output* is bound to a stream.") (LET ((OLD-DRIBBLE-STREAM (DRIBBLEFILE)) (NEW-DRIBBLE-STREAM NIL)) (* ;;; "Turn off dribbling.") (if OLD-DRIBBLE-STREAM then (* ;; "disable dribbling to old dribble stream") (SETQ *DRIBBLE-OUTPUT* NIL) (replace (STREAM USERCLOSEABLE) of OLD-DRIBBLE-STREAM with T) (replace (STREAM USERVISIBLE) of OLD-DRIBBLE-STREAM with T) (CLOSEF OLD-DRIBBLE-STREAM)) (* ;;; "Turn on dribbling.") (if (AND FILE (NEQ FILE T)) then (SETQ NEW-DRIBBLE-STREAM (OPENSTREAM FILE (COND (APPENDFLG (QUOTE APPEND)) (T (QUOTE OUTPUT))))) (UNINTERRUPTABLY (replace (STREAM USERCLOSEABLE) of NEW-DRIBBLE-STREAM with NIL) (replace (STREAM USERVISIBLE) of NEW-DRIBBLE-STREAM with NIL) (* ;; "Start dribbling to new-dribble-stream.") (SETQ *DRIBBLE-OUTPUT* NEW-DRIBBLE-STREAM))) (AND OLD-DRIBBLE-STREAM (fetch (STREAM FULLNAME) of OLD-DRIBBLE-STREAM))))
-)
+  [LAMBDA (FILE APPENDFLG)                               (* ; "Edited 16-Jan-87 17:03 by hdj")
+
+    (* ;; "Turn on/off dribbling for this process")
+
+    (* ;; "")
+
+    (* ;; "Dribbling is on if the special variable *dribble-output* is bound to a stream.")
+
+    (LET ((OLD-DRIBBLE-STREAM (DRIBBLEFILE))
+          (NEW-DRIBBLE-STREAM NIL))
+
+(* ;;; "Turn off dribbling.")
+
+         (if OLD-DRIBBLE-STREAM
+             then 
+
+                   (* ;; "disable dribbling to old dribble stream")
+
+                   (SETQ *DRIBBLE-OUTPUT* NIL)
+                   (replace (STREAM USERCLOSEABLE) of OLD-DRIBBLE-STREAM with T)
+                   (replace (STREAM USERVISIBLE) of OLD-DRIBBLE-STREAM with T)
+                   (CLOSEF OLD-DRIBBLE-STREAM))
+
+(* ;;; "Turn on dribbling.")
+
+         (if (AND FILE (NEQ FILE T))
+             then [SETQ NEW-DRIBBLE-STREAM (OPENSTREAM FILE (COND
+                                                                   (APPENDFLG 'APPEND)
+                                                                   (T 'OUTPUT]
+                   (UNINTERRUPTABLY
+                       (replace (STREAM USERCLOSEABLE) of NEW-DRIBBLE-STREAM with NIL)
+                       (replace (STREAM USERVISIBLE) of NEW-DRIBBLE-STREAM with NIL)
+
+                       (* ;; "Start dribbling to new-dribble-stream.")
+
+                       (SETQ *DRIBBLE-OUTPUT* NEW-DRIBBLE-STREAM)))
+         (AND OLD-DRIBBLE-STREAM (fetch (STREAM FULLNAME) of OLD-DRIBBLE-STREAM])
 
 (DRIBBLEFILE
-(LAMBDA NIL (* ; "Edited 16-Jan-87 16:06 by hdj") (* ;; "return the stream that this process is dribbling to.") *DRIBBLE-OUTPUT*)
-)
+  [LAMBDA NIL                                            (* ; "Edited 16-Jan-87 16:06 by hdj")
+
+    (* ;; "return the stream that this process is dribbling to.")
+
+    *DRIBBLE-OUTPUT*])
 )
 (DEFINEQ
 
 (\SETUP.DEFAULT.LINEBUF
-(LAMBDA NIL (* ; "Edited 13-Apr-87 17:07 by bvm:") (* ;; "Line buffer initialization.  First create the line buffer device.") (LET ((DEV (\NODIRCOREFDEV (QUOTE LINEBUFFER)))) (replace (FDEV READP) of DEV with (FUNCTION \LINEBUF.READP)) (* ; "Readp has to look at both keyboard stream and buffer") (replace (FDEV EOFP) of DEV with (FUNCTION NILL)) (* ; "EOFP is always false from terminal.  May want this to be different for network terminals") (replace (FDEV PEEKBIN) of DEV with (FUNCTION \LINEBUF.PEEKBIN)) (* ; "PEEKBIN method has implicit EOFP test, so have to supply that ourselves, too.")) (* ;; "create a line buffer device which creates a line buffer the first time one is needed.") (PROG ((STREAM (\OPENFILE (QUOTE {LINEBUFFER}) (QUOTE BOTH) (QUOTE NEW)))) (replace FULLFILENAME of STREAM with T) (* ;; "No-one cares about the true file-name after this, so we make it convenient for code that wants to give a name back to the user") (replace LINEBUFSTATE of STREAM with READING.LBS) (replace USERCLOSEABLE of STREAM with NIL) (replace USERVISIBLE of STREAM with NIL) (* ; "Other linebuffer fields default properly") (replace ENDOFSTREAMOP of STREAM with (FUNCTION (LAMBDA (STREAM) (* ; "create a TTY window and make it the tty stream.  This also sets up a line buffer.") (\CREATE.TTYDISPLAYSTREAM) (STREAMOP (QUOTE ENDOFSTREAMOP) \LINEBUF.OFD \LINEBUF.OFD)))) (RETURN STREAM)))
-)
+  [LAMBDA NIL                                            (* ; "Edited 13-Apr-87 17:07 by bvm:")
+
+    (* ;; "Line buffer initialization.  First create the line buffer device.")
+
+    (LET [(DEV (\NODIRCOREFDEV 'LINEBUFFER]
+         (replace (FDEV READP) of DEV with (FUNCTION \LINEBUF.READP))
+                                                             (* ; 
+                                             "Readp has to look at both keyboard stream and buffer")
+         (replace (FDEV EOFP) of DEV with (FUNCTION NILL))
+                                                             (* ; 
+         "EOFP is always false from terminal.  May want this to be different for network terminals")
+         (replace (FDEV PEEKBIN) of DEV with (FUNCTION \LINEBUF.PEEKBIN))
+                                                             (* ; 
+                    "PEEKBIN method has implicit EOFP test, so have to supply that ourselves, too.")
+         )
+
+    (* ;; "create a line buffer device which creates a line buffer the first time one is needed.")
+
+    (PROG [(STREAM (\OPENFILE '{LINEBUFFER} 'BOTH 'NEW]
+          (replace FULLFILENAME of STREAM with T)
+
+     (* ;; "No-one cares about the true file-name after this, so we make it convenient for code that wants to give a name back to the user")
+
+          (replace LINEBUFSTATE of STREAM with READING.LBS)
+          (replace USERCLOSEABLE of STREAM with NIL)
+          (replace USERVISIBLE of STREAM with NIL)
+                                                             (* ; 
+                                                         "Other linebuffer fields default properly")
+          [replace ENDOFSTREAMOP of STREAM with (FUNCTION (LAMBDA (STREAM)
+                                                             (* ; 
+                "create a TTY window and make it the tty stream.  This also sets up a line buffer.")
+                                                                        (\CREATE.TTYDISPLAYSTREAM)
+                                                                        (STREAMOP 'ENDOFSTREAMOP 
+                                                                               \LINEBUF.OFD 
+                                                                               \LINEBUF.OFD]
+          (RETURN STREAM])
 
 (\CREATELINEBUFFER
-(LAMBDA (TERMINAL.STREAM) (* ; "Edited 13-Apr-87 22:57 by bvm:") (* ;; "Create a new stream that buffers the raw input from TERMINAL.STREAM (default is the keyboard).") (LET* ((STREAM (\OPENFILE (QUOTE {LINEBUFFER}) (QUOTE BOTH) (QUOTE NEW) (QUOTE ((CHARSET T))))) (DEV (fetch (STREAM DEVICE) of STREAM)) EOFMETHOD) (replace LINEBUFSTATE of STREAM with READING.LBS) (replace (LINEBUFFER KEYBOARDSTREAM) of STREAM with (OR TERMINAL.STREAM \KEYBOARD.STREAM)) (replace USERCLOSEABLE of STREAM with NIL) (replace USERVISIBLE of STREAM with NIL) (* ; "Other linebuffer fields default properly") (replace ENDOFSTREAMOP of STREAM with (FUNCTION (LAMBDA (STREAM) (CL:FUNCALL \RefillBufferFn)))) (if (AND TERMINAL.STREAM (NEQ (SETQ EOFMETHOD (fetch (FDEV EOFP) of TERMINAL.STREAM)) (QUOTE NILL))) then (* ;; "Need to install an eof method for the buffered stream that looks at TERMINAL.STREAM when the buffer runs out.  This is optimized away for the normal keyboard case, which never runs out.") (replace (STREAM DEVICE) of STREAM with (SETQ DEV (NCREATE (QUOTE FDEV) DEV))) (* ; "Copy the basic linebuffer device") (replace (FDEV EOFP) of DEV with EOFMETHOD)) STREAM))
-)
+  [LAMBDA (TERMINAL.STREAM)                             (* ; "Edited 29-Apr-2021 09:38 by rmk:")
+
+    (* ;; 
+  "Create a new stream that buffers the raw input from TERMINAL.STREAM (default is the keyboard).")
+
+    (LET* ([STREAM (\OPENFILE '{LINEBUFFER} 'BOTH 'NEW '((CHARSET T]
+           (DEV (fetch (STREAM DEVICE) of STREAM))
+           EOFMETHOD)
+          (replace LINEBUFSTATE of STREAM with READING.LBS)
+          (replace (LINEBUFFER KEYBOARDSTREAM) of STREAM with (OR TERMINAL.STREAM 
+                                                                              \KEYBOARD.STREAM))
+          (replace USERCLOSEABLE of STREAM with NIL)
+          (replace USERVISIBLE of STREAM with NIL)
+                                                             (* ; 
+                                                         "Other linebuffer fields default properly")
+          [replace ENDOFSTREAMOP of STREAM with (FUNCTION (LAMBDA (STREAM)
+                                                                        (CL:FUNCALL \RefillBufferFn]
+          (replace (STREAM EOLCONVENTION) of STREAM with CR.EOLC)
+                                                             (* ; 
+                                                "RMK: Terminal is CR, even if stream default is LF")
+          (if (AND TERMINAL.STREAM (NEQ (SETQ EOFMETHOD (fetch (FDEV EOFP) of 
+                                                                                      TERMINAL.STREAM
+                                                                   ))
+                                            'NILL))
+              then 
+
+                    (* ;; "Need to install an eof method for the buffered stream that looks at TERMINAL.STREAM when the buffer runs out.  This is optimized away for the normal keyboard case, which never runs out.")
+
+                    (replace (STREAM DEVICE) of STREAM with (SETQ DEV (NCREATE
+                                                                                   'FDEV DEV))) 
+                                                             (* ; 
+                                                           "Copy the basic linebuffer device")
+                    (replace (FDEV EOFP) of DEV with EOFMETHOD))
+          STREAM])
 
 (\LINEBUF.READP
-(LAMBDA (STREAM FLG) (* ; "Edited 13-Apr-87 22:05 by bvm:") (LET ((KEYSTREAM (fetch (LINEBUFFER KEYBOARDSTREAM) of STREAM))) (OR (AND KEYSTREAM (READP KEYSTREAM)) (fetch (LINEBUFFER PEEKEDCHAR) of STREAM) (\PAGEDREADP STREAM FLG))))
-)
+  [LAMBDA (STREAM FLG)                                   (* ; "Edited 13-Apr-87 22:05 by bvm:")
+    (LET ((KEYSTREAM (fetch (LINEBUFFER KEYBOARDSTREAM) of STREAM)))
+         (OR (AND KEYSTREAM (READP KEYSTREAM))
+             (fetch (LINEBUFFER PEEKEDCHAR) of STREAM)
+             (\PAGEDREADP STREAM FLG])
 
 (\LINEBUF.EOFP
-(LAMBDA (STREAM) (* ; "Edited 13-Apr-87 18:09 by bvm:") (* ;; "End of file for linebuffer: true if both the buffer and the source of characters are empty") (AND (\PAGEDEOFP STREAM) (\EOFP (fetch (LINEBUFFER KEYBOARDSTREAM) of STREAM))))
-)
+  [LAMBDA (STREAM)                                       (* ; "Edited 13-Apr-87 18:09 by bvm:")
+
+    (* ;; 
+  "End of file for linebuffer: true if both the buffer and the source of characters are empty")
+
+    (AND (\PAGEDEOFP STREAM)
+         (\EOFP (fetch (LINEBUFFER KEYBOARDSTREAM) of STREAM])
 
 (\LINEBUF.PEEKBIN
-(LAMBDA (STREAM NOERROR) (* ; "Edited 13-Apr-87 16:53 by bvm:") (OR (\BUFFERED.PEEKBIN STREAM T) (CL:FUNCALL \RefillBufferFn STREAM)))
-)
+  [LAMBDA (STREAM NOERROR)                               (* ; "Edited 13-Apr-87 16:53 by bvm:")
+    (OR (\BUFFERED.PEEKBIN STREAM T)
+        (CL:FUNCALL \RefillBufferFn STREAM])
 
 (\OPENLINEBUF
-(LAMBDA NIL (* ; "Edited 17-Jan-87 16:08 by bvm:") (* ;; "Don't assume that \LINEBUF.OFD or \TERM.OFD have been initialized.  That way, they won't get smashed if ATERM is reloaded.") (DECLARE (GLOBALVARS DisplayFDEV)) (PROG (STREAM) (* ; "Output parameters") (* ; "Input parameters") (COND ((OR (NOT (type? STREAM \LINEBUF.OFD)) (EQ \LINEBUF.OFD \DEFAULTLINEBUF)) (SETQ \LINEBUF.OFD (\CREATELINEBUFFER)) (OR (AND (type? STREAM *STANDARD-INPUT*) (NEQ *STANDARD-INPUT* \DEFAULTLINEBUF)) (SETQ *STANDARD-INPUT* \LINEBUF.OFD)))) (\RESETTERMINAL)))
-)
+  [LAMBDA NIL                                            (* ; "Edited 17-Jan-87 16:08 by bvm:")
+
+    (* ;; "Don't assume that \LINEBUF.OFD or \TERM.OFD have been initialized.  That way, they won't get smashed if ATERM is reloaded.")
+
+    (DECLARE (GLOBALVARS DisplayFDEV))
+    (PROG (STREAM)                                           (* ; "Output parameters")
+                                                             (* ; "Input parameters")
+          [COND
+             ((OR (NOT (type? STREAM \LINEBUF.OFD))
+                  (EQ \LINEBUF.OFD \DEFAULTLINEBUF))
+              (SETQ \LINEBUF.OFD (\CREATELINEBUFFER))
+              (OR (AND (type? STREAM *STANDARD-INPUT*)
+                       (NEQ *STANDARD-INPUT* \DEFAULTLINEBUF))
+                  (SETQ *STANDARD-INPUT* \LINEBUF.OFD]
+          (\RESETTERMINAL])
 )
 
 
@@ -264,12 +988,29 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Co
 (DEFINEQ
 
 (LINEBUFFER-EOFP
-(LAMBDA (STREAM) (* ; "Edited 13-Apr-87 17:12 by bvm:") (* ;; "Public interface to %"old functionality%" of (EOFP T) -- returns true if there is no buffered input waiting on stream.  If stream is not terminal input, is same as EOFP.") (LET ((S (\GETSTREAM STREAM (QUOTE INPUT)))) (if (EQ S \LINEBUF.OFD) then (\PAGEDEOFP S) else (\EOFP S))))
-)
+  [LAMBDA (STREAM)                                       (* ; "Edited 13-Apr-87 17:12 by bvm:")
+
+    (* ;; "Public interface to %"old functionality%" of (EOFP T) -- returns true if there is no buffered input waiting on stream.  If stream is not terminal input, is same as EOFP.")
+
+    (LET [(S (\GETSTREAM STREAM 'INPUT]
+         (if (EQ S \LINEBUF.OFD)
+             then (\PAGEDEOFP S)
+           else (\EOFP S])
 
 (LINEBUFFER-SKIPSEPRS
-(LAMBDA (STREAM RDTBL) (* ; "Edited 13-Apr-87 22:05 by bvm:") (* ;; "SKIPSEPRS applied to the terminal input linebuffer.  If run out of buffer, return NIL.") (LET ((S (\GETSTREAM STREAM (QUOTE INPUT))) (*READTABLE* (\GTREADTABLE RDTBL)) CH) (if (EQ S \LINEBUF.OFD) then (until (\PAGEDEOFP S) do (if (SYNTAXP (SETQ CH (PEEKCCODE S)) (QUOTE SEPRCHAR)) then (READCCODE S) else (RETURN (CHARACTER CH)))) else (SKIPSEPRS S *READTABLE*))))
-)
+  [LAMBDA (STREAM RDTBL)                                 (* ; "Edited 13-Apr-87 22:05 by bvm:")
+
+    (* ;; "SKIPSEPRS applied to the terminal input linebuffer.  If run out of buffer, return NIL.")
+
+    (LET ((S (\GETSTREAM STREAM 'INPUT))
+          (*READTABLE* (\GTREADTABLE RDTBL))
+          CH)
+         (if (EQ S \LINEBUF.OFD)
+             then [until (\PAGEDEOFP S) do (if (SYNTAXP (SETQ CH (PEEKCCODE S))
+                                                                      'SEPRCHAR)
+                                                           then (READCCODE S)
+                                                         else (RETURN (CHARACTER CH]
+           else (SKIPSEPRS S *READTABLE*])
 )
 (DECLARE%: DOCOPY DONTEVAL@LOAD 
 
@@ -298,14 +1039,14 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Co
 (DEFINEQ
 
 (\INTERMP
-(LAMBDA (OFD) (* rrb "21-JUL-83 16:33") (EQ OFD \LINEBUF.OFD)))
+  [LAMBDA (OFD)                                          (* rrb "21-JUL-83 16:33")
+    (EQ OFD \LINEBUF.OFD])
 
 (\OUTTERMP
-(LAMBDA (OFD) (* rrb "21-JUL-83 07:23") (EQ OFD \TERM.OFD)))
+  [LAMBDA (OFD)                                          (* rrb "21-JUL-83 07:23")
+    (EQ OFD \TERM.OFD])
 )
-(* "FOLLOWING DEFINITIONS EXPORTED")
-
-(DECLARE%: DONTCOPY 
+(* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS LINEBUFFER ((LPARCOUNT (fetch FW6 of DATUM)
@@ -314,16 +1055,16 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Co
                                   (replace FW7 of DATUM with NEWVALUE))
                            (LINEBUFSTATE (fetch F5 of DATUM)
                                   (replace F5 of DATUM with NEWVALUE))
-                                                             (* ; "F4 is free.  EJS, 7/8/85")
+                                                             (* ; "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")
+                                                             (* ; "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")
+                           (* ;; "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]
@@ -393,20 +1134,20 @@ Copyright (c) 1982, 1983, 1984, 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Co
 
 (ADDTOVAR LAMA VIDEOCOLOR TERMINAL-OUTPUT TERMINAL-INPUT)
 )
-(PUTPROPS ATERM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990))
+(PUTPROPS ATERM COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 2021))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2985 19003 (BKLINBUF 2995 . 3285) (CLEARBUF 3287 . 4073) (LINBUF 4075 . 4196) (
-PAGEFULLFN 4198 . 5115) (SETLINELENGTH 5117 . 5238) (SYSBUF 5240 . 5361) (TERMCHARWIDTH 5363 . 5713) (
-TERMINAL-INPUT 5715 . 6104) (TERMINAL-OUTPUT 6106 . 6514) (\CHDEL1 6516 . 6738) (\CLOSELINE 6740 . 
-6941) (\DECPARENCOUNT 6943 . 7768) (\ECHOCHAR 7770 . 8180) (\FILLBUFFER 8182 . 14551) (
-\FILLBUFFER.WORDSEPRP 14553 . 14732) (\FILLBUFFER.BACKUP 14734 . 14849) (\GETCHAR 14851 . 15057) (
-\INCPARENCOUNT 15059 . 16222) (\RESETLINE 16224 . 16453) (\RESETTERMINAL 16455 . 17020) (\SAVELINEBUF 
-17022 . 18110) (\STOPSCROLL? 18112 . 19001)) (19214 21062 (\DSCCOUT 19224 . 20661) (\INITBCPLDISPLAY 
-20663 . 21060)) (21257 21973 (VIDEOCOLOR 21267 . 21971)) (22845 26969 (\PEEKREFILL 22855 . 25582) (
-\READREFILL 25584 . 26060) (\RATOM/RSTRING-REFILL 26062 . 26526) (\READCREFILL 26528 . 26967)) (26970 
-28178 (DRIBBLE 26980 . 28026) (DRIBBLEFILE 28028 . 28176)) (28179 32035 (\SETUP.DEFAULT.LINEBUF 28189
- . 29605) (\CREATELINEBUFFER 29607 . 30793) (\LINEBUF.READP 30795 . 31049) (\LINEBUF.EOFP 31051 . 
-31308) (\LINEBUF.PEEKBIN 31310 . 31468) (\OPENLINEBUF 31470 . 32033)) (32110 32949 (LINEBUFFER-EOFP 
-32120 . 32484) (LINEBUFFER-SKIPSEPRS 32486 . 32947)) (33306 33472 (\INTERMP 33316 . 33393) (\OUTTERMP 
-33395 . 33470)))))
+  (FILEMAP (NIL (2982 31202 (BKLINBUF 2992 . 3467) (CLEARBUF 3469 . 4801) (LINBUF 4803 . 4989) (
+PAGEFULLFN 4991 . 6472) (SETLINELENGTH 6474 . 6670) (SYSBUF 6672 . 6858) (TERMCHARWIDTH 6860 . 7277) (
+TERMINAL-INPUT 7279 . 7847) (TERMINAL-OUTPUT 7849 . 8435) (\CHDEL1 8437 . 8740) (\CLOSELINE 8742 . 
+9031) (\DECPARENCOUNT 9033 . 10616) (\ECHOCHAR 10618 . 11310) (\FILLBUFFER 11312 . 23532) (
+\FILLBUFFER.WORDSEPRP 23534 . 23779) (\FILLBUFFER.BACKUP 23781 . 23960) (\GETCHAR 23962 . 24351) (
+\INCPARENCOUNT 24353 . 26965) (\RESETLINE 26967 . 27291) (\RESETTERMINAL 27293 . 28057) (\SAVELINEBUF 
+28059 . 30030) (\STOPSCROLL? 30032 . 31200)) (31413 35269 (\DSCCOUT 31423 . 34563) (\INITBCPLDISPLAY 
+34565 . 35267)) (35462 36712 (VIDEOCOLOR 35472 . 36710)) (37544 43398 (\PEEKREFILL 37554 . 41665) (
+\READREFILL 41667 . 42261) (\RATOM/RSTRING-REFILL 42263 . 42841) (\READCREFILL 42843 . 43396)) (43399 
+45228 (DRIBBLE 43409 . 45010) (DRIBBLEFILE 45012 . 45226)) (45229 51904 (\SETUP.DEFAULT.LINEBUF 45239
+ . 47696) (\CREATELINEBUFFER 47698 . 50120) (\LINEBUF.READP 50122 . 50471) (\LINEBUF.EOFP 50473 . 
+50812) (\LINEBUF.PEEKBIN 50814 . 51021) (\OPENLINEBUF 51023 . 51902)) (51979 53218 (LINEBUFFER-EOFP 
+51989 . 52447) (LINEBUFFER-SKIPSEPRS 52449 . 53216)) (53575 53849 (\INTERMP 53585 . 53716) (\OUTTERMP 
+53718 . 53847)))))
 STOP
diff --git a/sources/ATERM.LCOM b/sources/ATERM.LCOM
index 6bdde604..85501f9b 100644
Binary files a/sources/ATERM.LCOM and b/sources/ATERM.LCOM differ
