github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 15:37:38 +00:00
Code Issues Projects Releases Wiki Activity

DEFINE-FILE-INFO with its own reader environment

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

"Function" is now a synonym for character set 2.  WITH-READER-ENVIRONMENT doesn't bind EXTERNALFORMAT.
This commit is contained in:
rmkaplan 2021-07-30 19:37:48 -07:00
parent 4efe2f93af
commit 925adc1deb
24 changed files with 31606 additions and 29963 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/RDSYS
View File

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

BIN
library/RDSYS.LCOM
View File

Binary file not shown.

83
library/exports.all
View File

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

57001
loadups/full.database
View File

File diff suppressed because it is too large Load Diff

116
loadups/full.dribble
View File

@ -1,10 +1,10 @@
Full loadup started at 27-Jul-2021 21:13:36 while connected to
{DSK}<home>larry>new>medley>
Full loadup started at 30-Jul-2021 13:12:30 while connected to
{DSK}<Users>kaplan>Local>medley3.5>git-medley>
loading POSTSCRIPTSTREAM
{DSK}<home>larry>new>medley>library>POSTSCRIPTSTREAM.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>POSTSCRIPTSTREAM.LCOM;11
compiled on 21-Jun-2021 20:29:51
File created 21-Jun-2021 20:29:32
POSTSCRIPTSTREAMCOMS
@ -16,147 +16,147 @@ Loading FULL fonts...
FULL fonts loaded
loading CHAT
{DSK}<home>larry>new>medley>library>CHAT.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHAT.LCOM;2
compiled on 13-Jun-2021 22:04:59
File created 20-Jan-93 13:46:52
CHATCOMS
{DSK}<home>larry>new>medley>library>DMCHAT.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>DMCHAT.LCOM;1
compiled on 25-Feb-93 18:08:53
File created 20-Jan-93 13:49:09
DMCHATCOMS
{DSK}<home>larry>new>medley>library>CHATTERMINAL.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CHATTERMINAL.LCOM;1
compiled on 24-Feb-93 19:37:23
File created 4-Jul-90 02:21:01
CHATTERMINALCOMS
loading PRESS
{DSK}<home>larry>new>medley>library>PRESS.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PRESS.LCOM;1
compiled on 5-Feb-2021 22:18:09
File created 5-Feb-2021 22:18:06
PRESSCOMS
loading INTERPRESS
{DSK}<home>larry>new>medley>sources>INTERPRESS.LCOM;7
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>INTERPRESS.LCOM;9
compiled on 27-Jun-2021 23:51:06
File created 27-Jun-2021 23:50:51
INTERPRESSCOMS
loading TEDIT
{DSK}<home>larry>new>medley>library>TEDIT.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.LCOM;1
compiled on 18-May-2018 09:16:24
File created 19-Apr-2018 12:22:03
TEDITCOMS
{DSK}<home>larry>new>medley>library>TEDITDCL.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITDCL.LCOM;1
compiled on 30-Apr-2021 17:26:58
File created 30-Apr-2021 17:26:17
TEDITDCLCOMS
{DSK}<home>larry>new>medley>library>PCTREE.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>PCTREE.LCOM;1
compiled on 18-May-2018 09:19:35
File created 19-Apr-2018 12:19:49
PCTREECOMS
{DSK}<home>larry>new>medley>library>TEXTOFD.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEXTOFD.LCOM;2
compiled on 14-Jun-2021 23:30:39
File created 6-May-2021 10:18:06
TEXTOFDCOMS
{DSK}<home>larry>new>medley>library>TEDITCOMMAND.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCOMMAND.LCOM;1
compiled on 18-May-2018 09:16:59
File created 20-Apr-2018 08:07:35
TEDITCOMMANDCOMS
{DSK}<home>larry>new>medley>library>TEDITSCREEN.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSCREEN.LCOM;1
compiled on 30-Apr-2021 14:42:15
File created 30-Apr-2021 14:42:15
TEDITSCREENCOMS
{DSK}<home>larry>new>medley>library>TEDITABBREV.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITABBREV.LCOM;1
compiled on 6-Aug-2020 14:52:14
File created 6-Aug-2020 14:52:14
TEDITABBREVCOMS
{DSK}<home>larry>new>medley>library>TEDITLOOKS.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITLOOKS.LCOM;1
compiled on 18-May-2018 09:17:44
File created 29-Jan-99 17:33:35
TEDITLOOKSCOMS
{DSK}<home>larry>new>medley>library>TEDITFIND.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFIND.LCOM;1
compiled on 18-May-2018 09:17:21
File created 6-May-2018 17:34:44
TEDITFINDCOMS
{DSK}<home>larry>new>medley>library>TEDITHISTORY.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHISTORY.LCOM;1
compiled on 18-May-2018 09:17:41
File created 29-Jan-99 17:34:39
TEDITHISTORYCOMS
{DSK}<home>larry>new>medley>library>TEDITFILE.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFILE.LCOM;2
compiled on 12-Jun-2021 12:03:35
File created 30-Apr-2021 14:46:41
TEDITFILECOMS
{DSK}<home>larry>new>medley>library>TEDITWINDOW.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITWINDOW.LCOM;1
compiled on 18-May-2018 09:18:51
File created 21-Jun-99 20:00:42
TEDITWINDOWCOMS
{DSK}<home>larry>new>medley>library>TEDITSELECTION.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITSELECTION.LCOM;1
compiled on 18-May-2018 09:18:43
File created 25-Aug-94 10:56:07
TEDITSELECTIONCOMS
{DSK}<home>larry>new>medley>library>IMAGEOBJ.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>IMAGEOBJ.LCOM;1
compiled on 8-Feb-97 11:26:32
File created 7-Dec-95 13:21:56
IMAGEOBJCOMS
{DSK}<home>larry>new>medley>library>EDITBITMAP.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>EDITBITMAP.LCOM;1
compiled on 25-Feb-93 18:10:27
File created 11-Jun-90 15:42:25
EDITBITMAPCOMS
{DSK}<home>larry>new>medley>library>READNUMBER.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>READNUMBER.LCOM;1
compiled on 16-Aug-95 11:18:52
File created 25-May-93 00:28:30
READNUMBERCOMS
{DSK}<home>larry>new>medley>library>TFBRAVO.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TFBRAVO.LCOM;2
compiled on 13-Jun-2021 09:46:34
File created 13-Jun-2021 09:46:34
TFBRAVOCOMS
{DSK}<home>larry>new>medley>library>TEDITHCPY.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITHCPY.LCOM;3
compiled on 28-Jun-2021 12:35:45
File created 28-Jun-2021 12:35:45
TEDITHCPYCOMS
{DSK}<home>larry>new>medley>library>TEDITPAGE.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITPAGE.LCOM;1
compiled on 18-May-2018 09:18:32
File created 25-Aug-94 10:55:28
TEDITPAGECOMS
{DSK}<home>larry>new>medley>library>TEDITMENU.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITMENU.LCOM;1
compiled on 29-Apr-2021 22:44:22
File created 29-Apr-2021 22:44:22
TEDITMENUCOMS
{DSK}<home>larry>new>medley>library>TEDITFNKEYS.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITFNKEYS.LCOM;1
compiled on 18-May-2018 09:17:25
File created 6-May-2018 17:15:13
TEDITFNKEYSCOMS
loading HRULE
{DSK}<home>larry>new>medley>library>HRULE.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HRULE.LCOM;1
compiled on 26-Feb-93 11:26:19
File created 8-Oct-92 16:50:21
HRULECOMS
loading TEDITCHAT
{DSK}<home>larry>new>medley>library>TEDITCHAT.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDITCHAT.LCOM;1
compiled on 18-May-2018 09:16:55
File created 28-Mar-94 16:05:24
IL:TEDITCHATCOMS
@ -164,121 +164,121 @@ loading READNUMBER
loading EDITBITMAP
loading FILEBROWSER
{DSK}<home>larry>new>medley>library>FILEBROWSER.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>FILEBROWSER.LCOM;4
compiled on 9-Jul-2021 23:09:57
File created 9-Jul-2021 23:09:57
{DSK}<home>larry>new>medley>library>TABLEBROWSER.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TABLEBROWSER.LCOM;1
compiled on 20-Feb-2021 23:04:42
File created 20-Feb-2021 23:02:39
TABLEBROWSERCOMS
loading THINFILES
{DSK}<home>larry>new>medley>lispusers>THINFILES.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>THINFILES.LCOM;1
compiled on 26-Jun-99 00:47:00
File created 1-May-92 16:49:39
THINFILESCOMS
loading GRAPHER
{DSK}<home>larry>new>medley>library>GRAPHER.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>GRAPHER.LCOM;1
compiled on 14-Mar-2021 20:40:31
File created 14-Mar-2021 20:40:30
GRAPHERCOMS
loading SPY
{DSK}<home>larry>new>medley>library>SPY.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>SPY.LCOM;1
compiled on 23-Aug-94 16:33:38
File created 29-Apr-94 14:13:52
SPYCOMS
loading WHERE-IS
{DSK}<home>larry>new>medley>library>WHERE-IS.DFASL;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>WHERE-IS.DFASL;1
XCL Compiler output for source file {DSK}<python>lde>lispcore>library>WHERE-IS.;1
Source file created Wednesday, 13 June 1990, 1:16:15.
FASL file created Thursday, 21 January 1993, 18:52:55.
{DSK}<home>larry>new>medley>library>HASH-FILE.dfasl;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH-FILE.dfasl;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>HASH-FILE.;2
Source file created Monday, 11 June 1990, 16:16:54.
FASL file created Friday, 26 February 1993, 11:23:40.
{DSK}<home>larry>new>medley>library>CASH-FILE.DFASL;5
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CASH-FILE.DFASL;5
XCL Compiler output for source file {DSK}<usr>local>lde>lispcore>library>CASH-FILE.;2
Source file created 11-Jun-90 14:33:44
FASL file created Saturday, 19 September 2020, 22:04:31
loading COPYFILES
{DSK}<home>larry>new>medley>library>COPYFILES.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>COPYFILES.LCOM;1
compiled on 6-Apr-2018 21:14:29
File created 6-Apr-2018 21:14:29
COPYFILESCOMS
loading MSANALYZE
{DSK}<home>larry>new>medley>library>MSANALYZE.DFASL;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSANALYZE.DFASL;1
XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>library>MSANALYZE.;2
Source file created 3-Mar-2021 10:31:16
FASL file created Wednesday, 3 March 2021, 10:31:16
loading MSPARSE
{DSK}<home>larry>new>medley>library>MSPARSE.DFASL;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSPARSE.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSPARSE.;5
Source file created Wednesday, 15 August 1990, 13:00:12.
FASL file created Sunday, 28 February 1993, 23:24:50.
loading MASTERSCOPE
{DSK}<home>larry>new>medley>library>MASTERSCOPE.DFASL;4
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.DFASL;5
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MASTERSCOPE.;6
Source file created 13-Jun-2021 09:05:17
FASL file created Sunday, 13 June 2021, 9:05:17
{DSK}<home>larry>new>medley>library>MSCOMMON.DFASL;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>MSCOMMON.DFASL;1
XCL Compiler output for source file {PELE:MV:ENVOS}<LISPCORE>LIBRARY>MSCOMMON.;3
Source file created Monday, 4 May 1992, 13:19:40.
FASL file created Sunday, 28 February 1993, 23:23:14.
loading UNIXPRINT
{DSK}<home>larry>new>medley>library>UNIXPRINT.DFASL;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXPRINT.DFASL;1
XCL Compiler output for source file {DSK}<Users>kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8
Source file created Friday, 4 May 2018, 17:18:00.
FASL file created Friday, 4 May 2018, 17:18:00.
{DSK}<home>larry>new>medley>library>UNIXCOMM.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCOMM.LCOM;1
compiled on 25-Apr-2018 07:31:56
File created 25-Apr-2018 07:31:56
UNIXCOMMCOMS
loading UNICODE
{DSK}<home>larry>new>medley>library>UNICODE.LCOM;18
compiled on 3-Jul-2021 13:37:33
File created 3-Jul-2021 13:37:33
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNICODE.LCOM;30
compiled on 29-Jul-2021 21:16:01
File created 29-Jul-2021 21:16:01
UNICODECOMS
loading ISO8859IO
{DSK}<home>larry>new>medley>lispusers>ISO8859IO.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>ISO8859IO.LCOM;13
compiled on 23-Jun-2021 17:00:30
File created 23-Jun-2021 17:00:30
ISO8859IOCOMS
loading HELPSYS
{DSK}<home>larry>new>medley>lispusers>HELPSYS.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>HELPSYS.LCOM;1
compiled on 27-Nov-2020 11:23:11
File created 27-Nov-2020 09:47:44
HELPSYSCOMS
{DSK}<home>larry>new>medley>lispusers>DINFO.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>DINFO.LCOM;1
compiled on 14-Feb-2021 23:11:53
File created 14-Feb-2021 23:11:36
DINFOCOMS
{DSK}<home>larry>new>medley>library>HASH.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>HASH.LCOM;1
compiled on 26-Feb-93 11:22:10
File created 11-Jun-90 16:23:11
HASHCOMS
@ -286,25 +286,25 @@ HASHCOMS
Reading IRM graph...OK.loading DINFO
loading CLIPBOARD
{DSK}<home>larry>new>medley>library>CLIPBOARD.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>CLIPBOARD.LCOM;6
compiled on 3-Jul-2021 13:16:26
File created 3-Jul-2021 13:16:26
CLIPBOARDCOMS
loading MODERNIZE
{DSK}<home>larry>new>medley>lispusers>MODERNIZE.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MODERNIZE.LCOM;16
compiled on 8-Jul-2021 23:33:42
File created 8-Jul-2021 23:33:42
MODERNIZECOMS
loading PRETTYFILEINDEX
{DSK}<home>larry>new>medley>lispusers>PRETTYFILEINDEX.LCOM;3
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>PRETTYFILEINDEX.LCOM;6
compiled on 9-Jul-2021 21:55:15
File created 9-Jul-2021 21:55:15
PRETTYFILEINDEXCOMS
loading WHO-LINE
{DSK}<home>larry>new>medley>lispusers>WHO-LINE.DFASL;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>WHO-LINE.DFASL;1
XCL Compiler output for source file {DSK}<home>larry>ilisp>medley>lispusers>WHO-LINE.;4
Source file created 26-Mar-2021 11:01:59
FASL file created Friday, 26 March 2021, 11:01:59
@ -312,7 +312,7 @@ FASL file created Friday, 26 March 2021, 11:01:59
loading UNIXCOMM
loading UNIXCHAT
{DSK}<home>larry>new>medley>library>UNIXCHAT.LCOM;1
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>UNIXCHAT.LCOM;1
compiled on 21-Jan-93 18:45:15
File created 15-Aug-90 11:05:53
UNIXCHATCOMS

