(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "22-Nov-93 15:34:22" ("compiled on " {DSK}export>lispcore>sources>CLTL2>BOOTSTRAP.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED "12-Oct-93 15:20:15" "{Pele:mv:envos}Sources>CLTL2>BOOTSTRAP.;1" 41500 changes to%: (VARS BOOTSTRAPCOMS) (FNS \LOAD-STREAM) previous date%: " 2-Nov-92 04:15:40" "{Pele:mv:envos}Sources>BOOTSTRAP.;4") 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-STREAMA0001 :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 30 *CONDITION-HANDLER-BINDINGS* P 29 SI::*NLSETQFLAG* P 28 *PROCEED-CASES* P 27 SI::NLSETQ-VALUE 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 FILECREATEDENV 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 31 FILEPKGFLG F 32 *PACKAGE* F 33 DFNFLG F 34 BUILDMAPFLG F 35 *OLD-INTERLISP-READ-ENVIRONMENT* F 36 *PROCEED-CASES* F 37 ADDSPELLFLG F 38 LISPXHIST F 39 *CONDITION-HANDLER-BINDINGS*) ` @d W@`WBWDW>WJWLW>WFC+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_"O_*O*O*O*h_(O@ _ g O g z@ _(@ @ gShO( _h OO @ dl)dl]L@ O/O _ @O( @ _ gO Ag7IO _d` `Oh O NIiOO O.IOOOhO& `@O( @O Id` ĿgI` O dgl@ _&hO  __ DOO. ooO. O._.OgO. gO"{@ _(O _3 P`WHioWNO8 gO6_d gO_IOhO hd _@O( h_"O ,_ -O ,_ %OO O@ _(O OBrO B fO(@ O  @ dl(dl[1@ _(@ O _ OOO O(@ go I(1116 ERROR 1100 GETFILEPTR 1074 READ 1065 GETFILEPTR 1042 GETFILEPTR 1031 TCONC 1022 GETFILEPTR 1011 PRINT 993 LAPRD 983 GETFILEPTR 973 ADDSPELL 942 SETFILEPTR 931 TCONC 923 PUTFILEMAP 877 \LOAD-STREAMA0001 832 GETFILEPTR 808 LISTPUT 803 CL:PACKAGE-NAME 773 CL:CERROR 754 CL:FIND-PACKAGE 734 SET-READER-ENVIRONMENT 725 \DO-DEFINE-FILE-INFO 713 GETFILEPTR 686 /SETTOPVAL 664 MEMB 651 UPDATEFILEMAP 641 SETFILEPTR 625 PUTFILEMAP 603 ADDFILE 589 SMASHFILECOMS 576 \NCONC2 559 MEMB 546 ROOTFILENAME 511 READ 504 SETFILEPTR 490 DEFINE 485 DREVERSE 469 READCCODE 449 SKIPSEPRCODES 442 TCONC 431 TCONC 423 TCONC 407 RATOM 400 READCCODE 391 GETFILEPTR 383 SYNTAXP 370 SYNTAXP 358 SKIPSEPRCODES 311 RANDACCESSP 302 \CML-LOAD 297 CL::DEFAULT-IO-PACKAGE 282 ADDFILE 267 SMASHFILECOMS 254 \NCONC2 237 MEMB 197 MEMB 171 ROOTFILENAME 163 FASL:PROCESS-FILE 146 SKIPSEPRCODES 133 LISPXPUT 80 LISPXTERPRI 73 LISPXPRIN1 65 PRIN1 49 LISPXTERPRI 32 FILEPKGCHANGES 6 FULLNAME) (901 FILEMAP 883 :NORMAL 855 SI::NLSETQ-PROCEED-CASE 817 FILECREATED 796 :PACKAGE 789 READER-ENVIRONMENT 747 READER-ENVIRONMENT 703 DEFINE-FILE-INFO 680 LOADEDFILELST 674 LOADEDFILELST 659 LOADEDFILELST 631 UPDATEMAPFLG 581 SYSFILES 567 SYSFILES 554 SYSFILES 534 SYSLOAD 518 STOP 412 DEFINEQ 378 LEFTBRACKET 365 LEFTPAREN 323 READER-ENVIRONMENT 277 Compiled 259 SYSFILES 245 SYSFILES 232 SYSFILES 221 SYSLOAD 210 LOADEDFILELST 204 LOADEDFILELST 192 LOADEDFILELST 182 FILEDATES 121 SIDE 109 SIDE 88 SYSLOAD 13 FILERDTBL) ( 1111 "illegal argument in defineq" 864 (CL:ERROR . SI::NLSETQHANDLER) 766 "~s does not name a package" 761 "Use current *PACKAGE*" 59 "; 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 9 R P 8 P P 7 TAIL P 3 VALUE P 2 BASE P 1 READTABLE P 0 PACKAGE I 1 ARGS I 0 STREAM)  pAdOOdg9Kd OOO  oK X|dg'Kd  oK YNg9Kd  OdkOOdl$O  oK ZoO 3`H`dLI`dMJl dNdA(204 ERROR 189 ERROR 175 \INVALID.RADIX 145 EVAL 125 ERROR 112 FIND-READTABLE 101 EVAL 79 ERROR 66 CL:FIND-PACKAGE 59 CL:FIND-PACKAGE 38 EVAL) (242 FILERDTBL 228 *INTERLISP-PACKAGE* 219 |READER-ENVIRONMENTTYPE#| 133 :BASE 106 READTABLEP 88 :READTABLE 48 PACKAGE 24 :PACKAGE) ( 196 "Unrecognized file info key" 183 "Bad read base for reader environment" 119 "Can't find read table for reader environment" 73 "Can't find package for 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 DEFINE-FILE-INFO \DO-DEFINE-FILE-INFO)) (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) (BOOTSTRAP-NAMEFIELD . COMSNAME) (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? 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) (BOOTSTRAP-NAMEFIELD . COMSNAME) (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 1993)) NIL