(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "27-Sep-2021 10:25:31" ("compiled on " {DSK}kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;60) "25-Sep-2021 21:32:32" brecompiled changes%: PRINT-READER-ENVIRONMENT READ-READER-ENVIRONMENT in "FULL 25-Sep-2021 ..." dated "25-Sep-2021 21:32:38") (FILECREATED "27-Sep-2021 10:25:31" {DSK}kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;60 47698 changes to%: (FNS PRINT-READER-ENVIRONMENT READ-READER-ENVIRONMENT) previous date%: "17-Aug-2021 00:08:39" {DSK}kaplan>Local>medley3.5>git-medley>sources>BOOTSTRAP.;58) GETPROP :D8 (I 1 PROP I 0 ATM) )@d3@@HHdhAHHXNIL NIL () SETATOMVAL :D8 (I 1 Y I 0 X) @A (6 SETTOPVAL) NIL () RPAQQ :D8 (I 1 Y I 0 X) @A (6 SETTOPVAL) NIL () RPAQ :D8 (I 1 RPAQY I 0 RPAQX) @A (11 SETTOPVAL 6 EVAL) NIL () RPAQ? :D8 (I 1 RPAQY I 0 RPAQX) @ gh@A (27 SETTOPVAL 22 EVAL 5 GETTOPVAL) (10 NOBIND) () MOVD :D8 (P 3 NEWFLG P 2 \INTERRUPTABLE I 3 DONTCOPY I 2 COPYFLG I 1 TO I 0 FROM F 4 FILEPKGFLG) iC)B&@ A IHIHIHAA hAB@ @ C TA AgK A(101 MARKASCHANGED 88 EXPRP 79 PUTD 73 GETD 66 COPY 61 VIRGINFN 47 GETD) (95 FNS) () MOVD? :D8 (I 3 DONTCOPY I 2 COPYFLG I 1 TO I 0 FROM F 0 FILEPKGFLG) >A 5AB@ @ C PA Agi Ah(56 MARKASCHANGED 43 EXPRP 34 PUTD 28 GETD 21 COPY 16 VIRGINFN 5 \DEFINEDP) (50 FNS) () SELECTQ :D8 (I 0 SELCQ) $g@g @ g (33 APPLY 23 SELECTQ1 16 EVAL) (28 SELECTQ 11 SELECTQ 4 PROGN) () SELECTQ1 :D8 (L (1 L 0 M)) !AXbHHXd@@HHNIL NIL () NCONC1 :D8 (I 1 X I 0 LST) @Ah (8 \NCONC2) NIL () PUTPROP :D8 (P 1 X0 P 0 X I 2 VAL I 1 PROP I 0 ATM) R@d3@l@h @H HI@AB@BABhBHdABBYX(16 ERRORX) NIL () PROPNAMES :D8 (I 0 ATM) 0@dIHhZH&JNIL NIL () ADDPROP :D8 (P 1 X0 P 0 X I 3 FLG I 2 NEW I 1 PROP I 0 ATM) y@ lABhd3@l@h @H(HI@ABhb@BABhbhBHdACBHHBh bBYX(108 \NCONC2 26 ERRORX) NIL () REMPROP :D8 (P 2 VAL P 1 X0 P 0 X I 1 PROP I 0 ATM) O@d3@l@h @!HHdJA AiI@HHXHHYX(16 ERRORX) NIL () MEMB :D8 (L (1 Y 0 X)) Ah@AAAbNIL NIL () CLOSEF? :D8 (I 0 FL) @d @ (15 CLOSEF 7 OPENP) NIL () LOADA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 TEM P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 2 LDFLG F 3 PACKAGE F 4 SI::*RESETFORMS* F 5 FILE F 6 PRETTYHEADER F 7 PRINTFLG)  R`*`Rh`i YoR ccS9gUgg` XhhdTcHRWViS S Sc(122 CL:FIND-PACKAGE 108 \LOAD-STREAM 80 OPENSTREAM 44 ERROR 30 FIXSPELL) (130 PACKAGE 114 PACKAGE 75 LOADPARAMETERS 70 OLD 65 INPUT 59 CLOSEF? 24 LOADOPTIONS 16 DWIMFLG 8 LOADOPTIONS) ( 38 "unrecognized load option") LOAD :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 PACKAGE I 2 PRINTFLG I 1 LDFLG I 0 FILE F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 LOADA0001) (8 SI::RESETUNWIND) () \LOAD-STREAMA0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 STREAM F 3 TEM F 4 SI::NLSETQ-VALUE) i@RS R hcg(18 READ 11 SETFILEPTR) (27 :NORMAL) () \LOAD-STREAM :D8 (P 31 *CONDITION-HANDLER-BINDINGS* P 30 SI::*NLSETQFLAG* P 29 *PROCEED-CASES* P 28 SI::NLSETQ-VALUE P 27 *EXTERNALFORMAT* P 26 *PRINT-BASE* P 25 *READ-BASE* P 24 *READTABLE* P 23 *PACKAGE* P 22 MANAGED-FILE-P P 19 FILECREATEDLOC P 18 INTERLISP-P P 17 MAYBEWANTFILEMAP P 16 LOADA P 15 FILECREATEDLST P 14 TEM P 13 ROOTNAME P 12 FNADRLST P 11 FILEMAP P 10 DEFINEDENV P 9 PRLST P 8 LISPXHIST P 7 ADDSPELLFLG P 6 FILEPKGFLG P 5 BUILDMAPFLG P 4 DFNFLG P 3 *READTABLE* P 2 *PACKAGE* P 1 FILE P 0 *STANDARD-INPUT* I 4 PACKAGE I 3 LOAD-VERBOSE-STREAM I 2 PRINTFLG I 1 LDFLG I 0 STREAM F 32 FILEPKGFLG F 33 *PACKAGE* F 34 DFNFLG F 35 BUILDMAPFLG F 36 *OLD-INTERLISP-READ-ENVIRONMENT* F 37 *PROCEED-CASES* F 38 ADDSPELLFLG F 39 LISPXHIST F 40 *CONDITION-HANDLER-BINDINGS*)  @d WB`WDWFW@WLWNW@C+I(C CioC IC C A\gih_]^_O&gO_ gmhhO m@ _dl@ Ii _g'I` I`O,EAg.Od` `Oh O NOg Il(@BCD M@ i_"@WH _D`O DdJ_O_*O*O*O*O*h_(O@ _ g O g z@ _(@ @ gShO( _h OO @ dl)dl]ٿ@ OO _ @O( @ _ gO Ag7IO _d` `Oh O NIiOO O.IOOOhO& `@O( @O Id` QgI` ;O dgO"{@ _(O _3 P`WJioWPO: gO8_d gO_IOhO hd _@O( h_"O ,_ +,_ %OO O@ _(O OBO B O(@ O  @ =dl(dl[1@ _(@ O _ OOO O(@ ڿo I(1038 ERROR 1022 GETFILEPTR 996 READ 987 GETFILEPTR 964 GETFILEPTR 953 TCONC 944 GETFILEPTR 933 PRINT 915 LAPRD 905 GETFILEPTR 895 ADDSPELL 866 SETFILEPTR 855 TCONC 847 PUTFILEMAP 801 \LOAD-STREAMA0002 756 GETFILEPTR 723 /SETTOPVAL 701 MEMB 688 UPDATEFILEMAP 678 SETFILEPTR 662 PUTFILEMAP 640 ADDFILE 626 SMASHFILECOMS 613 \NCONC2 596 MEMB 583 ROOTFILENAME 548 READ 541 SETFILEPTR 527 DEFINE 522 DREVERSE 506 READCCODE 486 SKIPSEPRCODES 479 TCONC 468 TCONC 460 TCONC 444 RATOM 437 READCCODE 428 GETFILEPTR 420 SYNTAXP 407 SYNTAXP 395 SKIPSEPRCODES 334 NCREATE2 317 READ-READER-ENVIRONMENT 304 RANDACCESSP 295 \CML-LOAD 280 ADDFILE 265 SMASHFILECOMS 252 \NCONC2 235 MEMB 195 MEMB 169 ROOTFILENAME 161 FASL:PROCESS-FILE 144 SKIPSEPRCODES 131 LISPXPUT 78 LISPXTERPRI 71 LISPXPRIN1 63 PRIN1 47 LISPXTERPRI 32 FILEPKGCHANGES 6 FULLNAME) (825 FILEMAP 807 :NORMAL 779 SI::NLSETQ-PROCEED-CASE 740 FILECREATED 717 LOADEDFILELST 711 LOADEDFILELST 696 LOADEDFILELST 668 UPDATEMAPFLG 618 SYSFILES 604 SYSFILES 591 SYSFILES 571 SYSLOAD 555 STOP 449 DEFINEQ 415 LEFTBRACKET 402 LEFTPAREN 356 READER-ENVIRONMENT 340 PACKAGE 327 |READER-ENVIRONMENTTYPE#| 275 Compiled 257 SYSFILES 243 SYSFILES 230 SYSFILES 219 SYSLOAD 208 LOADEDFILELST 202 LOADEDFILELST 190 LOADEDFILELST 180 FILEDATES 119 SIDE 107 SIDE 86 SYSLOAD 13 FILERDTBL) ( 1033 "illegal argument in defineq" 788 (CL:ERROR . SI::NLSETQHANDLER) 57 "; Loading ") FILECREATED :D8 (P 1 FILE P 0 FILEDATE I 0 X F 2 LOAD-VERBOSE-STREAM F 3 FILECREATEDLST) b@@S@h cR IdI gHIh hioR @ R HR R (93 LISPXTERPRI 86 LISPXPRIN1 78 LISPXPRIN1 72 FILECREATED1 65 PRIN1 49 /PUT 34 ROOTFILENAME 16 \NCONC2) (39 FILEDATES) ( 59 "; ") FILECREATED1 :D8 (L (0 X) F 0 PRETTYHEADER) @PNIL NIL () PRETTYCOMPRINT :D8 (I 0 X F 0 LOAD-VERBOSE-STREAM) PdioP @P (25 LISPXPRINT 17 PRIN1) NIL ( 11 "; ") BOOTSTRAP-NAMEFIELD :D8 (P 2 END P 1 POS P 0 START I 1 SUFFIXFLG I 0 FILE) uk!g@H g@H g@H YBg@ Yg@H YAIkٺ@HJ kٺ@J l.Jkٺkظ(99 NTHCHARCODE 88 SUBATOM 72 STRPOS 57 STRPOS 43 STRPOS 29 STRPOS 15 STRPOS) (65 %. 51 ; 36 / 22 > 8 }) () PUTPROPS :D8 (P 0 Y I 0 X) @d@HH h(18 PUTPROP) NIL () DECLARE%: :D8 (I 0 X) @i (6 DECLARE%:1) NIL () DECLARE%:1 :D8 (I 1 EVALFLG I 0 X) j@h@d#AV@dgi @ 8dgdgi!dg@ b@ghb@b(81 EVAL 41 EVAL 33 DECLARE%:1) (92 DONTEVAL@LOAD 70 EVAL@LOADWHEN 58 DOEVAL@LOAD 50 EVAL@LOAD 23 DECLARE%:) () ROOTFILENAME :D8 (I 1 COMPFLG I 0 NAME) @@ @Ah (27 U-CASE 22 NAMEFIELD 12 FULLNAME) (5 STREAM) () DEFINE-FILE-INFO :D8 (I 0 ARGS F 0 FILECREATEDLOC) ch@ (18 SET-READER-ENVIRONMENT 13 \DO-DEFINE-FILE-INFO 4 GETFILEPTR) NIL () \DO-DEFINE-FILE-INFO :D8 (P 11 R P 10 TAIL P 6 READTABLEFORM P 5 PACKAGEFORM P 4 VALUE P 3 FORMAT P 2 BASE P 1 READTABLE P 0 PACKAGE I 1 ARGS I 0 STREAM) l  Ad OOdgdg+Ld] XH XoLdgdg*Ld^ YI YoL}dgdg;Ld  OdkOOdl$O  oL Z8dgdgdgL [oO Kg@H`H`_dOI`_dOJl _dOdKdMdN K (359 \EXTERNALFORMAT 261 ERROR 238 FIND-FORMAT 204 ERROR 190 \INVALID.RADIX 160 EVAL 120 FIND-READTABLE 104 EVAL 62 CL:FIND-PACKAGE 46 EVAL) (314 FILERDTBL 297 *INTERLISP-PACKAGE* 288 |READER-ENVIRONMENTTYPE#| 279 :XCCS 243 EXTERNALFORMAT 229 %:FORMAT 221 FORMAT 213 :FORMAT 147 %:BASE 139 :BASE 110 READTABLEP 90 %:READTABLE 82 :READTABLE 52 PACKAGE 32 %:PACKAGE 24 :PACKAGE) ( 253 "Unrecognized file info key" 198 "Bad read base for DEFINE-FILE-INFO reader environment" 130 "Can't find read table for DEFINE-FILE-INFO reader environment" 72 "Can't find package for DEFINE-FILE-INFO reader environment") PRINT-READER-ENVIRONMENT :D8 (P 3 RDTBL P 2 PKG P 1 *PRINT-BASE* P 0 *PACKAGE* I 1 STREAM I 0 ENV F 4 *OLD-INTERLISP-READ-ENVIRONMENT* F 5 *DEFINE-FILE-INFO-ENV*) @T `l "@@@ Z@ @@g [gJ gJhK gKhg@@gg@hh AU A h(197 TERPRI 191 PRINT 176 CL:APPEND 92 READTABLEPROP 53 CL:PACKAGE-NAME 6 EQUAL-READER-ENVIRONMENT) (184 READER-ENVIRONMENT 162 READER-ENVIRONMENT 156 :FORMAT 148 :XCCS 141 READER-ENVIRONMENT 133 READER-ENVIRONMENT 127 :BASE 118 :READTABLE 106 :PACKAGE 98 DEFINE-FILE-INFO 87 NAME 80 READER-ENVIRONMENT 70 READER-ENVIRONMENT 60 READER-ENVIRONMENT 46 READER-ENVIRONMENT 36 READER-ENVIRONMENT 26 READER-ENVIRONMENT 15 *INTERLISP-PACKAGE*) () READ-READER-ENVIRONMENT :D8 (P 8 *PRINT-BASE* P 7 *READ-BASE* P 6 *READTABLE* P 5 *PACKAGE* P 3 ARGS P 2 *READTABLE* P 1 ENV P 0 START I 2 RETURNFORM I 1 DEFAULTENV I 0 STREAM F 9 *OLD-INTERLISP-READ-ENVIRONMENT* F 10 *COMMON-LISP-READ-ENVIRONMENT* F 11 *DEFINE-FILE-INFO-ENV*) AWb@ AW#@ dl;@W Wl(j@W @ W\LLLo@ @l)@ [ Y@H BKIgK$IA(145 SETFILEPTR 136 \DO-DEFINE-FILE-INFO 130 CL:READ-DELIMITED-LIST 119 STREQUAL 114 RSTRING 81 READCCODE 75 \EXTERNALFORMAT 52 \EXTERNALFORMAT 31 SKIPSEPRCODES 12 GETFILEPTR) (156 DEFINE-FILE-INFO 88 READER-ENVIRONMENT 68 READER-ENVIRONMENT 45 READER-ENVIRONMENT 20 READER-ENVIRONMENT) ( 108 "DEFINE-FILE-INFO") MAKE-DEFINE-FILE-INFO-ENV :D8 (P 0 RTBL F 1 *OLD-INTERLISP-READ-ENVIRONMENT*) /Q l:gH `Q dH(39 NCREATE2 28 SETSYNTAX 12 COPYREADTABLE) (33 |READER-ENVIRONMENTTYPE#| 22 PACKAGEDELIM 5 READER-ENVIRONMENT) () (PRETTYCOMPRINT BOOTSTRAPCOMS) (RPAQQ BOOTSTRAPCOMS ((COMS (* ; "Some basic fns. Note that several are redefined later. E.g., RPAQQ et al real definitions are on UNDO" ) (FNS GETPROP SETATOMVAL RPAQQ RPAQ RPAQ? MOVD MOVD? SELECTQ SELECTQ1 NCONC1 PUTPROP PROPNAMES ADDPROP REMPROP MEMB CLOSEF?)) (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)) (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) (DWIMFLG) (UPDATEMAPFLG) (DFNFLG) (ADDSPELLFLG) (BUILDMAPFLG) (FILEPKGFLG) ( SYSFILES) (NOTCOMPILEDFILES) (RESETVARSLST) (LOADPARAMETERS (QUOTE ((SEQUENTIAL T)))) (LISPXHIST) ( LISPXPRINTFLG T) (PRETTYHEADER "File created ") (LOAD-VERBOSE-STREAM T) (BELLS (QUOTE "")) ( LOADOPTIONS (QUOTE (SYSLOAD NIL T PROP ALLPROP))) (PRETTYDEFMACROS NIL) (PRETTYTYPELST NIL) ( FILEPKGTYPES NIL)) (ADDVARS (LOADEDFILELST)) (GLOBALVARS DWIMFLG UPDATEMAPFLG LOADOPTIONS LOADPARAMETERS FILERDTBL SYSFILES) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (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)))) (P (RADIX 10))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (* ; "eventually imported from FASL") (CONSTANTS FASL:SIGNATURE)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA DEFINE-FILE-INFO DECLARE%: PUTPROPS FILECREATED SELECTQ) (NLAML PRETTYCOMPRINT RPAQ? RPAQ RPAQQ) (LAMA))))) (RPAQ? *DEFINE-FILE-INFO-ENV* (MAKE-DEFINE-FILE-INFO-ENV)) (RPAQ? EOLCHARCODE (CHCON1 " ")) (RPAQ? PRETTYHEADER) (RPAQ? DWIMFLG) (RPAQ? UPDATEMAPFLG) (RPAQ? DFNFLG) (RPAQ? ADDSPELLFLG) (RPAQ? BUILDMAPFLG) (RPAQ? FILEPKGFLG) (RPAQ? SYSFILES) (RPAQ? NOTCOMPILEDFILES) (RPAQ? RESETVARSLST) (RPAQ? LOADPARAMETERS (QUOTE ((SEQUENTIAL T)))) (RPAQ? LISPXHIST) (RPAQ? LISPXPRINTFLG T) (RPAQ? PRETTYHEADER "File created ") (RPAQ? LOAD-VERBOSE-STREAM T) (RPAQ? BELLS (QUOTE "")) (RPAQ? LOADOPTIONS (QUOTE (SYSLOAD NIL T PROP ALLPROP))) (RPAQ? PRETTYDEFMACROS NIL) (RPAQ? PRETTYTYPELST NIL) (RPAQ? FILEPKGTYPES NIL) (ADDTOVAR LOADEDFILELST) (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) (PUTPROPS BOOTSTRAP COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1992 2021)) NIL