BIN
loadups/full.sysout
View File

Binary file not shown.

350
loadups/lisp.dribble
View File

File diff suppressed because it is too large Load Diff

BIN
loadups/lisp.sysout
View File

Binary file not shown.

1546
loadups/whereis.dribble
View File

File diff suppressed because it is too large Load Diff

BIN
loadups/whereis.hash
View File

Binary file not shown.

214
sources/BOOTSTRAP
View File

@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 9-Jul-2021 15:32:36" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;20 40815
(FILECREATED "30-Jul-2021 10:02:14" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;49 46093
changes to%: (FNS \LOAD-STREAM \DO-DEFINE-FILE-INFO)
changes to%: (FNS READ-READER-ENVIRONMENT)
previous date%: " 9-Jul-2021 14:02:39"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;18)
previous date%: "29-Jul-2021 20:31:41"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;48)
(* ; "
@ -21,7 +21,11 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
(COMS (* ;
 "Need these in order to load even compiled files SYSLOAD")
(FNS LOAD \LOAD-STREAM FILECREATED FILECREATED1 PRETTYCOMPRINT BOOTSTRAP-NAMEFIELD
PUTPROPS DECLARE%: DECLARE%:1 ROOTFILENAME DEFINE-FILE-INFO \DO-DEFINE-FILE-INFO))
PUTPROPS DECLARE%: DECLARE%:1 ROOTFILENAME))
[COMS (* ; "For DEFINE-FILE-INFO")
(FNS DEFINE-FILE-INFO \DO-DEFINE-FILE-INFO PRINT-READER-ENVIRONMENT
READ-READER-ENVIRONMENT MAKE-DEFINE-FILE-INFO-ENV)
(INITVARS (*DEFINE-FILE-INFO-ENV* (MAKE-DEFINE-FILE-INFO-ENV]
(INITVARS (EOLCHARCODE (CHCON1 "
"))
(PRETTYHEADER)
@ -365,7 +369,7 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
(\LOAD-STREAM
[LAMBDA (STREAM LDFLG PRINTFLG LOAD-VERBOSE-STREAM PACKAGE)
(DECLARE (SPECVARS LDFLG PRINTFLG LOAD-VERBOSE-STREAM))
(* ; "Edited 9-Jul-2021 15:30 by rmk:")
(* ; "Edited 17-Jul-2021 21:58 by rmk:")
(* ;;; "Internal function that loads from an already open stream. LOAD-VERBOSE-STREAM if non-nil is the stream to which to print %"file created%" messages and such. Similarly, PRINTFLG, if non-nil, is the stream to which to print the value of each expression.")
@ -380,11 +384,11 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
(ADDSPELLFLG ADDSPELLFLG)
(LISPXHIST LISPXHIST)
(PRLST (AND FILEPKGFLG (FILEPKGCHANGES)))
(FILECREATEDENV *OLD-INTERLISP-READ-ENVIRONMENT*)
(DEFINEDENV)
FILEMAP FNADRLST ROOTNAME TEM FILECREATEDLST LOADA MAYBEWANTFILEMAP INTERLISP-P
FILECREATEDLOC)
(DECLARE (SPECVARS DFNFLG BUILDMAPFLG FILEPKGFLG ADDSPELLFLG LISPXHIST FILECREATEDLST
FILECREATEDENV FILECREATEDLOC FILE))
DEFINEDENV FILECREATEDLOC FILE))
(if (AND LOAD-VERBOSE-STREAM FILE)
then (LISPXTERPRI LOAD-VERBOSE-STREAM)
(if (NEQ LOAD-VERBOSE-STREAM T)
@ -439,7 +443,21 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
then (RETURN (\CML-LOAD STREAM PRINTFLG LOAD-VERBOSE-STREAM PACKAGE)))
(if (AND BUILDMAPFLG (RANDACCESSP STREAM))
then (SETQ MAYBEWANTFILEMAP T))
(WITH-READER-ENVIRONMENT FILECREATEDENV
(* ;; "Get the environment from the DEFINE-FILE-INFO expression. This is read in the DEFINE-FILE-INFO-ENVIRONMENT.")
(SETQ DEFINEDENV (READ-READER-ENVIRONMENT STREAM *OLD-INTERLISP-READ-ENVIRONMENT*))
(CL:WHEN PACKAGE
(* ;; "Caller better really mean it--overrides what's on file! But we don't want to smash what the reader returned, couldbe the old-interlisp-file-env.")
[SETQ DEFINEDENV (CREATE READER-ENVIRONMENT USING DEFINEDENV REPACKAGE _
(SETQ *PACKAGE*
(\DTEST PACKAGE 'PACKAGE])
(* ;; "At this point we have the environment for the file, the external format is set. We now read/interpret all the other forms.")
(WITH-READER-ENVIRONMENT DEFINEDENV
(PROG (ADR)
LP (if FILEMAP
then (* ;
@ -476,8 +494,7 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
(ADDFILE FILE T PRLST FILECREATEDLST))
[if FILEMAP
then (PUTFILEMAP FILE (CAR FILEMAP)
FILECREATEDLST FILECREATEDENV NIL FILECREATEDLOC
)
FILECREATEDLST DEFINEDENV NIL FILECREATEDLOC)
(if UPDATEMAPFLG
then (SETFILEPTR STREAM ADR)
(* ;
@ -490,22 +507,6 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
[if (LISTP LOADA)
then
(SELECTQ (CAR LOADA)
(DEFINE-FILE-INFO (* ;
 "Handle this specially, since we want to remember the environment")
(SETQ FILECREATEDLOC (GETFILEPTR STREAM))
(SET-READER-ENVIRONMENT [SETQ LOADA
(SETQ FILECREATEDENV
(\DO-DEFINE-FILE-INFO
STREAM
(CDR LOADA]
STREAM)
[if PACKAGE
then (* ;
 "Caller better really mean it--overrides what's on file!")
(replace REPACKAGE of
FILECREATEDENV
with (SETQ *PACKAGE*
(\DTEST PACKAGE 'PACKAGE])
(FILECREATED (if MAYBEWANTFILEMAP
then (* ; "See if we have a valid file map")
(SETQ ADR (GETFILEPTR STREAM))
@ -517,7 +518,7 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
'FILEMAP)
(NULL (CAR (SETQ TEM (CADR TEM]
then (* ; "Has ok map")
(PUTFILEMAP FILE TEM NIL FILECREATEDENV)
(PUTFILEMAP FILE TEM NIL DEFINEDENV)
else (* ;
 "Need to build a file map as we go")
(SETQ FILEMAP (TCONC NIL NIL)))
@ -696,6 +697,13 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
(FULLNAME NAME))
(T NAME))
(NOT COMPFLG])
)
(* ; "For DEFINE-FILE-INFO")
(DEFINEQ
(DEFINE-FILE-INFO
[NLAMBDA ARGS (* bvm%: "13-Oct-86 17:24")
@ -706,34 +714,39 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
(SET-READER-ENVIRONMENT (\DO-DEFINE-FILE-INFO NIL ARGS])
(\DO-DEFINE-FILE-INFO
[LAMBDA (STREAM ARGS) (* ; "Edited 9-Jul-2021 15:32 by rmk:")
[LAMBDA (STREAM ARGS) (* ; "Edited 17-Jul-2021 22:17 by rmk:")
(* ;;; "Processes the (DEFINE-FILE-INFO . ARGS) at the front of STREAM. This converts the ARGS list to a READER-ENVIRONMENT, and also imposes the external format on STREAM, if non-NIL.")
(* ;; "Include the :PACKAGE... for bootstrapping before in sysouts without an updated version of \LOAD-STREAM")
(LET (PACKAGE READTABLE BASE FORMAT VALUE)
[for TAIL on ARGS by (CDDR TAIL)
do (SETQ VALUE (CADR TAIL))
(SELECTQ (CAR TAIL)
(:PACKAGE (SETQ PACKAGE
(OR (if (LISTP VALUE)
then (LET ((P (EVAL VALUE)))
(if (TYPEP P 'PACKAGE)
then P
else (CL:FIND-PACKAGE P)))
else (CL:FIND-PACKAGE VALUE))
(ERROR "Can't find package for reader environment" VALUE))))
(:READTABLE (SETQ READTABLE (OR (if (LISTP VALUE)
then (\DTEST (EVAL VALUE)
'READTABLEP)
else (FIND-READTABLE VALUE))
(ERROR
((:PACKAGE %:PACKAGE)
(SETQ PACKAGE
(OR (if (LISTP VALUE)
then (LET ((P (EVAL VALUE)))
(if (TYPEP P 'PACKAGE)
then P
else (CL:FIND-PACKAGE P)))
else (CL:FIND-PACKAGE VALUE))
(ERROR "Can't find package for reader environment" VALUE))))
((:READTABLE %:READTABLE)
(SETQ READTABLE (OR (if (LISTP VALUE)
then (\DTEST (EVAL VALUE)
'READTABLEP)
else (FIND-READTABLE VALUE))
(ERROR
"Can't find read table for reader environment"
VALUE))))
(:BASE (SETQ BASE (OR (\CHECKRADIX (if (LISTP VALUE)
VALUE))))
((:BASE %:BASE)
(SETQ BASE (OR (\CHECKRADIX (if (LISTP VALUE)
then (EVAL VALUE)
else VALUE))
(ERROR "Bad read base for reader environment" VALUE))))
((:FORMAT FORMAT)
((:FORMAT FORMAT %:FORMAT)
(SETQ FORMAT (FETCH (EXTERNALFORMAT NAME) OF (FIND-FORMAT
VALUE))))
(ERROR "Unrecognized file info key" (CAR TAIL]
@ -747,8 +760,100 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
REREADTABLE _ (OR READTABLE FILERDTBL)
REBASE _ (OR BASE 10)
REFORMAT _ FORMAT])
(PRINT-READER-ENVIRONMENT
[LAMBDA (ENV STREAM) (* ; "Edited 18-Jul-2021 09:05 by rmk:")
(* ;;; "If ENV is not the old default interlisp reader environment, writes a DEFINE-FILE-INFO expression on STREAM that will produce this environment when the file is loaded.")
(CL:UNLESS (EQUAL-READER-ENVIRONMENT ENV *OLD-INTERLISP-READ-ENVIRONMENT*)
(LET ((*PACKAGE* *INTERLISP-PACKAGE*)
(*PRINT-BASE* 10)
PKG)
(PRINT [CONS 'DEFINE-FILE-INFO `(,@[AND (SETQ PKG (fetch REPACKAGE of ENV))
`(:PACKAGE ,(CL:PACKAGE-NAME PKG]
:READTABLE
,(READTABLEPROP (fetch REREADTABLE of ENV)
'NAME)
:BASE
,(fetch REBASE of ENV)
:FORMAT
,(FETCH REFORMAT OF ENV]
STREAM
(FETCH (READER-ENVIRONMENT REREADTABLE) OF *DEFINE-FILE-INFO-ENV*))))])
(READ-READER-ENVIRONMENT
[LAMBDA (STREAM DEFAULTENV RETURNFORM) (* ; "Edited 30-Jul-2021 09:58 by rmk:")
(* ;; "Starting environment is the old interlisp file, just for the seprchar scans.")
(* ;; "RETURNFORM=T means return the DEFINE-FILE-INFO as a second value, for READFILE")
(CL:UNLESS DEFAULTENV (SETQ DEFAULTENV *OLD-INTERLISP-READ-ENVIRONMENT*))
(LET ((START (GETFILEPTR STREAM))
ARGS
(ENV DEFAULTENV)
(*READTABLE* (FETCH (READER-ENVIRONMENT REREADTABLE) OF
*OLD-INTERLISP-READ-ENVIRONMENT*
)))
(DECLARE (SPECVARS *READTABLE*))
(SELCHARQ (SKIPSEPRCODES STREAM)
(";" (* ; "Assume it's a common lisp file")
(\EXTERNALFORMAT STREAM (FETCH (READER-ENVIRONMENT REFORMAT) OF
*COMMON-LISP-READ-ENVIRONMENT*
))
*COMMON-LISP-READ-ENVIRONMENT*)
("(" (\EXTERNALFORMAT STREAM (FETCH (READER-ENVIRONMENT REFORMAT) OF
*DEFINE-FILE-INFO-ENV*
)) (* ;
 "Should we reset the format if we fail?")
(READCCODE STREAM)
(WITH-READER-ENVIRONMENT *DEFINE-FILE-INFO-ENV*
(IF (EQ 'DEFINE-FILE-INFO (RATOM STREAM))
THEN
(* ;;
 "After the \DO-DEFINE-FILE-INFO, we have the new environment and we have set the new format.")
[SETQ ENV (\DO-DEFINE-FILE-INFO STREAM (SETQ ARGS
(CL:READ-DELIMITED-LIST
(CHARCODE ")")
STREAM]
ELSE (* ; "Hope we are RANDACCESSP")
(SETFILEPTR STREAM START))
(* ;;
 "If we didn't see ARGS, then we didn't see a DEFINE-FILE-INFO, no form to return.")
(CL:IF (AND RETURNFORM ARGS)
(CL:VALUES ENV (CONS 'DEFINE-FILE-INFO ARGS))
ENV)))
DEFAULTENV])
(MAKE-DEFINE-FILE-INFO-ENV
[LAMBDA NIL (* ; "Edited 29-Jul-2021 20:29 by rmk:")
(* ;; "Makes the reader environment and read table used for printing and reading the DEFINE-FILE-INFO expression. Like the OLD-INTERLISP-FILE, but : is the preferred package delim")
(LET [(RTBL (COPYREADTABLE (FETCH REREADTABLE OF *OLD-INTERLISP-READ-ENVIRONMENT*]
(* ;;
 "But this is all rather silly: Why not just have ordinary Interlisp atoms for the key words. ")
(* (READTABLEPROP RTBL
 (QUOTE PACKAGECHAR)
 (CHARCODE %:)))
(SETSYNTAX (CHARCODE %:)
'PACKAGEDELIM RTBL) (* ;
 "In transition: read : but don't yet put it out")
(* ;; "The INTERLISP package doesn't exist in bootstrap, the REPACKAGE field is filled in in PACKAGE-ENABLE in PACKAGE-STARTUP")
(CREATE READER-ENVIRONMENT USING *OLD-INTERLISP-READ-ENVIRONMENT* REREADTABLE _ RTBL
])
)
(RPAQ? *DEFINE-FILE-INFO-ENV* (MAKE-DEFINE-FILE-INFO-ENV))
(RPAQ? EOLCHARCODE (CHCON1 "
"))
@ -849,12 +954,13 @@ Copyright (c) 1983-1990, 1992, 2021 by Venue & Xerox Corporation.
(PUTPROPS BOOTSTRAP COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990
1992 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (4465 14137 (GETPROP 4475 . 5047) (SETATOMVAL 5049 . 5178) (RPAQQ 5180 . 5233) (RPAQ
5235 . 5547) (RPAQ? 5549 . 5919) (MOVD 5921 . 7785) (MOVD? 7787 . 8217) (SELECTQ 8219 . 8406) (
SELECTQ1 8408 . 8750) (NCONC1 8752 . 8948) (PUTPROP 8950 . 10434) (PROPNAMES 10436 . 10627) (ADDPROP
10629 . 12692) (REMPROP 12694 . 13548) (MEMB 13550 . 13809) (CLOSEF? 13811 . 14135)) (14210 38711 (
LOAD 14220 . 15389) (\LOAD-STREAM 15391 . 29116) (FILECREATED 29118 . 30536) (FILECREATED1 30538 .
31646) (PRETTYCOMPRINT 31648 . 32133) (BOOTSTRAP-NAMEFIELD 32135 . 33095) (PUTPROPS 33097 . 33465) (
DECLARE%: 33467 . 33599) (DECLARE%:1 33601 . 34473) (ROOTFILENAME 34475 . 35423) (DEFINE-FILE-INFO
35425 . 35860) (\DO-DEFINE-FILE-INFO 35862 . 38709)))))
(FILEMAP (NIL (4740 14412 (GETPROP 4750 . 5322) (SETATOMVAL 5324 . 5453) (RPAQQ 5455 . 5508) (RPAQ
5510 . 5822) (RPAQ? 5824 . 6194) (MOVD 6196 . 8060) (MOVD? 8062 . 8492) (SELECTQ 8494 . 8681) (
SELECTQ1 8683 . 9025) (NCONC1 9027 . 9223) (PUTPROP 9225 . 10709) (PROPNAMES 10711 . 10902) (ADDPROP
10904 . 12967) (REMPROP 12969 . 13823) (MEMB 13825 . 14084) (CLOSEF? 14086 . 14410)) (14485 35049 (
LOAD 14495 . 15664) (\LOAD-STREAM 15666 . 28740) (FILECREATED 28742 . 30160) (FILECREATED1 30162 .
31270) (PRETTYCOMPRINT 31272 . 31757) (BOOTSTRAP-NAMEFIELD 31759 . 32719) (PUTPROPS 32721 . 33089) (
DECLARE%: 33091 . 33223) (DECLARE%:1 33225 . 34097) (ROOTFILENAME 34099 . 35047)) (35087 43925 (
DEFINE-FILE-INFO 35097 . 35532) (\DO-DEFINE-FILE-INFO 35534 . 38596) (PRINT-READER-ENVIRONMENT 38598
. 39879) (READ-READER-ENVIRONMENT 39881 . 42647) (MAKE-DEFINE-FILE-INFO-ENV 42649 . 43923)))))
STOP

BIN
sources/BOOTSTRAP.LCOM
View File

Binary file not shown.

66
sources/CMLREAD
View File

@ -1,11 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 9-Jul-2021 08:09:06" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;9 12772
(FILECREATED "29-Jul-2021 20:34:35" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;10 14968
changes to%: (RECORDS READER-ENVIRONMENT)
changes to%: (FUNCTIONS WITH-READER-ENVIRONMENT)
previous date%: " 3-Jul-2021 13:32:59"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;8)
previous date%: " 9-Jul-2021 08:09:06"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>CMLREAD.;9)
(* ; "
@ -256,9 +256,7 @@ Copyright (c) 1985-1988, 1990, 1993, 2021 by Venue & Xerox Corporation.
(LET ((*PACKAGE* (ffetch (READER-ENVIRONMENT REPACKAGE) of E))
(*READTABLE* (ffetch (READER-ENVIRONMENT REREADTABLE) of E))
(*READ-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E))
(*PRINT-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E))
(*EXTERNALFORMAT* (ffetch (READER-ENVIRONMENT REFORMAT) of E)))
(DECLARE (SPECVARS *EXTERNALFORMAT*))
(*PRINT-BASE* (ffetch (READER-ENVIRONMENT REBASE) of E)))
,@BODY))
(\DTEST ,ENV 'READER-ENVIRONMENT)))
@ -285,10 +283,54 @@ Copyright (c) 1985-1988, 1990, 1993, 2021 by Venue & Xerox Corporation.
CL:LISTEN CL:PEEK-CHAR CL:UNREAD-CHAR CL:READ-CHAR CL:READ-LINE
CL:COPY-READTABLE)
)
(PRETTYCOMPRINT CMLREADCOMS)
(RPAQQ CMLREADCOMS
[(COMS
(* ;; "Misc Common Lisp reader functions")
(FNS CL:COPY-READTABLE)
(FNS CL:READ-LINE CL:READ-CHAR CL:UNREAD-CHAR CL:PEEK-CHAR CL:LISTEN
CL:READ-CHAR-NO-HANG CL:CLEAR-INPUT CL:READ-FROM-STRING CL:READ-BYTE CL:WRITE-BYTE
)
(* ;
 "must turn off packed version of CLISP infix")
(VARS [CLISPCHARS (LDIFFERENCE CLISPCHARS '(- *]
(CLISPCHARRAY (MAKEBITTABLE CLISPCHARS))
(DWIMINMACROSFLG))
(VARIABLES *READ-DEFAULT-FLOAT-FORMAT*)
(GLOBALVARS CMLRDTBL READ-LINE-RDTBL))
[COMS
(* ;; "Crude means to aid reading and printing things in same reader environment. There are some fns and an INITRECORDS for this on ATBL to get it early in the loadup")
(RECORDS READER-ENVIRONMENT)
(FUNCTIONS WITH-READER-ENVIRONMENT)
(ADDVARS (SYSSPECVARS *PACKAGE* *READTABLE* *READ-BASE* *PRINT-BASE*))
(PROP INFO WITH-READER-ENVIRONMENT)
(GLOBALVARS *COMMON-LISP-READ-ENVIRONMENT*)
(INITVARS (*COMMON-LISP-READ-ENVIRONMENT* (create READER-ENVIRONMENT REPACKAGE _
(CL:FIND-PACKAGE "USER")
REREADTABLE _ CMLRDTBL REBASE _ 10
REFORMAT _ :XCCS]
(PROP FILETYPE CMLREAD)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDVARS (NLAMA)
(NLAML)
(LAMA CL:READ-BYTE CL:READ-FROM-STRING CL:CLEAR-INPUT CL:READ-CHAR-NO-HANG
CL:PEEK-CHAR CL:UNREAD-CHAR CL:READ-CHAR CL:READ-LINE CL:COPY-READTABLE])
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
(ADDTOVAR NLAMA )
(ADDTOVAR NLAML )
(ADDTOVAR LAMA CL:READ-BYTE CL:READ-FROM-STRING CL:CLEAR-INPUT CL:READ-CHAR-NO-HANG CL:PEEK-CHAR
CL:UNREAD-CHAR CL:READ-CHAR CL:READ-LINE CL:COPY-READTABLE)
)
(PUTPROPS CMLREAD COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990 1993 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2592 3577 (CL:COPY-READTABLE 2602 . 3575)) (3578 10211 (CL:READ-LINE 3588 . 4460) (
CL:READ-CHAR 4462 . 5012) (CL:UNREAD-CHAR 5014 . 5475) (CL:PEEK-CHAR 5477 . 7461) (CL:LISTEN 7463 .
7728) (CL:READ-CHAR-NO-HANG 7730 . 8502) (CL:CLEAR-INPUT 8504 . 8741) (CL:READ-FROM-STRING 8743 . 9498
) (CL:READ-BYTE 9500 . 9953) (CL:WRITE-BYTE 9955 . 10209)))))
(FILEMAP (NIL (2600 3585 (CL:COPY-READTABLE 2610 . 3583)) (3586 10219 (CL:READ-LINE 3596 . 4468) (
CL:READ-CHAR 4470 . 5020) (CL:UNREAD-CHAR 5022 . 5483) (CL:PEEK-CHAR 5485 . 7469) (CL:LISTEN 7471 .
7736) (CL:READ-CHAR-NO-HANG 7738 . 8510) (CL:CLEAR-INPUT 8512 . 8749) (CL:READ-FROM-STRING 8751 . 9506
) (CL:READ-BYTE 9508 . 9961) (CL:WRITE-BYTE 9963 . 10217)))))
STOP

BIN
sources/CMLREAD.LCOM
View File

Binary file not shown.

117
sources/FILEIO
View File

@ -1,12 +1,11 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED " 9-Jul-2021 17:43:09" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;58 179154
(FILECREATED "29-Jul-2021 21:22:44" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;61 180141
changes to%: (VARS FILEIOCOMS)
(FNS \EXTERNALFORMAT)
changes to%: (FNS MAKE-EXTERNALFORMAT)
previous date%: " 9-Jul-2021 09:35:10"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;57)
previous date%: "29-Jul-2021 21:14:36"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>FILEIO.;60)
(* ; "
@ -55,6 +54,7 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
[COMS (* ;
 "EXTERNALFORMAT declaration and related functions")
(DECLARE%: DOEVAL@COMPILE DONTCOPY (EXPORT (RECORDS EXTERNALFORMAT)))
(FNS MAKE-EXTERNALFORMAT)
(INITRECORDS EXTERNALFORMAT)
(SYSRECORDS EXTERNALFORMAT)
(FNS \INSTALL.EXTERNALFORMAT \REMOVE.EXTERNALFORMAT FIND-FORMAT \EXTERNALFORMAT)
@ -1221,6 +1221,33 @@ Copyright (c) 1981-1993, 1999, 2020-2021 by Venue & Xerox Corporation.
(* "END EXPORTED DEFINITIONS")
)
(DEFINEQ
(MAKE-EXTERNALFORMAT
[LAMBDA (NAME INCCODEFN PEEKCCODEFN BACKCCODEFN OUTCHARFN FORMATBYTESTREAMFN EOL)
(* ; "Edited 29-Jul-2021 21:22 by rmk:")
(* ;; "Compiled creator for EXTERNALFORMAT so that declaration (EXPORTS.ALL) is not needed. If EOL is not specified, then EOLVALID is also NIL")
(SETQ EOL (SELECTC EOL
((LIST 'LF LF.EOLC)
LF.EOLC)
((LIST 'CR CR.EOLC)
CR.EOLC)
((LIST 'CRLF CRLF.EOLC)
CRLF.EOLC)
(NIL)
(SHOULDNT)))
(CREATE EXTERNALFORMAT
NAME _ NAME
INCCODEFN _ INCCODEFN
PEEKCCODEFN _ PEEKCCODEFN
BACKCCODEFN _ BACKCCODEFN
OUTCHARFN _ OUTCHARFN
FORMATBYTESTREAMFN _ FORMATBYTESTREAMFN
EOLVALID _ EOL
EOL _ EOL])
)
(/DECLAREDATATYPE 'EXTERNALFORMAT '(FLAG (BITS 2)
(BITS 1)
@ -3382,43 +3409,43 @@ update the map")
(PUTPROPS FILEIO COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1989
1990 1991 1992 1993 1999 2020 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (28433 31923 (STREAMPROP 28443 . 28877) (GETSTREAMPROP 28879 . 29352) (PUTSTREAMPROP
29354 . 31771) (STREAMP 31773 . 31921)) (31966 34485 (\DEFPRINT.BY.NAME 31976 . 33128) (
\STREAM.DEFPRINT 33130 . 34178) (\FDEV.DEFPRINT 34180 . 34483)) (34743 39784 (\GETACCESS 34753 . 35207
) (\SETACCESS 35209 . 39782)) (63955 70961 (\INSTALL.EXTERNALFORMAT 63965 . 65398) (
\REMOVE.EXTERNALFORMAT 65400 . 66231) (FIND-FORMAT 66233 . 66784) (\EXTERNALFORMAT 66786 . 70959)) (
71284 73103 (\CREATE.THROUGH.EXTERNALFORMAT 71294 . 72096) (\THROUGHIN 72098 . 72504) (
\THROUGHBACKCCODE 72506 . 72751) (\THROUGHOUTCHARFN 72753 . 73101)) (73211 79180 (\DEFINEDEVICE 73221
. 75537) (\GETDEVICEFROMNAME 75539 . 76012) (\GETDEVICEFROMHOSTNAME 76014 . 77058) (\REMOVEDEVICE
77060 . 78183) (\REMOVEDEVICE.NAMES 78185 . 79178)) (79220 103880 (\CLOSEFILE 79230 . 80055) (
\DELETEFILE 80057 . 80351) (\DEVICEEVENT 80353 . 82123) (\GENERATEFILES 82125 . 82603) (
\GENERATENEXTFILE 82605 . 83256) (\GENERATEFILEINFO 83258 . 83719) (\GETFILENAME 83721 . 84110) (
\GENERIC.OUTFILEP 84112 . 84582) (\OPENFILE 84584 . 87162) (\DO.PARAMS.AT.OPEN 87164 . 89717) (
\RENAMEFILE 89719 . 90143) (\REVALIDATEFILE 90145 . 92747) (\PAGED.REVALIDATEFILELST 92749 . 94307) (
\PAGED.REVALIDATEFILES 94309 . 96028) (\PAGED.REVALIDATEFILE 96030 . 98313) (\BUFFERED.REVALIDATEFILE
98315 . 100601) (\BUFFERED.REVALIDATEFILELST 100603 . 101787) (\PRINT-REVALIDATION-RESULT 101789 .
102204) (\TRUNCATEFILE 102206 . 102597) (\FILE-CONFLICT 102599 . 103878)) (103916 108579 (
\GENERATENOFILES 103926 . 106022) (\NULLFILEGENERATOR 106024 . 106268) (\NOFILESNEXTFILEFN 106270 .
108261) (\NOFILESINFOFN 108263 . 108577)) (108698 110606 (\FILE.NOT.OPEN 108708 . 109221) (
\FILE.WONT.OPEN 109223 . 109551) (\ILLEGAL.DEVICEOP 109553 . 109835) (\IS.NOT.RANDACCESSP 109837 .
110283) (\STREAM.NOT.OPEN 110285 . 110604)) (110741 113039 (\FDEVINSTANCE 110751 . 113037)) (114589
121963 (CNDIR 114599 . 115904) (DIRECTORYNAME 115906 . 120089) (DIRECTORYNAMEP 120091 . 120707) (
HOSTNAMEP 120709 . 121516) (\ADD.CONNECTED.DIR 121518 . 121961)) (122008 152651 (\BACKFILEPTR 122018
. 122206) (\BACKPEEKBIN 122208 . 122569) (\BACKBIN 122571 . 122922) (BIN 122924 . 123141) (\BIN
123143 . 123420) (\BINS 123422 . 123708) (BOUT 123710 . 124072) (\BOUT 124074 . 124389) (\BOUTS 124391
. 124702) (COPYBYTES 124704 . 128036) (COPYCHARS 128038 . 134960) (COPYFILE 134962 . 135759) (
\COPYOPENFILE 135761 . 138834) (\INFER.FILE.TYPE 138836 . 139790) (EOFP 139792 . 140089) (FORCEOUTPUT
140091 . 140338) (\FLUSH.OPEN.STREAMS 140340 . 140696) (CHARSET 140698 . 142362) (ACCESS-CHARSET
142364 . 142581) (GETEOFPTR 142583 . 142833) (GETFILEINFO 142835 . 146028) (\TYPE.FROM.FILETYPE 146030
. 146500) (\FILETYPE.FROM.TYPE 146502 . 146681) (GETFILEPTR 146683 . 146935) (SETFILEINFO 146937 .
150550) (SETFILEPTR 150552 . 152271) (BOUT16 152273 . 152458) (BIN16 152460 . 152649)) (152754 157959
(\GENERIC.BINS 152764 . 153044) (\GENERIC.BOUTS 153046 . 153311) (\GENERIC.RENAMEFILE 153313 . 155144)
(\GENERIC.OPENP 155146 . 156461) (\GENERIC.READP 156463 . 157504) (\GENERIC.CHARSET 157506 . 157957))
(157960 158299 (\MAP-OPEN-STREAMS 157970 . 158297)) (160169 162249 (\EOF.ACTION 160179 . 160430) (
\EOSERROR 160432 . 160625) (\GETEOFPTR 160627 . 160809) (\INCFILEPTR 160811 . 161161) (\PEEKBIN 161163
. 161354) (\SETCLOSEDFILELENGTH 161356 . 161690) (\SETEOFPTR 161692 . 161880) (\SETFILEPTR 161882 .
162247)) (162250 162792 (\FIXPOUT 162260 . 162560) (\FIXPIN 162562 . 162790)) (166458 176322 (
\BUFFERED.BIN 166468 . 167320) (\BUFFERED.PEEKBIN 167322 . 168104) (\BUFFERED.BOUT 168106 . 168966) (
\BUFFERED.BINS 168968 . 172653) (\BUFFERED.BOUTS 172655 . 174456) (\BUFFERED.COPYBYTES 174458 . 176320
)) (176351 178703 (\NULLDEVICE 176361 . 178379) (\NULL.OPENFILE 178381 . 178701)))))
(FILEMAP (NIL (28439 31929 (STREAMPROP 28449 . 28883) (GETSTREAMPROP 28885 . 29358) (PUTSTREAMPROP
29360 . 31777) (STREAMP 31779 . 31927)) (31972 34491 (\DEFPRINT.BY.NAME 31982 . 33134) (
\STREAM.DEFPRINT 33136 . 34184) (\FDEV.DEFPRINT 34186 . 34489)) (34749 39790 (\GETACCESS 34759 . 35213
) (\SETACCESS 35215 . 39788)) (62776 63756 (MAKE-EXTERNALFORMAT 62786 . 63754)) (64942 71948 (
\INSTALL.EXTERNALFORMAT 64952 . 66385) (\REMOVE.EXTERNALFORMAT 66387 . 67218) (FIND-FORMAT 67220 .
67771) (\EXTERNALFORMAT 67773 . 71946)) (72271 74090 (\CREATE.THROUGH.EXTERNALFORMAT 72281 . 73083) (
\THROUGHIN 73085 . 73491) (\THROUGHBACKCCODE 73493 . 73738) (\THROUGHOUTCHARFN 73740 . 74088)) (74198
80167 (\DEFINEDEVICE 74208 . 76524) (\GETDEVICEFROMNAME 76526 . 76999) (\GETDEVICEFROMHOSTNAME 77001
. 78045) (\REMOVEDEVICE 78047 . 79170) (\REMOVEDEVICE.NAMES 79172 . 80165)) (80207 104867 (\CLOSEFILE
80217 . 81042) (\DELETEFILE 81044 . 81338) (\DEVICEEVENT 81340 . 83110) (\GENERATEFILES 83112 . 83590
) (\GENERATENEXTFILE 83592 . 84243) (\GENERATEFILEINFO 84245 . 84706) (\GETFILENAME 84708 . 85097) (
\GENERIC.OUTFILEP 85099 . 85569) (\OPENFILE 85571 . 88149) (\DO.PARAMS.AT.OPEN 88151 . 90704) (
\RENAMEFILE 90706 . 91130) (\REVALIDATEFILE 91132 . 93734) (\PAGED.REVALIDATEFILELST 93736 . 95294) (
\PAGED.REVALIDATEFILES 95296 . 97015) (\PAGED.REVALIDATEFILE 97017 . 99300) (\BUFFERED.REVALIDATEFILE
99302 . 101588) (\BUFFERED.REVALIDATEFILELST 101590 . 102774) (\PRINT-REVALIDATION-RESULT 102776 .
103191) (\TRUNCATEFILE 103193 . 103584) (\FILE-CONFLICT 103586 . 104865)) (104903 109566 (
\GENERATENOFILES 104913 . 107009) (\NULLFILEGENERATOR 107011 . 107255) (\NOFILESNEXTFILEFN 107257 .
109248) (\NOFILESINFOFN 109250 . 109564)) (109685 111593 (\FILE.NOT.OPEN 109695 . 110208) (
\FILE.WONT.OPEN 110210 . 110538) (\ILLEGAL.DEVICEOP 110540 . 110822) (\IS.NOT.RANDACCESSP 110824 .
111270) (\STREAM.NOT.OPEN 111272 . 111591)) (111728 114026 (\FDEVINSTANCE 111738 . 114024)) (115576
122950 (CNDIR 115586 . 116891) (DIRECTORYNAME 116893 . 121076) (DIRECTORYNAMEP 121078 . 121694) (
HOSTNAMEP 121696 . 122503) (\ADD.CONNECTED.DIR 122505 . 122948)) (122995 153638 (\BACKFILEPTR 123005
. 123193) (\BACKPEEKBIN 123195 . 123556) (\BACKBIN 123558 . 123909) (BIN 123911 . 124128) (\BIN
124130 . 124407) (\BINS 124409 . 124695) (BOUT 124697 . 125059) (\BOUT 125061 . 125376) (\BOUTS 125378
. 125689) (COPYBYTES 125691 . 129023) (COPYCHARS 129025 . 135947) (COPYFILE 135949 . 136746) (
\COPYOPENFILE 136748 . 139821) (\INFER.FILE.TYPE 139823 . 140777) (EOFP 140779 . 141076) (FORCEOUTPUT
141078 . 141325) (\FLUSH.OPEN.STREAMS 141327 . 141683) (CHARSET 141685 . 143349) (ACCESS-CHARSET
143351 . 143568) (GETEOFPTR 143570 . 143820) (GETFILEINFO 143822 . 147015) (\TYPE.FROM.FILETYPE 147017
. 147487) (\FILETYPE.FROM.TYPE 147489 . 147668) (GETFILEPTR 147670 . 147922) (SETFILEINFO 147924 .
151537) (SETFILEPTR 151539 . 153258) (BOUT16 153260 . 153445) (BIN16 153447 . 153636)) (153741 158946
(\GENERIC.BINS 153751 . 154031) (\GENERIC.BOUTS 154033 . 154298) (\GENERIC.RENAMEFILE 154300 . 156131)
(\GENERIC.OPENP 156133 . 157448) (\GENERIC.READP 157450 . 158491) (\GENERIC.CHARSET 158493 . 158944))
(158947 159286 (\MAP-OPEN-STREAMS 158957 . 159284)) (161156 163236 (\EOF.ACTION 161166 . 161417) (
\EOSERROR 161419 . 161612) (\GETEOFPTR 161614 . 161796) (\INCFILEPTR 161798 . 162148) (\PEEKBIN 162150
. 162341) (\SETCLOSEDFILELENGTH 162343 . 162677) (\SETEOFPTR 162679 . 162867) (\SETFILEPTR 162869 .
163234)) (163237 163779 (\FIXPOUT 163247 . 163547) (\FIXPIN 163549 . 163777)) (167445 177309 (
\BUFFERED.BIN 167455 . 168307) (\BUFFERED.PEEKBIN 168309 . 169091) (\BUFFERED.BOUT 169093 . 169953) (
\BUFFERED.BINS 169955 . 173640) (\BUFFERED.BOUTS 173642 . 175443) (\BUFFERED.COPYBYTES 175445 . 177307
)) (177338 179690 (\NULLDEVICE 177348 . 179366) (\NULL.OPENFILE 179368 . 179688)))))
STOP

BIN
sources/FILEIO.LCOM
View File

Binary file not shown.

44
sources/LLREAD
View File

@ -1,12 +1,11 @@
(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
(FILECREATED "27-Jun-2021 23:26:36" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;47 97691
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED "29-Jul-2021 22:16:26" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;50 97706
changes to%: (FNS \PEEKCCODE.NOEOLC \INCCODE.EOLC)
(VARS LLREADCOMS)
changes to%: (VARS CHARACTERSETNAMES)
previous date%: "24-Jun-2021 17:26:28"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;45)
previous date%: "29-Jul-2021 22:14:18"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>LLREAD.;48)
(* ; "
@ -1560,6 +1559,7 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
("LF" 10)))
(RPAQQ CHARACTERSETNAMES ((Meta 1)
(Function 2)
("Greek" 38)
("Cyrillic" 39)
("Hira" 36)
@ -1794,19 +1794,19 @@ Copyright (c) 1981-1988, 1990-1991, 1993, 2021 by Venue & Xerox Corporation.
(PUTPROPS LLREAD COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990
1991 1993 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3513 11730 (LASTC 3523 . 3829) (PEEKC 3831 . 4219) (PEEKCCODE 4221 . 4514) (RATOM 4516
. 5597) (READ 5599 . 6159) (READC 6161 . 6796) (READCCODE 6798 . 7551) (READP 7553 . 8105) (
SETREADMACROFLG 8107 . 8406) (SKIPSEPRCODES 8408 . 9391) (SKIPSEPRS 9393 . 9779) (SKREAD 9781 . 11728)
) (11776 20451 (CL:READ 11786 . 12335) (CL:READ-PRESERVING-WHITESPACE 12337 . 13059) (
CL:READ-DELIMITED-LIST 13061 . 13976) (CL:PARSE-INTEGER 13978 . 20449)) (20544 33483 (RSTRING 20554 .
21286) (READ-EXTENDED-TOKEN 21288 . 25154) (\RSTRING2 25156 . 33481)) (33519 66982 (\TOP-LEVEL-READ
33529 . 35512) (\SUBREAD 35514 . 61005) (\SUBREADCONCAT 61007 . 61630) (\ORIG-READ.SYMBOL 61632 .
62700) (\ORIG-INVALID.SYMBOL 62702 . 63601) (\APPLYREADMACRO 63603 . 64019) (INREADMACROP 64021 .
64587) (\CHECKEOLC.CRLF 64589 . 66980)) (67141 67316 (READQUOTE 67151 . 67314)) (67341 79245 (READVBAR
67351 . 68682) (READHASHMACRO 68684 . 74494) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 74496 . 74716) (
DIGITBASEP 74718 . 75452) (READNUMBERINBASE 75454 . 77340) (ESTIMATE-DIMENSIONALITY 77342 . 77667) (
SKIP.HASH.COMMENT 77669 . 78637) (CMLREAD.FEATURE.PARSER 78639 . 79243)) (79289 85822 (CHARACTER.READ
79299 . 80553) (CHARCODE.DECODE 80555 . 85820)) (90247 95097 (\OUTCHAR 90257 . 90660) (\INCCODE 90662
. 91345) (\BACKCCODE 91347 . 91647) (\PEEKCCODE 91649 . 91965) (\PEEKCCODE.NOEOLC 91967 . 92229) (
\INCHAR 92231 . 92915) (\INCCODE.EOLC 92917 . 93607) (\FORMATBYTESTREAM 93609 . 95095)))))
(FILEMAP (NIL (3485 11702 (LASTC 3495 . 3801) (PEEKC 3803 . 4191) (PEEKCCODE 4193 . 4486) (RATOM 4488
. 5569) (READ 5571 . 6131) (READC 6133 . 6768) (READCCODE 6770 . 7523) (READP 7525 . 8077) (
SETREADMACROFLG 8079 . 8378) (SKIPSEPRCODES 8380 . 9363) (SKIPSEPRS 9365 . 9751) (SKREAD 9753 . 11700)
) (11748 20423 (CL:READ 11758 . 12307) (CL:READ-PRESERVING-WHITESPACE 12309 . 13031) (
CL:READ-DELIMITED-LIST 13033 . 13948) (CL:PARSE-INTEGER 13950 . 20421)) (20516 33455 (RSTRING 20526 .
21258) (READ-EXTENDED-TOKEN 21260 . 25126) (\RSTRING2 25128 . 33453)) (33491 66954 (\TOP-LEVEL-READ
33501 . 35484) (\SUBREAD 35486 . 60977) (\SUBREADCONCAT 60979 . 61602) (\ORIG-READ.SYMBOL 61604 .
62672) (\ORIG-INVALID.SYMBOL 62674 . 63573) (\APPLYREADMACRO 63575 . 63991) (INREADMACROP 63993 .
64559) (\CHECKEOLC.CRLF 64561 . 66952)) (67113 67288 (READQUOTE 67123 . 67286)) (67313 79217 (READVBAR
67323 . 68654) (READHASHMACRO 68656 . 74466) (DEFMACRO-LAMBDA-LIST-KEYWORD-P 74468 . 74688) (
DIGITBASEP 74690 . 75424) (READNUMBERINBASE 75426 . 77312) (ESTIMATE-DIMENSIONALITY 77314 . 77639) (
SKIP.HASH.COMMENT 77641 . 78609) (CMLREAD.FEATURE.PARSER 78611 . 79215)) (79261 85794 (CHARACTER.READ
79271 . 80525) (CHARCODE.DECODE 80527 . 85792)) (90262 95112 (\OUTCHAR 90272 . 90675) (\INCCODE 90677
. 91360) (\BACKCCODE 91362 . 91662) (\PEEKCCODE 91664 . 91980) (\PEEKCCODE.NOEOLC 91982 . 92244) (
\INCHAR 92246 . 92930) (\INCCODE.EOLC 92932 . 93622) (\FORMATBYTESTREAM 93624 . 95110)))))
STOP

BIN
sources/LLREAD.LCOM
View File

Binary file not shown.

1868
sources/MACHINEINDEPENDENT
View File

File diff suppressed because it is too large Load Diff

BIN
sources/MACHINEINDEPENDENT.LCOM
View File

Binary file not shown.

128
sources/MAKEINIT
View File

@ -1,13 +1,15 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "11-Mar-2021 22:14:46" {DSK}<Users>larry>ilisp>medley>SOURCES>MAKEINIT.;2 52570
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10 FORMAT XCCS)
(FILECREATED "19-Jul-2021 23:50:29" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAKEINIT.;4 54410
changes to%: (FNS MAKEINITGREET)
changes to%: (FNS MKI.PASSFILE)
previous date%: " 9-Mar-2021 16:40:20" {DSK}<Users>larry>ilisp>medley>SOURCES>MAKEINIT.;1)
previous date%: "17-Jul-2021 21:29:31"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>MAKEINIT.;3)
(* ; "
Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation. All rights reserved.
Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation.
")
(PRETTYCOMPRINT MAKEINITCOMS)
@ -15,7 +17,7 @@ Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation. Al
(RPAQQ MAKEINITCOMS
((COMS
(* ;;; "From MAKEINITGREET")
(* ;;; "From MAKEINITGREET")
(FNS MAKEINITGREET)
(FILES (SOURCE)
@ -24,11 +26,11 @@ Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation. Al
LLARITH LLFLOAT)
(FILES RENAMEFNS XCL-PACKAGE CMLARRAY-SUPPORT VMEM))
(COMS
(* ;; "From original MAKEINIT")
(* ;; "From original MAKEINIT")
(FNS LOADMAKEINIT LOADMKIFILES RELOAD MAKEINIT MKI.START)
(COMS (* ;
 "reading compiled files and processing well-known expressions")
(COMS (* ;
 "reading compiled files and processing well-known expressions")
(FNS MKI.PASSFILE SCRATCHARRAY DOFORM CONSTFORMP NOTICECOMS EVALFORMAKEINIT)
(FNS I.ADDTOVAR I.DECLARE%: I.DEFINE-FILE-INFO I.FILECREATED I.PUTPROPS I.RPAQ
I.RPAQQ I.RPAQ? I.SETTOPVAL I.NOUNDO)
@ -36,10 +38,10 @@ Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation. Al
RPAQQ LISPXPRINT PRETTYCOMPRINT * SETTOPVAL SETQQ SETQ /SETTOPVAL))
(FNS I.ATOMNUMBER I.\ATOMCELL I.FIXUPNUM I.FIXUPPTR I.FIXUPSYM I.WORDSPERNAMEENTRY
I.SETSTKNTOFFSET)
(COMS (* ; "stuff for MAXC")
(COMS (* ; "stuff for MAXC")
(FNS MKI.ATOM MKI.IEEE))
[COMS (* ;
 "stuff to maintain symbol values, prop lists during makeinit--all dumped at end.")
[COMS (* ;
 "stuff to maintain symbol values, prop lists during makeinit--all dumped at end.")
(FNS MKI.DSET MKI.ADDTO MKI.PUTPROP)
(VARS (MKI.ARRAY)
(MKI.TVHA (HASHARRAY 400))
@ -58,10 +60,10 @@ Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation. Al
(FILES (LOADCOMP)
MEM)))
(COMS
(* ;; "from DLFIXINIT")
(* ;; "from DLFIXINIT")
(* ;; " This file is all because the dandelion needed its microcode embedded in the init file, and MAIKO wasn't around. So this is all to make room for microcode we don't need. Except something(?) might expect the %"InterfacePage%" as page 2 of the file, so we're leaving it in place now")
(* ;; " This file is all because the dandelion needed its microcode embedded in the init file, and MAIKO wasn't around. So this is all to make room for microcode we don't need. Except something(?) might expect the %"InterfacePage%" as page 2 of the file, so we're leaving it in place now")
(FNS DLFIXINIT DLSORTSYSOUTPAGES DLNEXTFP DLLOCKEDPAGEP DLSETLOCKBIT DLCOPYPAGEMAP
DLCOPYVMPAGE DLADDPAGEMAPENTRIES ASSIGNFILEPAGE ASSIGNFILEPAGERANGE DLDUMPSYSOUT
@ -195,8 +197,62 @@ Copyright (c) 1982-1988, 1990-1992, 1998, 2021 by Venue & Xerox Corporation. Al
(DEFINEQ
(MKI.PASSFILE
(LAMBDA (FILESET) (* ; "Edited 30-Mar-87 17:17 by bvm:") (* ;;; "Read a DCOM file and load its contents into the INIT.") (* ;;; "FILESET can be one of a number, which is a LISPSET number, or a list of file names, or a file name") (COND ((NUMBERP FILESET) (* ; "We were given a nLISPSET number. Pack it up to get the list of files") (MKI.PASSFILE (EVALV (PACK* FILESET (QUOTE LISPSET))))) ((LISTP FILESET) (* ; "We were given a list of file names") (MAPC FILESET (FUNCTION MKI.PASSFILE))) (T (* ; "It's a file name. Read it in.") (INPUT (SETQ FILESET (OPENSTREAM (OR (FINDFILE (PACKFILENAME.STRING (QUOTE BODY) FILESET (QUOTE EXTENSION) REMOTECOMPILE.EXT) T) FILESET) (QUOTE INPUT) (QUOTE OLD) 8 MKI.SEQUENTIAL))) (MKI.ADDTO (QUOTE LOADEDFILELST) (LIST (SETQ FILESET (FULLNAME FILESET)))) (PRINT FILESET T T) (LET* ((FILEROOT (NAMEFIELD FILESET)) (COMSNAMES (LIST (PACK* FILEROOT (QUOTE COMS)))) SKIPVARS MEXPRS X) (DECLARE (SPECVARS COMSNAMES SKIPVARS MEXPRS)) (* ; " used by I.RPAQQ and DOFORM") (* ;;; "Loop here reading from the dcom file into the init.") (WITH-READER-ENVIRONMENT *OLD-INTERLISP-READ-ENVIRONMENT* (until (SELECTQ (SETQ X (READ)) ((STOP NIL) (* ; "End of file") T) NIL) do (COND ((NLISTP X) (* ;; "Start of a code object. Skip the code indicator (assume it says to read with DCODERD) and read the code") (IF (NOT (LITATOM (READ))) THEN (ERROR "Bad compiled function" X)) (I.DCODERD X)) (T (* ; "It's a form. go either do it now or add it to the forms to execute inside the init.") (DOFORM X))) finally (COND ((CAR MEXPRS) (* ; "There are expressions to be executed in the INIT when it comes up. Save them.") (MKI.ADDTO (SETQ FILESET (PACK* FILEROOT ".EXPRESSIONS")) (CAR MEXPRS)) (MKI.ADDTO (QUOTE BOOTFILES) (LIST FILESET)))))) (CLOSEF (INPUT))))))
)
[LAMBDA (FILESET) (* ; "Edited 19-Jul-2021 23:50 by rmk:")
(* ;;; "Read a DCOM file and load its contents into the INIT.")
(* ;;;
"FILESET can be one of a number, which is a LISPSET number, or a list of file names, or a file name")
(COND
[(NUMBERP FILESET) (* ;
 "We were given a nLISPSET number. Pack it up to get the list of files")
(MKI.PASSFILE (EVALV (PACK* FILESET 'LISPSET]
((LISTP FILESET) (* ;
 "We were given a list of file names")
(MAPC FILESET (FUNCTION MKI.PASSFILE)))
(T (* ; "It's a file name. Read it in.")
(INPUT (SETQ FILESET (OPENSTREAM (OR (FINDFILE (PACKFILENAME.STRING 'BODY FILESET
'EXTENSION REMOTECOMPILE.EXT)
T)
FILESET)
'INPUT
'OLD 8 MKI.SEQUENTIAL)))
[MKI.ADDTO 'LOADEDFILELST (LIST (SETQ FILESET (FULLNAME FILESET]
(PRINT FILESET T T)
(LET* ((FILEROOT (NAMEFIELD FILESET))
[COMSNAMES (LIST (PACK* FILEROOT 'COMS]
SKIPVARS MEXPRS X)
(DECLARE (SPECVARS COMSNAMES SKIPVARS MEXPRS))
(* ; " used by I.RPAQQ and DOFORM")
(* ;;; "Loop here reading from the dcom file into the init. ")
(* ;; "RMK: Pick off the DEFINE-FILE-INFO first, so we can read the rest of the file. This is done locally, not in the DOFORM. The rest of the file is run in the external format that the reader returns.")
(WITH-READER-ENVIRONMENT (READ-READER-ENVIRONMENT (INPUT)
*OLD-INTERLISP-READ-ENVIRONMENT*)
[until (SELECTQ (SETQ X (READ))
((STOP NIL) (* ; "End of file")
T)
NIL) do (COND
((NLISTP X)
(* ;; "Start of a code object. Skip the code indicator (assume it says to read with DCODERD) and read the code")
(IF (NOT (LITATOM (READ)))
THEN (ERROR "Bad compiled function" X))
(I.DCODERD X))
(T (* ;
 "It's a form. go either do it now or add it to the forms to execute inside the init.")
(DOFORM X)))
finally (COND
((CAR MEXPRS) (* ;
 "There are expressions to be executed in the INIT when it comes up. Save them.")
(MKI.ADDTO (SETQ FILESET (PACK* FILEROOT ".EXPRESSIONS"))
(CAR MEXPRS))
(MKI.ADDTO 'BOOTFILES (LIST FILESET])
(CLOSEF (INPUT])
(SCRATCHARRAY
(LAMBDA (NBYTES ALIGN) (* ; "Edited 30-Mar-87 16:20 by bvm:") (COND ((OR (NULL MKI.ARRAY) (IGREATERP NBYTES (ARRAYSIZE MKI.ARRAY))) (* ;; "make sure the scratch array is big enough. Note that the scratch array is unboxed, not code, since we aren't going to be storing legitimate local code in it (let's not fool the garbage collector too much).") (SETQ MKI.ARRAY (create ARRAYP TYP _ \ST.BYTE BASE _ (\ALLOCBLOCK (FOLDHI NBYTES BYTESPERCELL) UNBOXEDBLOCK.GCT 0 CELLSPERQUAD) LENGTH _ NBYTES ORIG _ 0)))) (for I from 0 to (SUB1 (UNFOLD ALIGN BYTESPERCELL)) do (\BYTESETA MKI.ARRAY I 0)) (* ; "clear the fnheader area") MKI.ARRAY)
@ -997,25 +1053,25 @@ DONTCOPY
(PUTPROPS MAKEINIT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991
1992 1998 2021))
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3943 4690 (MAKEINITGREET 3953 . 4688)) (4873 11258 (LOADMAKEINIT 4883 . 6086) (
LOADMKIFILES 6088 . 6403) (RELOAD 6405 . 6888) (MAKEINIT 6890 . 10550) (MKI.START 10552 . 11256)) (
11336 15237 (MKI.PASSFILE 11346 . 13139) (SCRATCHARRAY 13141 . 13790) (DOFORM 13792 . 14469) (
CONSTFORMP 14471 . 14705) (NOTICECOMS 14707 . 15015) (EVALFORMAKEINIT 15017 . 15235)) (15238 17358 (
I.ADDTOVAR 15248 . 15342) (I.DECLARE%: 15344 . 15620) (I.DEFINE-FILE-INFO 15622 . 15812) (
I.FILECREATED 15814 . 16188) (I.PUTPROPS 16190 . 16303) (I.RPAQ 16305 . 16526) (I.RPAQQ 16528 . 16724)
(I.RPAQ? 16726 . 16941) (I.SETTOPVAL 16943 . 17175) (I.NOUNDO 17177 . 17356)) (17994 23994 (
I.ATOMNUMBER 18004 . 18495) (I.\ATOMCELL 18497 . 20250) (I.FIXUPNUM 20252 . 21069) (I.FIXUPPTR 21071
. 21552) (I.FIXUPSYM 21554 . 22502) (I.WORDSPERNAMEENTRY 22504 . 23259) (I.SETSTKNTOFFSET 23261 .
23992)) (24026 25534 (MKI.ATOM 24036 . 24232) (MKI.IEEE 24234 . 25532)) (25631 26396 (MKI.DSET 25641
. 25924) (MKI.ADDTO 25926 . 26111) (MKI.PUTPROP 26113 . 26394)) (26570 27122 (DUMPVP 26580 . 26677) (
BOUTZEROS 26679 . 26758) (BIN16 26760 . 26941) (BOUT16 26943 . 27120)) (28037 50771 (DLFIXINIT 28047
. 29022) (DLSORTSYSOUTPAGES 29024 . 34150) (DLNEXTFP 34152 . 34489) (DLLOCKEDPAGEP 34491 . 34705) (
DLSETLOCKBIT 34707 . 34969) (DLCOPYPAGEMAP 34971 . 38022) (DLCOPYVMPAGE 38024 . 38414) (
DLADDPAGEMAPENTRIES 38416 . 39231) (ASSIGNFILEPAGE 39233 . 40466) (ASSIGNFILEPAGERANGE 40468 . 40875)
(DLDUMPSYSOUT 40877 . 42629) (DLDUMPFPTOVP 42631 . 43670) (DLDUMPPAGEMAPS 43672 . 44372) (
DLDUMPVMEMPAGES 44374 . 45030) (DLSETBOOTPTR 45032 . 45262) (DLDUMPARRAY 45264 . 45651) (
DLMARKASDUMPED 45653 . 46106) (DLDUMPVMEMPAGE 46108 . 46796) (INSTALLDOMINO 46798 . 47445) (
INSTALLDOMINO.DIRECT 47447 . 48599) (INSTALLNEWDOMINO 48601 . 50769)) (50793 52150 (DLPRINTFPTOVP
50803 . 51092) (PRINTPRIMARYMAP 51094 . 51808) (DLREADPAGEOFWORDS 51810 . 51977) (SETDIF 51979 . 52148
(FILEMAP (NIL (3966 4713 (MAKEINITGREET 3976 . 4711)) (4896 11281 (LOADMAKEINIT 4906 . 6109) (
LOADMKIFILES 6111 . 6426) (RELOAD 6428 . 6911) (MAKEINIT 6913 . 10573) (MKI.START 10575 . 11279)) (
11359 17077 (MKI.PASSFILE 11369 . 14979) (SCRATCHARRAY 14981 . 15630) (DOFORM 15632 . 16309) (
CONSTFORMP 16311 . 16545) (NOTICECOMS 16547 . 16855) (EVALFORMAKEINIT 16857 . 17075)) (17078 19198 (
I.ADDTOVAR 17088 . 17182) (I.DECLARE%: 17184 . 17460) (I.DEFINE-FILE-INFO 17462 . 17652) (
I.FILECREATED 17654 . 18028) (I.PUTPROPS 18030 . 18143) (I.RPAQ 18145 . 18366) (I.RPAQQ 18368 . 18564)
(I.RPAQ? 18566 . 18781) (I.SETTOPVAL 18783 . 19015) (I.NOUNDO 19017 . 19196)) (19834 25834 (
I.ATOMNUMBER 19844 . 20335) (I.\ATOMCELL 20337 . 22090) (I.FIXUPNUM 22092 . 22909) (I.FIXUPPTR 22911
. 23392) (I.FIXUPSYM 23394 . 24342) (I.WORDSPERNAMEENTRY 24344 . 25099) (I.SETSTKNTOFFSET 25101 .
25832)) (25866 27374 (MKI.ATOM 25876 . 26072) (MKI.IEEE 26074 . 27372)) (27471 28236 (MKI.DSET 27481
. 27764) (MKI.ADDTO 27766 . 27951) (MKI.PUTPROP 27953 . 28234)) (28410 28962 (DUMPVP 28420 . 28517) (
BOUTZEROS 28519 . 28598) (BIN16 28600 . 28781) (BOUT16 28783 . 28960)) (29877 52611 (DLFIXINIT 29887
. 30862) (DLSORTSYSOUTPAGES 30864 . 35990) (DLNEXTFP 35992 . 36329) (DLLOCKEDPAGEP 36331 . 36545) (
DLSETLOCKBIT 36547 . 36809) (DLCOPYPAGEMAP 36811 . 39862) (DLCOPYVMPAGE 39864 . 40254) (
DLADDPAGEMAPENTRIES 40256 . 41071) (ASSIGNFILEPAGE 41073 . 42306) (ASSIGNFILEPAGERANGE 42308 . 42715)
(DLDUMPSYSOUT 42717 . 44469) (DLDUMPFPTOVP 44471 . 45510) (DLDUMPPAGEMAPS 45512 . 46212) (
DLDUMPVMEMPAGES 46214 . 46870) (DLSETBOOTPTR 46872 . 47102) (DLDUMPARRAY 47104 . 47491) (
DLMARKASDUMPED 47493 . 47946) (DLDUMPVMEMPAGE 47948 . 48636) (INSTALLDOMINO 48638 . 49285) (
INSTALLDOMINO.DIRECT 49287 . 50439) (INSTALLNEWDOMINO 50441 . 52609)) (52633 53990 (DLPRINTFPTOVP
52643 . 52932) (PRINTPRIMARYMAP 52934 . 53648) (DLREADPAGEOFWORDS 53650 . 53817) (SETDIF 53819 . 53988
)))))
STOP

BIN
sources/MAKEINIT.LCOM
View File

Binary file not shown.

33
sources/PACKAGE-STARTUP
View File

@ -1,11 +1,9 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "28-Jun-2021 13:02:48" 
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;2| 36550
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10 FORMAT XCCS)
(FILECREATED "29-Jul-2021 20:33:07" 
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;7| 36616
|changes| |to:| (FUNCTIONS PACKAGE-ENABLE)
|previous| |date:| "15-Mar-91 17:09:30"
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;1|)
|previous| |date:| "20-Jul-2021 22:53:28"
|{DSK}<Users>kaplan>Local>medley3.5>git-medley>sources>PACKAGE-STARTUP.;6|)
; Copyright (c) 1986-1988, 1990-1991, 2021 by Venue & Xerox Corporation.
@ -571,6 +569,7 @@
(DECLARE (CL:SPECIAL *INTERLISP-PACKAGE* *PACKAGE* *OLD-INTERLISP-READ-ENVIRONMENT*
*PER-EXEC-VARIABLES*))
(|replace| REPACKAGE |of| *OLD-INTERLISP-READ-ENVIRONMENT* |with| *INTERLISP-PACKAGE*)
(|replace| REPACKAGE |of| *DEFINE-FILE-INFO-ENV* |with| *INTERLISP-PACKAGE*)
(COND
((FIND-READTABLE "LISP")
(READTABLEPROP (FIND-READTABLE "LISP")
@ -643,14 +642,14 @@
)
(PUTPROPS PACKAGE-STARTUP COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1991 2021))
(DECLARE\: DONTCOPY
(FILEMAP (NIL (3098 3193 (RETURN-FIRST-OF-THREE 3098 . 3193)) (3195 3333 (
ERROR-MISSING-EXTERNAL-SYMBOL 3195 . 3333)) (3938 4906 (CHECK-SYMBOL-NAMESTRING 3938 . 4906)) (4908
8069 (\\NEW.READ.SYMBOL 4908 . 8069)) (8071 9777 (\\NEW.MKATOM 8071 . 9777)) (23575 23657 (
LITATOM.EXISTS 23575 . 23657)) (24337 25303 (NAMESTRING-CONVERSION-CLAUSE 24337 . 25303)) (25305 26554
(CONVERT-LITATOM 25305 . 26554)) (26556 28625 (CONCOCT-SYMBOL 26556 . 28625)) (28627 28921 (
TRANSFER-SYMBOL 28627 . 28921)) (28923 29631 (INTERN-LITATOM 28923 . 29631)) (29633 30260 (
\\LITATOM.EATCHARS 29633 . 30260)) (30262 30539 (PACKAGE-INIT 30262 . 30539)) (30541 31118 (
PACKAGE-CLEAR 30541 . 31118)) (31120 32515 (PACKAGE-MAKE 31120 . 32515)) (32517 33838 (
PACKAGE-HIERARCHY-INIT 32517 . 33838)) (33840 35303 (PACKAGE-ENABLE 33840 . 35303)) (35305 35948 (
PACKAGE-DISABLE 35305 . 35948)) (35995 36021 (ID 35995 . 36021)))))
(FILEMAP (NIL (3072 3167 (RETURN-FIRST-OF-THREE 3072 . 3167)) (3169 3307 (
ERROR-MISSING-EXTERNAL-SYMBOL 3169 . 3307)) (3912 4880 (CHECK-SYMBOL-NAMESTRING 3912 . 4880)) (4882
8043 (\\NEW.READ.SYMBOL 4882 . 8043)) (8045 9751 (\\NEW.MKATOM 8045 . 9751)) (23549 23631 (
LITATOM.EXISTS 23549 . 23631)) (24311 25277 (NAMESTRING-CONVERSION-CLAUSE 24311 . 25277)) (25279 26528
(CONVERT-LITATOM 25279 . 26528)) (26530 28599 (CONCOCT-SYMBOL 26530 . 28599)) (28601 28895 (
TRANSFER-SYMBOL 28601 . 28895)) (28897 29605 (INTERN-LITATOM 28897 . 29605)) (29607 30234 (
\\LITATOM.EATCHARS 29607 . 30234)) (30236 30513 (PACKAGE-INIT 30236 . 30513)) (30515 31092 (
PACKAGE-CLEAR 30515 . 31092)) (31094 32489 (PACKAGE-MAKE 31094 . 32489)) (32491 33812 (
PACKAGE-HIERARCHY-INIT 32491 . 33812)) (33814 35369 (PACKAGE-ENABLE 33814 . 35369)) (35371 36014 (
PACKAGE-DISABLE 35371 . 36014)) (36061 36087 (ID 36061 . 36087)))))
STOP

BIN
sources/PACKAGE-STARTUP.LCOM
View File

Binary file not shown.