(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Nov-93 01:12:35" ("compiled on " {DSK}export>lispcore>sources>CLTL2>MAKEINIT.;1 ) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "12-Oct-93 22:22:00" "{Pele:mv:envos}Sources>CLTL2>MAKEINIT.;1" 26075 changes to%: (FNS I.\ATOMCELL) previous date%: "22-Sep-92 19:17:22" {DSK}usr>users>sybalsky>cltl2>sources>MAKEINIT.;1) LOADMAKEINIT :D8 (I 0 LARGEFLG) h(4 LOADMKIFILES) NIL () LOADMKIFILES :D8 (P 0 X F 1 MAKEINITFILES) 0Qh #dgHg` h(39 RELOAD 34 PACKFILENAME 6 UNION) (29 COMPILE.EXT 24 EXTENSION 18 BODY) () RELOAD :D8 (P 1 FULLFILENAME P 0 DATE I 0 FILE) u @g `@i $@ g 7@oi hYg XIi @gH i@o (112 ERROR 99 PUTPROP 86 LOAD 74 GETFILEINFO 61 PRINT 46 GETP 36 COMSNAME 27 FINDFILE 13 GETPROP) (93 LOADDATE 69 ICREATIONDATE 41 FILEDATES 20 MIN.INTEGER 8 LOADDATE) ( 107 "not found." 54 (already loaded)) MAKEINITA0001A0002 :D8 (I 0 FL F 0 RESETSTATE) @ @ P @ (27 DELFILE 22 FULLNAME 12 CLOSEF 5 OPENP) NIL () MAKEINITA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 1 X P 0 OUTX I 0 SI::*CLEANUP-FORMS* F 2 TOFILE F 3 SI::*RESETFORMS* F 4 LOADUPDIRS F 5 FONTDIRS F 6 AFTERINITFILESET F 7 TYPELST F 8 INIT.EXT F 9 VERSIONS F 10 DIRECTORIES F 11 FILES)  ggR WggW gglo c hhScgRhhdScRTcWdI TgT UgU V9gggV hoh go W h(214 I.MAKEINITLAST 206 MKI.ADDTO 190 MKI.ADDTO 173 EVAL 148 MKI.DSET 134 MKI.DSET 116 MKI.PASSFILE 102 MKI.START 64 OUTPUT 57 OPENSTREAM 34 PACKFILENAME.STRING) (196 BOOTFILES 167 QUOTE 162 MAPC 157 MAKEINIT.EXPRESSIONS 142 DISPLAYFONTDIRECTORIES 128 LOADUPDIRECTORIES 78 MAKEINITA0001A0002 44 NEW 39 OUTPUT 27 EXTENSION 22 XXX 9 BODY 4 OUTPUT) ( 201 (MAKEINIT.EXPRESSIONS) 181 ((FUNCTION (LAMBDA (FILE) (OR (SOME LOADUPDIRECTORIES (FUNCTION (LAMBDA (DIR FL) (COND ((SETQ FL (INFILEP (PACKFILENAME.STRING (QUOTE DIRECTORY) DIR (QUOTE NAME) FILE (QUOTE EXTENSION) COMPILE.EXT))) (LOAD FL (QUOTE SYSLOAD)) T))))) (PRINT (CONS FILE (QUOTE (not found))) T))))) 51 ((TYPE BINARY))) MAKEINIT :D8 (P 7 RESETSTATE P 6 SI::*RESETFORMS* P 5 LISPXHIST P 4 EXPRESSIONS P 3 AFTERINITFILESET P 2 SIZEGUESS P 1 FILES P 0 TYPELST I 4 FONTDIRS I 3 LOADUPDIRS I 2 TOFILE I 1 TYPE I 0 VERSIONS F 8 MAKEINITTYPES F 9 LISPXHIST) SAdW Ag AHYH[HZW!g $B (80 FULLNAME 69 SI::RESETUNWIND 64 \MVLIST 59 MAKEINITA0001 26 ERROR 4 LOADMKIFILES) (54 SI::RESETUNWIND 21 ?) () MKI.START :D8 (P 7 X P 5 Y P 4 X F 9 RESETPTR F 10 RESETPC F 11 MKI.PTRS F 12 MKI.FirstDataByte F 13 MKI.TVHA F 14 MKI.PLHA F 15 MKI.ATOMARRAY F 16 MKI.DATE F 17 INITVALUES F 18 MKI.VALUES F 19 INITPTRS F 20 INITCONSTANTS) / hcdcW W W W W"QHEIc$W&QHrIchd id gW h W(!NthoLlm ]L MJ KhZHXK&oLlm ]L MJ KhZHX_K&_dg9Od$O_jOdd h N^C(294 I.FSETVAL 289 I.\COPY 278 \FZEROP 204 SET 195 PACK* 190 SUBSTRING 151 SET 146 EVAL 137 PACK* 132 SUBSTRING 103 MKI.DSET 95 DATE 83 MKI.DSET 76 MKI.DSET 69 I.MAKEINITFIRST 38 RESETMEMORY 33 CLRHASH 26 CLRHASH 19 CLRHASH 12 BOUTZEROS) (236 * 88 MAKEINITDATES) ( 179 "I." 121 "I.") MKI.PASSFILE :D8 (P 9 *PRINT-BASE* P 8 *READ-BASE* P 7 *READTABLE* P 6 *PACKAGE* P 5 X P 4 MEXPRS P 3 SKIPVARS P 2 COMSNAMES P 0 FILEROOT I 0 FILESET F 10 REMOTECOMPILE.EXT F 11 MKI.SEQUENTIAL F 12 *OLD-INTERLISP-READ-ENVIRONMENT*)  @3@g b@g@gW i @gglW b g@ bh @id @ Hg h1WYIII ]gMCL%Ho bL g@h  d h!d3@oM M M (282 DOFORM 273 I.DCODERD 266 ERROR 250 READ 235 MKI.PASSFILE 227 CLOSEF 222 INPUT 215 MKI.ADDTO 201 MKI.ADDTO 192 PACK* 166 READ 134 PACK* 120 COMSNAME 114 PRINT 106 MKI.ADDTO 97 FULLNAME 86 INPUT 79 OPENSTREAM 56 FINDFILE 50 PACKFILENAME.STRING 20 \EVALV1 15 PACK*) (207 BOOTFILES 172 STOP 146 READER-ENVIRONMENT 129 COMS 91 LOADEDFILELST 69 OLD 64 INPUT 43 EXTENSION 37 BODY 10 LISPSET) ( 260 "Bad compiled function" 187 ".EXPRESSIONS") SCRATCHARRAY :D8 (P 2 I I 1 ALIGN I 0 NBYTES F 3 MKI.ARRAY) S@S Lldj@ljdl HdIHd@ Hlk@ djcAkjJI"SSl JjǿJkZS(120 \GETBASEFIXP 72 \LONUM 56 \HINUM 35 \ALLOCBLOCK 8 ARRAYSIZE) (113 ARRAYP 105 ARRAYP) () DOFORM :D8 (P 0 FN I 1 NOPROP I 0 X F 1 MEXPRS F 2 PRINTEXPRS) /@g HA@kHR@id Q@ c(42 TCONC 34 PRINT 11 GETPROP) (6 MKI) () CONSTFORMP :D8 (I 0 X F 1 MKI.TVHA) R@ddgdg;@d3@@doii@Q dHddi3 gHh(51 GETHASH) (75 QUOTE 19 FUNCTION 11 QUOTE) ( 38 (QUOTE NIL)) NOTICECOMS :D8 (P 1 X I 0 VAL F 2 COMSNAMES F 3 SKIPVARS) b@HhYMg(Id3@IdgRc%ScIdgdgI HX(90 NOTICECOMS) (80 DECLARE%: 72 COMS 44 COMS 23 *) () EVALFORMAKEINIT :D8 (I 0 FORM) -@d#g@ @ 3 @(36 HELP 30 MKATOM 21 STRINGP) (10 MKATOM) () I.ADDTOVAR :D8 (I 0 FORM) @@ (10 MKI.ADDTO) NIL () I.DECLARE%: :D8 (P 3 FN P 2 X P 1 FLAG P 0 L I 0 FORM) ;@i"HXdZd#gJdgigh (54 DOFORM) (42 DONTEVAL@LOAD 30 DOEVAL@LOAD 21 EVAL@LOAD) () I.DEFINE-FILE-INFO :D8 (I 0 FORM) h@ (12 SET-READER-ENVIRONMENT 7 \DO-DEFINE-FILE-INFO) NIL () I.FILECREATED :D8 (P 0 NAME I 0 X) 9@1@ gHh Hg@@h h(52 MKI.PUTPROP 31 MKI.ADDTO 15 COMSNAME) (37 FILEDATES 23 BOOTLOADEDFILES) () I.PUTPROPS :D8 (I 0 FORM) @@@ (16 MKI.PUTPROP) NIL () I.RPAQ :D8 (P 1 V P 0 VAL I 0 FORM) J@!H Y@I *g@Zddi3 gJhHhi h(70 DOFORM 28 MKI.DSET 23 EVAL 12 CONSTFORMP) (55 QUOTE 35 SETTOPVAL) () I.RPAQQ :D8 (P 1 VAL P 0 ATM I 0 FORM F 2 COMSNAMES F 3 SKIPVARS) $@@HdRI SHI h(32 MKI.DSET 21 NOTICECOMS) NIL () I.RPAQ? :D8 (P 1 V P 0 VAL I 0 FORM) I@!H Y@I )g@Zddi3 gJhHh h(69 DOFORM 28 MKI.DSET 23 EVAL 12 CONSTFORMP) (55 QUOTE 35 SETTOPVAL) () I.SETTOPVAL :D8 (P 0 V I 0 FORM) 7@dg X@H @i h(51 DOFORM 43 MKI.DSET 38 EVAL 24 CONSTFORMP) (13 QUOTE) () I.NOUNDO :D8 (I 0 FORM) +@k g@lm @ (40 SHOULDNT 34 DOFORM 26 SUBATOM 7 NTHCHAR) (12 /) () I.ATOMNUMBER :D8 (I 0 A) @d3@@ @`n(11 MKI.ATOM) (20 PTRNIL) () I.\ATOMCELL :D8 (P 3 OFFSET P 2 LOC P 0 ATOMNO I 1 N I 0 X) @ HjUAdl ll lAdllljojYjIdd h`Jl HAdl ll lAdllljH`K(138 SHOULDNT 80 \FZEROP 55 SHOULDNT 5 I.ATOMNUMBER) (149 PTRNIL 90 PTRNIL) ( 63 524288) I.FIXUPNUM :D8 (I 3 MASK I 2 NUM I 1 BN I 0 CA F 3 COMPILER::*TARGET-ARCHITECTURE*) gS@AB @Ak@AkHHl ICnBClHHl IJ@ABlHHl IJ(126 \GETBASEFIXP 91 \GETBASEFIXP 48 \GETBASEFIXP 15 I.FIXUPPTR) (119 ARRAYP 111 ARRAYP 84 ARRAYP 76 ARRAYP 41 ARRAYP 33 ARRAYP 4 :3-BYTE) () I.FIXUPPTR :D8 (P 0 LOLOC I 2 PTR I 1 BN I 0 CA) B`n!@AkHKKl LM@AHlKKl LM@Al@AlٺYIl JB`KKl LMh(154 \GETBASEFIXP 116 \GETBASEFIXP 79 \GETBASEFIXP 44 \GETBASEFIXP) (147 ARRAYP 139 ARRAYP 127 PTRNIL 109 ARRAYP 101 ARRAYP 72 ARRAYP 64 ARRAYP 37 ARRAYP 29 ARRAYP 7 PTRNIL) () I.FIXUPSYM :D8 (I 3 MASK I 2 NUM I 1 BN I 0 CA F 3 COMPILER::*TARGET-ARCHITECTURE*) gS@AB @Ak@AkHHl ICnB ClHHl IJ@AB lHHl IJ(141 \GETBASEFIXP 114 I.ATOMNUMBER 101 \GETBASEFIXP 70 I.ATOMNUMBER 53 \GETBASEFIXP 20 I.FIXUPPTR 15 I.ATOMNUMBER) (134 ARRAYP 126 ARRAYP 94 ARRAYP 86 ARRAYP 46 ARRAYP 38 ARRAYP 4 :3-BYTE) () I.WORDSPERNAMEENTRY :D8 (F 0 COMPILER::*TARGET-ARCHITECTURE*) gPlgPkNIL (15 :3-BYTE-INIT 4 :3-BYTE) () I.SETSTKNTOFFSET :D8 (I 3 VAL I 2 TYPE I 1 OFFSET I 0 BASE F 0 COMPILER::*TARGET-ARCHITECTURE*) 2gP@AlB @AC gP@ABC (47 I.FIXUPNUM 27 I.FIXUPNUM 19 I.FIXUPNUM) (33 :3-BYTE-INIT 4 :3-BYTE) () MKI.ATOM :D8 (I 0 X F 0 MKI.ATOMARRAY F 1 PTRNOBIND) &@d"P @ddgQ P (35 PUTHASH 29 I.COPYATOM 9 GETHASH) (19 NOBIND) () MKI.IEEE :D8 (P 3 MAGNITUDE P 2 FRAC P 1 EXP P 0 SIGN I 1 BOX I 0 X) jddj@nj@ ي@ [joKd cKoj@obKlYjo@ jX.KolKlKlljkZoJIkعAjHIJl AkJn h(190 I.PUTBASE 177 I.PUTBASE 103 ERROR 54 \FZEROP 39 OPENR 34 LOC 26 OPENR 21 LOC) NIL ( 144 16777215 117 16777215 97 "Unrepresentable floating-point number" 72 0.0 62 67108864) MKI.DSET :D8 (P 0 LST I 1 VAL I 0 A F 1 MKI.TVHA) 3@Q HAHo@HA HdA@hAQ (48 PUTHASH 31 EXEC-FORMAT 6 GETHASH) NIL ( 22 "(Value of ~S changed from ~S to ~S)~%%") MKI.ADDTO :D8 (P 0 LST I 1 VAL I 0 A F 1 MKI.TVHA) %@Q H@hAQ hAH (32 UNION 22 PUTHASH 6 GETHASH) NIL () MKI.PUTPROP :D8 (P 0 LST I 2 VAL I 1 PROP I 0 A F 1 MKI.PLHA) 4@Q H@ABhQ A'o@A HAB (49 LISTPUT 40 EXEC-FORMAT 24 PUTHASH 6 GETHASH) NIL ( 33 "(Property ~S of ~S has been changed)~%%") DUMPVP :D8 (I 0 VP F 0 OUTX) gi P@ (17 WriteoutPage 10 PRIN1) (4 *) () BOUTZEROS :D8 (I 0 N F 2 OUTX) @HjRj HkXI(14 \BOUT) NIL () BIN16 :D8 (I 0 J) @ @ NIL NIL () BOUT16 :D8 (I 1 N I 0 J) @A @Al (17 \BOUT 7 \BOUT) NIL () (PRETTYCOMPRINT MAKEINITCOMS) (RPAQQ MAKEINITCOMS ((FNS LOADMAKEINIT LOADMKIFILES RELOAD MAKEINIT MKI.START) (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) (PROP MKI ADDTOVAR DECLARE%: DEFINE-FILE-INFO FILECREATED PUTPROPS RPAQ RPAQ? 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") (FNS MKI.ATOM MKI.IEEE)) (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)) (MKI.PLHA (HASHARRAY 150)) ( MKI.ATOMARRAY (HASHARRAY 5000)) (INIT.EXT (QUOTE SYSOUT)))) (COMS (FNS DUMPVP BOUTZEROS BIN16 BOUT16) (VARS (MKI.FirstDataByte 1024) (MKI.Page0Byte 512) (MKI.DATE (DATE)) MKI.CODESTARTOFFSET MKI.SEQUENTIAL PRINTEXPRS)) (INITVARS (PRINTEXPRS T) (REMOTECOMPILE.EXT COMPILE.EXT)) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (PUTPROP (COMSNAME (INPUT) T) (QUOTE LOADDATE) (GETFILEINFO (INPUT) (QUOTE ICREATIONDATE))))) (DECLARE%: EVAL@COMPILE (PROP MACRO SETXVAR IEQ) DONTCOPY (FILES (LOADCOMP) MEM)))) (PUTPROPS ADDTOVAR MKI I.ADDTOVAR) (PUTPROPS DECLARE%: MKI I.DECLARE%:) (PUTPROPS DEFINE-FILE-INFO MKI I.DEFINE-FILE-INFO) (PUTPROPS FILECREATED MKI I.FILECREATED) (PUTPROPS PUTPROPS MKI I.PUTPROPS) (PUTPROPS RPAQ MKI I.RPAQ) (PUTPROPS RPAQ? MKI I.RPAQ?) (PUTPROPS RPAQQ MKI I.RPAQQ) (PUTPROPS LISPXPRINT MKI NILL) (PUTPROPS PRETTYCOMPRINT MKI NILL) (PUTPROPS * MKI NILL) (PUTPROPS SETTOPVAL MKI I.SETTOPVAL) (PUTPROPS SETQQ MKI I.RPAQQ) (PUTPROPS SETQ MKI I.RPAQ) (PUTPROPS /SETTOPVAL MKI I.NOUNDO) (RPAQQ MKI.ARRAY NIL) (RPAQ MKI.TVHA (HASHARRAY 400)) (RPAQ MKI.PLHA (HASHARRAY 150)) (RPAQ MKI.ATOMARRAY (HASHARRAY 5000)) (RPAQQ INIT.EXT SYSOUT) (RPAQQ MKI.FirstDataByte 1024) (RPAQQ MKI.Page0Byte 512) (RPAQ MKI.DATE (DATE)) (RPAQQ MKI.CODESTARTOFFSET 60) (RPAQQ MKI.SEQUENTIAL ((SEQUENTIAL T))) (RPAQQ PRINTEXPRS T) (RPAQ? PRINTEXPRS T) (RPAQ? REMOTECOMPILE.EXT COMPILE.EXT) (PUTPROP (COMSNAME (INPUT) T) (QUOTE LOADDATE) (GETFILEINFO (INPUT) (QUOTE ICREATIONDATE))) (PUTPROPS SETXVAR MACRO (X (BQUOTE (SETQ.NOREF %, (CADAR X) %, (CADR X))))) (PUTPROPS IEQ MACRO ((X Y) (IEQP X Y))) (PUTPROPS MAKEINIT COPYRIGHT ("Venue & Xerox Corporation" 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1993)) NIL