(FILECREATED "31-Aug-86 17:18:48" ("compiled on " {ERIS}BVM>MAKEINIT.;1) "29-Aug-86 22:21:56" recompiled changes: MKI.PASSFILE DOFORM I.DEFINE-FILE-INFO in "Xerox Lisp 29-Aug-86 ..." dated "29-Aug-86 22:55:03") (FILECREATED "31-Aug-86 17:18:06" {ERIS}BVM>MAKEINIT.;1 31150 changes to: (VARS MAKEINITCOMS ) (PROPS (DEFINE-FILE-INFO MKI)) (FNS MKI.PASSFILE DOFORM I.DEFINE-FILE-INFO) previous date: "27-Aug-86 22:19:18" {ERIS}SOURCES>MAKEINIT.;16) I.RPAQ? D1 (P 1 V P 0 VAL I 0 FORM) F@!H Y@I ,g@Zddidd gJhHh h(102Q DOFORM 26Q MKI.DSET 23Q EVAL 12Q CONSTFORMP) (66Q QUOTE 33Q SETTOPVAL) () LOADMAKEINIT D1 (I 0 LARGEFLG) h(2 LOADMKIFILES) NIL () LOADMKIFILES D1 (P 0 X F 1 MAKEINITFILES F 2 COMPILE.EXT) !Q dgHgR h(30Q RELOAD 25Q PACKFILENAME 3 UNION) (21Q EXTENSION 15Q BODY) () RELOAD D1 (P 1 FULLFILENAME P 0 DATE I 0 FILE) S @go@i @ g)@oi hYg XIi @gH i@o (116Q ERROR 104Q PUTPROP 73Q LOAD 62Q GETFILEINFO 51Q PRINT 31Q NAMEFIELD 22Q FINDFILE) (100Q LOADDATE 57Q ICREATIONDATE 34Q FILEDATES 6 LOADDATE) ( 113Q "not found." 44Q (already loaded) 15Q -20000000000Q) MAKEINITA0001A0002 D1 (I 0 FL F 0 RESETSTATE) @ @ P@ (20Q DELFILE 10Q CLOSEF 3 OPENP) NIL () MAKEINITA0001 D1 (NAME ERRORSET P 1 X P 0 OUTX F 2 TOFILE F 3 RESETVARSLST F 4 LOADUPDIRS F 5 AFTERINITFILESET F 6 TYPELST F 7 INIT.EXT F 10Q FILES F 11Q RESETY F 12Q VERSIONS)  ggR VggW gglo c hhScgRhhhScRg WdI TgT U)gggU hoh go W hci(236Q I.MAKEINITLAST 230Q MKI.ADDTO 215Q MKI.ADDTO 177Q EVAL 156Q MKI.DSET 140Q MKI.PASSFILE 123Q MKI.START 115Q GETSTREAM 54Q OUTPUT 47Q OPENFILE 27Q PACKFILENAME) (221Q BOOTFILES 173Q QUOTE 170Q MAPC 165Q MAKEINIT.EXPRESSIONS 152Q LOADUPDIRECTORIES 112Q OUTPUT 71Q MAKEINITA0001A0002 35Q NEW 32Q OUTPUT 22Q EXTENSION 17Q XXX 5 BODY 2 OUTPUT) ( 225Q (MAKEINIT.EXPRESSIONS) 206Q ((FUNCTION (LAMBDA (FILE) (OR (SOME LOADUPDIRECTORIES (FUNCTION (LAMBDA (DIR FL) (COND ((SETQ FL (INFILEP (PACKFILENAME (QUOTE DIRECTORY) DIR (QUOTE NAME) FILE (QUOTE EXTENSION) COMPILE.EXT))) (LOAD FL (QUOTE SYSLOAD)) T))))) (PRINT (CONS FILE (QUOTE (not found))) T))))) 43Q ((TYPE BINARY))) MAKEINIT D1 (P 7 RESETZ P 6 RESETY P 5 LISPXHIST P 4 EXPRESSIONS P 3 AFTERINITFILESET P 2 SIZEGUESS P 1 FILES P 0 TYPELST I 3 LOADUPDIRS I 2 TOFILE I 1 TYPE I 0 VERSIONS F 10Q MAKEINITTYPES F 11Q LISPXHIST F 12Q RESETVARSLST) LAdW Ag AHYH[HZW!Wog hg_ OB(110Q ERROR! 101Q RESETRESTORE 66Q MAKEINITA0001 23Q ERROR 2 LOADMKIFILES) (74Q ERROR 63Q INTERNAL 20Q ?) ( 60Q (MAKEINITA0001)) MKI.START D1 (P 5 Y P 4 X F 6 RESETPTR F 7 RESETPC F 10Q MKI.PTRS F 11Q MKI.FirstDataByte F 12Q MKI.TVHA F 13Q MKI.PLHA F 14Q MKI.ATOMARRAY F 15Q MKI.DATE F 16Q INITVALUES F 17Q MKI.VALUES F 20Q INITPTRS F 21Q INITCONSTANTS)  hc dcW W W W WQH8IcW QH\Ich id gWh W"KdhoLlm ]L MJ KhZHXK&oLlm ]L MJ KhZHX|K&\dg$LdLdjh K[k(347Q I.FSETVAL 344Q I.\COPY 245Q SET 236Q PACK* 233Q SUBSTRING 167Q SET 164Q EVAL 155Q PACK* 152Q SUBSTRING 120Q MKI.DSET 112Q DATE 102Q MKI.DSET 75Q MKI.DSET 71Q I.MAKEINITFIRST 34Q RESETMEMORY 31Q CLRHASH 24Q CLRHASH 17Q CLRHASH 12Q BOUTZEROS) (302Q * 105Q MAKEINITDATES) ( 222Q "I." 141Q "I.") DUMPVP D1 (I 0 VP F 0 OUTX) gi P@ (13Q WriteoutPage 6 PRIN1) (2 *) () BOUTZEROS D1 (I 0 N F 2 OUTX) @HjRj HkXI(14Q \BOUT) NIL () BIN16 D1 (I 0 J) @ @ NIL NIL () BOUT16 D1 (I 1 N I 0 J) @A @Al (15Q \BOUT 5 \BOUT) NIL () MKI.PASSFILE D1 (P 11Q *PRINT-BASE* P 10Q *READ-BASE* P 7 *READTABLE* P 6 *PACKAGE* P 5 E P 4 X P 3 MEXPRS P 2 SKIPVARS P 1 COMSNAMES P 0 FILEROOT I 0 FILESET F 12Q BYTECOMPILE.EXT F 13Q MKI.SEQUENTIAL F 14Q *OLD-INTERLISP-READ-ENVIRONMENT*) @3@g b@g@gW i @gglW b g@ bh @id @ Hg h1WMMMM \gL5KHo bK g@h  d hL L (315Q DOFORM 306Q I.DCODERD 301Q RATOM 265Q MKI.PASSFILE 257Q CLOSEF 254Q INPUT 246Q MKI.ADDTO 234Q MKI.ADDTO 225Q PACK* 200Q READ 141Q PACK* 127Q NAMEFIELD 123Q PRINT 115Q MKI.ADDTO 106Q FULLNAME 77Q INPUT 72Q OPENSTREAM 51Q FINDFILE 45Q PACKFILENAME 15Q \EVALV1 12Q PACK*) (240Q BOOTFILES 204Q STOP 153Q READER-ENVIRONMENT 136Q COMS 102Q LOADEDFILELST 62Q OLD 57Q INPUT 40Q EXTENSION 34Q BODY 7 LISPSET) ( 222Q ".EXPRESSIONS") SCRATCHARRAY D1 (I 1 ALIGN I 0 NBYTES F 2 MKI.ARRAY) 3R@R @j cAkjIHRRIjǿIkYR(15Q \CODEARRAY 6 ARRAYSIZE) NIL () DOFORM D1 (P 0 FN I 1 NOPROP I 0 X F 1 MEXPRS F 2 PRINTEXPRS) '@g HA@kHR@id Q@ c(42Q TCONC 34Q PRINT 7 GETPROP) (4 MKI) () CONSTFORMP D1 (L (0 X) F 1 MKI.TVHA) O@ddgdg=@l@doii@Qd"Hddidd gHhNIL (110Q QUOTE 16Q FUNCTION 10Q QUOTE) ( 40Q (QUOTE NIL)) NOTICECOMS D1 (P 1 X I 0 VAL F 2 COMSNAMES F 3 SKIPVARS) X@HhYCg&IdldgRcScIdgdgI HX(120Q NOTICECOMS) (110Q DECLARE: 102Q COMS 50Q COMS 25Q *) () I.ADDTOVAR D1 (I 0 FORM) @@ (10Q MKI.ADDTO) NIL () I.DECLARE: D1 (P 3 FN P 2 X P 1 FLAG P 0 L I 0 FORM) 3@i"HXdZdgJdgigh (56Q DOFORM) (44Q DONTEVAL@LOAD 32Q DOEVAL@LOAD 23Q EVAL@LOAD) () I.FILECREATED D1 (P 0 NAME I 0 X) 1@l'g@ Xh Hg@@h h(55Q MKI.PUTPROP 34Q MKI.ADDTO 26Q NAMEFIELD) (40Q FILEDATES 17Q BOOTLOADEDFILES) () I.DEFINE-FILE-INFO D1 (I 0 FORM) h@ (10Q SET-READER-ENVIRONMENT 5 \DO-DEFINE-FILE-INFO) NIL () I.PUTPROPS D1 (I 0 FORM) @@@ (16Q MKI.PUTPROP) NIL () I.RPAQ D1 (P 1 V P 0 VAL I 0 FORM) G@!H Y@I -g@Zddidd gJhHhi h(103Q DOFORM 26Q MKI.DSET 23Q EVAL 12Q CONSTFORMP) (66Q QUOTE 33Q SETTOPVAL) () I.RPAQQ D1 (P 1 VAL P 0 ATM I 0 FORM F 2 COMSNAMES F 3 SKIPVARS) @@HdRI SHI h(34Q MKI.DSET 23Q NOTICECOMS) NIL () EVALFORMAKEINIT D1 (I 0 FORM) '@dg@@ d@(32Q HELP 26Q MKATOM) (10Q MKATOM) () I.SETTOPVAL D1 (P 0 V I 0 FORM) ,@dg X@H @i h(50Q DOFORM 42Q MKI.DSET 37Q EVAL 24Q CONSTFORMP) (13Q QUOTE) () I.NOUNDO D1 (I 0 FORM) @k g@lm @ (35Q SHOULDNT 31Q DOFORM 23Q SUBATOM 5 NTHCHAR) (10Q /) () I.ATOMNUMBER D1 (I 0 A) @dl `n(11Q MKI.ATOM) (16Q PTRNIL) () I.FIXUPNUM D1 (L (3 MASK 2 NUM 1 BN 0 CA)) G@Ak@AkHHICnBClHHIJ@ABlHHIJNIL NIL () I.FIXUPPTR D1 (L (2 PTR 1 BN 0 CA)) RB`n@AkHIIJK@AHlIIJK@AlB`IIJKhNIL (77Q PTRNIL 5 PTRNIL) () MKI.ATOM D1 (I 0 X F 0 MKI.ATOMARRAY F 1 PTRNOBIND) @dP@ddgQ P (31Q PUTHASH 25Q I.COPYATOM) (15Q NOBIND) () MKI.IEEE D1 (P 3 MAGNITUDE P 2 FRAC P 1 EXP P 0 SIGN I 1 BOX I 0 X) jddj@nj@ ن@ [djZdoj@blYjo@ jX,KolKlKlljkZoJIkYAjHIJl AkJn h(236Q I.PUTBASE 223Q I.PUTBASE 114Q ERROR 36Q OPENR 33Q LOC 25Q OPENR 22Q LOC) (62Q FLOATP) ( 163Q 77777777Q 131Q 77777777Q 110Q "Unrepresentable floating-point number" 51Q 400000000Q) MKI.DSET D1 (P 0 LST I 1 VAL I 0 A F 1 MKI.TVHA) 8@QH&AH @oHoAhid HA@hAQ h(64Q PUTHASH 47Q LISPXPRINT 16Q EQUAL) NIL ( 33Q (to) 25Q (value changed from)) MKI.ADDTO D1 (P 0 LST I 1 VAL I 0 A F 1 MKI.TVHA) @QH @hAQ hAH (30Q UNION 20Q PUTHASH) NIL () MKI.PUTPROP D1 (P 0 LST I 2 VAL I 1 PROP I 0 A F 1 MKI.PLHA) 9@QH@ABhQ hA @oAohid HAB (65Q LISTPUT 56Q LISPXPRINT 30Q LISTGET 22Q PUTHASH) NIL ( 44Q (has been changed) 37Q (- prop)) (PRETTYCOMPRINT MAKEINITCOMS) (RPAQQ MAKEINITCOMS ((FNS I.RPAQ? LOADMAKEINIT LOADMKIFILES RELOAD) (FNS MAKEINIT MKI.START) (FNS DUMPVP) (FNS BOUTZEROS BIN16 BOUT16) (VARS BYTECOMPILE.EXT (MKI.FirstDataByte 1024) (MKI.Page0Byte 512 ) (MKI.DATE (DATE)) MKI.CODESTARTOFFSET MKI.SEQUENTIAL PRINTEXPRS) (FNS MKI.PASSFILE SCRATCHARRAY DOFORM CONSTFORMP NOTICECOMS I.ADDTOVAR I.DECLARE: I.FILECREATED I.DEFINE-FILE-INFO I.PUTPROPS I.RPAQ I.RPAQQ EVALFORMAKEINIT I.SETTOPVAL I.NOUNDO) (FNS I.ATOMNUMBER I.FIXUPNUM I.FIXUPPTR) (FNS MKI.ATOM MKI.IEEE) (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))) (INITVARS (PRINTEXPRS T)) (PROP MKI ADDTOVAR DECLARE: DEFINE-FILE-INFO FILECREATED PUTPROPS RPAQ RPAQ? RPAQQ LISPXPRINT PRETTYCOMPRINT * SETTOPVAL SETQQ SETQ /SETTOPVAL) (DECLARE: DONTEVAL@LOAD DOCOPY (P (PUTPROP ( NAMEFIELD (INPUT) T) (QUOTE LOADDATE) (GETFILEINFO (INPUT) (QUOTE ICREATIONDATE))))) (DECLARE: EVAL@COMPILE (PROP MACRO SETXVAR IEQ) DONTCOPY (FILES (LOADCOMP) MEM)))) (RPAQQ BYTECOMPILE.EXT DCOM) (RPAQQ MKI.FirstDataByte 1024) (RPAQQ MKI.Page0Byte 512) (RPAQ MKI.DATE (DATE)) (RPAQQ MKI.CODESTARTOFFSET 60) (RPAQQ MKI.SEQUENTIAL ((SEQUENTIAL T))) (RPAQQ PRINTEXPRS T) (RPAQQ MKI.ARRAY NIL) (RPAQ MKI.TVHA (HASHARRAY 400)) (RPAQ MKI.PLHA (HASHARRAY 150)) (RPAQ MKI.ATOMARRAY (HASHARRAY 5000)) (RPAQQ INIT.EXT SYSOUT) (RPAQ? PRINTEXPRS T) (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) (PUTPROP (NAMEFIELD (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 ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL