(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 17:49:52" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LLBASIC.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "12-Oct-93 14:29:06" "{Pele:mv:envos}Sources>CLTL2>LLBASIC.;2" 128788 changes to%: (OPTIMIZERS \ATOMCELL GETPROPLIST SETPROPLIST) (VARS LLBASICCOMS) (FUNCTIONS ATOM) (FNS COPYATOM) previous date%: " 5-Aug-93 10:20:24" "{Pele:mv:envos}Sources>LLBASIC.;35") (RPAQQ LLBASICCOMS ((FNS LISTP LITATOM FIXP SMALLP NLISTP ARRAYP FLOATP NUMBERP STACKP) (FUNCTIONS ATOM) (DECLARE%: DONTCOPY (EXPORT (MACROS CHECK \StatsZero \StatsAdd1 IPLUS16 SMALLPOSP SETXVAR SETQ.NOREF IEQ) (CONSTANTS WordsPerPage)) (TEMPLATES SPREADAPPLY* SPREADAPPLY SETQ.NOREF)) (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS FREELISTENTRY HASHENTRY)) (COMS (* ; "atoms") (FNS GETTOPVAL SETTOPVAL FSETVAL \SETGLOBALVAL.UFN \SETFVAR.UFN GETPROPLIST \ATOMCELL SETPROPLIST) (COMS (MACROS \PROPCELL) ( OPTIMIZERS \ATOMCELL GETPROPLIST SETPROPLIST)) (FNS \MKATOM \CREATE.SYMBOL \MKATOM.FULL \INITATOMPAGE) (FNS MAPATOMS ATOMHASH#PROBES) (COMS (* ; "For MAKEINIT & TeleRaid") (* ;; "This code has one major shortcoming which will not normally turn up. If the local and remote sysouts conflict in their package setups it is possible for this code to return symbols interned in what for the teleraid'ing machine would be the correct package, but for the remote machine is in fact incorrect. This warrents a warning in the documentation. The problem lies in the fact that you *cannot* uncopy a symbol correctly between two machines with incompatible package setups. An example of such a situation would be where on one machine the package FOO inherits BAR, and on the other BAR is present directly in FOO. BAR's package cell will be different in both cases. Two solutions come to mind; both would break the VSAVEWORK feature. The first would be to UNCOPY symbols into special %"remote symbol%" objects. The second is to create uninterned symbols with the correct name and smash their package cell to be that of a correctly named package. Both of these schemes would require special reading and printing code." ) (MACROS READSYS.HAS.PACKAGES) (VARS READSYS.PACKAGE.FROM.NAME READSYS.PACKAGE.FROM.INDEX) (FNS INITATOMS COPYATOM UNCOPYATOM MAKE.LOCAL.ATOM SYMBOL.VALUE SYMBOL.PNAME SYMBOL.PACKAGE OLD.FIND.SYMBOL LOOKUP-SYMBOL FIND.PACKAGE FIND.SYMBOL PACKAGE.NAME)) (COMS (* ; "See \PNAMELIMIT comment below") ( VARS (\PNAMELIMIT 255)) (INITVARS (\PNAMES.IN.BLOCKS?))) (COMS (* ;; "Flag for the closure cache") ( INITVARS (SI::*CLOSURE-CACHE-ENABLED*)) (GLOBALVARS SI::*CLOSURE-CACHE-ENABLED*)) (FNS \DEFINEDP PUTD \PUTD GETD PUTDEFN GETDEFN) (FNS \STKMIN) (INITVARS (\OPSTACKEFFECT) (\OPLENGTH)) (GLOBALVARS \OPSTACKEFFECT \OPLENGTH) (VARS (COMPILEATPUTDFLG)) (DECLARE%: DONTCOPY (EXPORT (RECORDS LITATOM CL:SYMBOL VALINDEX VCELL DEFINITIONCELL FNHEADER PNAMECELL PACKAGEINDEX PNAMEBASE PNAMEINDEX) (RECORDS NEW-ATOM) (MACROS \DEFCELL \VALCELL \PNAMECELL) (MACROS \ATOMVALINDEX \ATOMDEFINDEX \ATOMPNAMEINDEX \ATOMPROPINDEX \INDEXATOMPNAME \INDEXATOMVAL \INDEXATOMDEF \ATOMNUMBER) (GLOBALVARS \NxtPnByte \CurPnPage \NxtAtomPage \AtomFrLst \OneCharAtomBase \PNAMES.IN.BLOCKS? \SCRATCHSTRING COMPILEATPUTDFLG ) (CONSTANTS (\PNAMELIMIT 255) (\CharsPerPnPage 512)) (CONSTANTS (\NEWATOM-PNAMEOFFSET 0) ( \NEWATOM-VALOFFSET 2) (\NEWATOM-DEFOFFSET 4) (\NEWATOM-PLISTOFFSET 6) (\NEWATOM-TYPE# 21)) (* ;; "\PNAMELIMIT is exported but needs to also be a VARS on this file to get it copied. Note that both commands must be edited together. " ) (* ;; "\NEWATOM-xxxxOFFSET is word offset in NEWATOM . -- '90/07/19 ON"))) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS COMPUTE.ATOM.HASH ATOM.HASH.REPROBE) (ADDVARS (DONTCOMPILEFNS INITATOMS COPYATOM UNCOPYATOM READATOM MAKE.LOCAL.ATOM SYMBOL.VALUE SYMBOL.PNAME SYMBOL.PACKAGE OLD.FIND.SYMBOL LOOKUP-SYMBOL FIND.PACKAGE FIND.SYMBOL PACKAGE.NAME GETDEFN PUTDEFN FSETVAL)))) (COMS (* ; "for executing boot expressions when first run") (FNS \RESETSYSTEMSTATE INITIALEVALQT SIMPLEPRINT) ( GLOBALVARS RESETFORMS BOOTFILES)) (COMS (* ; "stats") (FNS PAGEFAULTS \SETTOTALTIME \SERIALNUMBER)) ( COMS (* ; "Fast functions for moving and clearing storage") (FNS \BLT \MOVEBYTES \CLEARWORDS \CLEARBYTES \CLEARCELLS) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS .CLEARNWORDS.)) (COMS (* ; "Obsolete") (DECLARE%: EVAL@COMPILE DONTCOPY (EXPORT (MACROS \MOVEWORDS))) (FNS \MOVEWORDS \ZEROBYTES \ZEROWORDS))) (LOCALVARS . T) (DECLARE%: DONTCOPY (* ; "For MAKEINIT & TeleRaid") (ADDVARS (INITVALUES (\AtomFrLst 0)) (INITPTRS (\OneCharAtomBase NIL) (\SCRATCHSTRING)) (INEWCOMS (FNS FSETVAL SETPROPLIST PUTDEFN \BLT) (FNS \MKATOM \CREATE.SYMBOL \INITATOMPAGE \MOVEBYTES \STKMIN) (FNS COPYATOM INITATOMS)) (EXPANDMACROFNS SMALLPOSP COMPUTE.ATOM.HASH ATOM.HASH.REPROBE \DEFCELL \VALCELL \PNAMECELL \PROPCELL \INDEXATOMPNAME) (MKI.SUBFNS (\PARSE.NUMBER . NILL) (\MKATOM.FULL . NILL) (\ATOMDEFINDEX . I.ATOMNUMBER) (\ATOMVALINDEX . I.ATOMNUMBER) (\ATOMPROPINDEX . I.ATOMNUMBER) (\ATOMPNAMEINDEX . I.ATOMNUMBER) (\ATOMCELL . I.\ATOMCELL) (\GETBASEFIXP . I.GETBASEFIXP) (\PUTBASEFIXP . I.PUTBASEFIXP) (SETQ.NOREF . SETQ) (SETTOPVAL . I.FSETVAL)) (RD.SUBFNS (\PARSE.NUMBER . NILL) (\ATOMDEFINDEX . VATOMNUMBER) (\ATOMPROPINDEX . VATOMNUMBER) (\ATOMVALINDEX . VATOMNUMBER) (SETQ.NOREF . SETQ) ( \INDEXATOMPNAME . VATOM) (\INDEXATOMVAL . VATOM) (\INDEXATOMDEF . VATOM) (\ATOMNUMBER . VATOMNUMBER) ( \CREATE.SYMBOL . VNOSUCHATOM)) (RDCOMS (FNS UNCOPYATOM MAKE.LOCAL.ATOM SYMBOL.VALUE SYMBOL.PNAME SYMBOL.PACKAGE OLD.FIND.SYMBOL LOOKUP-SYMBOL FIND.PACKAGE FIND.SYMBOL PACKAGE.NAME \MKATOM GETTOPVAL GETPROPLIST SETTOPVAL GETDEFN \ATOMCELL) (FNS LISTP) (VARS (COPYATOMSTR))) (RD.SUBFNS (\RPLPTR . VPUTBASEPTR)) (RDVALS (\AtomFrLst)))) (PROP FILETYPE LLBASIC))) LISTP :D8 (L (0 X)) @l@ljh@NIL NIL () LITATOM :D8 (L (0 X)) @d3@NIL NIL () FIXP :D8 (L (0 X)) @3 NIL NIL () SMALLP :D8 (L (0 X)) @k@NIL NIL () NLISTP :D8 (L (0 X)) @hNIL NIL () ARRAYP :D8 (L (0 X)) @l@NIL NIL () FLOATP :D8 (L (0 X)) @l@NIL NIL () NUMBERP :D8 (L (0 X)) @3NIL NIL () STACKP :D8 (L (0 X)) @l@NIL NIL () ATOM :D8 (L (0 X)) @h@3iNIL NIL () definline-ATOM :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 9 (CL:LAMBDA (X) (CL:BLOCK ATOM (OR (NULL X) (AND (\TYPEMASK.UFN X 8) T))))) (PUTPROP (QUOTE ATOM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE definline-ATOM) (GET (QUOTE ATOM) (QUOTE COMPILER:OPTIMIZER-LIST)))) GETTOPVAL :D8 (L (0 X)) @ NIL NIL () SETTOPVAL :D8 (L (1 VAL 0 ATM)) )@Adl iAi Al @ AA(30 \LISPERROR 13 \LISPERROR) NIL () \SETGLOBALVAL.UFN :D8 (L (1 A 0 V)) .Ad3 !nA`ll AHIIAl@@NIL (18 \PNPSPACE) () \SETFVAR.UFN :D8 (L (1 VCELL 0 V)) A@@NIL NIL () GETPROPLIST :D8 (L (0 ATM)) @NIL NIL () \ATOMCELL :D8 (L (1 N 0 X)) @dlӋl@!H3 8Adl ll lAdlllj`Il HAdl ll lAdllljHJ(122 SHOULDNT 68 SHOULDNT 20 SHOULDNT) (74 \PNPSPACE) () SETPROPLIST :D8 (L (1 LST 0 ATM)) @AANIL NIL () (PUTPROPS \PROPCELL MACRO ((ATOM) (\ATOMCELL ATOM (CONSTANT \PLIST.HI)))) optimize-\ATOMCELL :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) -@H YggIhHhg(12 CONSTANTEXPRESSIONP) (42 IGNOREMACRO 25 ATOMCELL.N 20 OPCODES) () (PUTPROP (QUOTE \ATOMCELL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\ATOMCELL) (GET (QUOTE \ATOMCELL) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-GETPROPLIST :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ggHhoNIL (15 \PROPCELL 10 \GETBASEPTR) ( 24 (0)) (PUTPROP (QUOTE GETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-GETPROPLIST) ( GET (QUOTE GETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-SETPROPLIST :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@!HHggIhjJhNIL (21 \PROPCELL 16 \RPLPTR) () (PUTPROP (QUOTE SETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-SETPROPLIST) ( GET (QUOTE SETPROPLIST) (QUOTE COMPILER:OPTIMIZER-LIST)))) \MKATOM :D8 (L (4 NONNUMERICP 3 FATP 2 LEN 1 OFFST 0 BASE) P 21 \INTERRUPTABLE) +C*ABkAIH@IlI iIkYhhh BjjlC@A@A½Bk1Ml+`$Ml9`Ml l0MMl0`MDMdl9@ABCl ` ZMl^ABkAk__OO IdndlC@Ol@OӹOk_O\BHLj`K jhH4BkAOO#LO@OhOk_Ok_iaC2BkAO O!LO @O"hO k_ O"k_"i.BkAO&O$LO&@O(hO&k_&O(k_(i`KIO NIkl?_ӹ`IZj*Jk[_d3 nO`jl Oб@ABCH _`IOdlӌlOkO(546 SHOULDNT 513 \CREATE.SYMBOL 149 \PARSE.NUMBER) (521 \AtomHashTable 488 \PNPSPACE 450 \AtomHashTable 424 \ATOMSPACE 254 \ATOMSPACE 143 \ORIGREADTABLE 118 \OneCharAtomBase 97 \OneCharAtomBase 85 \OneCharAtomBase) () \CREATE.SYMBOL :D8 (L (4 FATCHARSEENP 3 FATP 2 LEN 1 OFFSET 0 BASE) P 5 \INTERRUPTABLE)  DBkk؆Bkl An/`Y/lYd3 nI`ll IZJIlg#Idljl IڻIn K I3 nI`jl IЀILdnHnLjkHDHk@ABİ8C*BAkONHO@OǿOk_Ok_@AHkB HBH`kI3 `IйDIk I(237 \MOVEBYTES 113 \INITATOMPAGE 106 \MAKEMDSENTRY 20 \ALLOCBLOCK) (268 \ATOMSPACE 259 \AtomFrLst 252 \AtomFrLst 130 \PNPSPACE 76 NOBIND 56 \PNPSPACE 31 \AtomFrLst) () \MKATOM.FULL :D8 NIL !`i`k`ihNIL (29 \PENDINGINTERRUPT 18 \INTERRUPTSTATE 12 \STORAGEFULL 4 \STORAGEFULL) () \INITATOMPAGE :D8 (L (0 PN)) V@l jHJIljHJIh`K JkԺKnԻ`KlgJkԺKl Ի(42 \NEWPAGE) (70 NOBIND 60 \PNPSPACE 35 \PNPSPACE) () MAPATOMSA0001 :D8 (L (2 INSERT 1 HASHTABLE 0 PAGE#)) -A!@HAIZdd@jBJ@JIlذNIL NIL () MAPATOMS :D8 (L (0 FN) P 17 \INTERRUPTABLE P 16 \INTERRUPTABLE) `dn/n/jIdHs`n/`ll njdOdOgOlojػldKhi[l YnIKlkH\L]NrLNL_[h_H\L]NRN(L_FI`lloH4bkjNkIlgZ O__OOO_O)OHo HLOOOLIilgZ_JOO_JO8O^l oL 3 IdjIщInрIk@IkYh lOk_Ol_}dԱOO_Oo LOOOfML_~ML_Idkjo I knjn_j_dnh lOHlgOkHlg] OM[ MdkjOkHlgMNj__OOXjOO_Ol__OI_O/KK_dOhLOiOk@JkԺOI_Ok_OlԱ;(586 MDSTYPE# 555 .ALLOCATED.PER.PAGE. 548 SHOULDNT 485 RAID 435 MDSTYPE# 390 RAID 297 RAID 111 \ALLOCBLOCK) (655 MAPATOMSA0001 618 MAPATOMSA0001 603 MAPATOMSA0001 333 MAPATOMSA0001 244 MAPATOMSA0001 204 \DTDSpaceBase 47 \DTDSpaceBase 32 \AtomFrLst 4 \AtomFrLst) ( 543 "Odd size?" 480 "No PREVPAGELASTFREE" 384 "Bad free list" 292 "No PREVPAGELASTFREE" 217 65536 86 1.4) ATOMHASH#PROBES :D8 (L (0 STRING)) S@dd3@4@k@@ jh__@ӸOIJ bdj @dj @l @dj lD_\@1Odj k_"Odj _$O"Ol _ O"k_"O O$O"lih_KlJhIJdl\dJKkJk__OO/MdndlOIOlIOӽOk_k_`M^jH#Nk_d3 "nO`jl OЈNkO_KO`Nk jhO5KkJO O$OO IO"hO k_ O"k_"idO3KkJO O"OO IO"hO k_ O"k_"i/KkJO O OO IO"hO k_ O"k_"iOMO LMkl?_ӽOkԱ(190 \GETBASEFIXP 173 %%ARRAY-BASE 151 %%ARRAY-OFFSET 122 %%ARRAY-TYPE-NUMBER 108 \GETBASEFIXP 96 %%ARRAY-OFFSET 79 %%ARRAY-BASE 65 MKSTRING) (393 \ATOMSPACE 355 \PNPSPACE 319 \AtomHashTable) () (PUTPROPS READSYS.HAS.PACKAGES MACRO (NIL (NEQ 1 READSYS.PACKAGE.FROM.NAME))) (RPAQQ READSYS.PACKAGE.FROM.NAME 1) (RPAQQ READSYS.PACKAGE.FROM.INDEX 1) (RPAQQ \PNAMELIMIT 255) (RPAQ? \PNAMES.IN.BLOCKS?) (RPAQ? SI::*CLOSURE-CACHE-ENABLED*) \DEFINEDP :D8 (L (0 A)) @d3@ @ iNIL NIL () PUTD :D8 (L (2 FLG 1 DEF 0 FN)) KA@d3@@3AA%B0A(A@A@ bA @A (71 \PUTD 63 \ILLEGAL.ARG 47 \RENAMEDFN) (55 COMPILED-CLOSURE 32 COMPILED-CLOSURE 24 COMPILED-CLOSURE) () \PUTD :D8 (L (1 DEF 0 FN) P 3 \INTERRUPTABLE) @ !AYd&IHjIHj1JY%GIl9IYHjjHkkHJ!!HJjkjHIAHjHIANIL (78 ARRAYP 64 ARRAYP 40 COMPILED-CLOSURE 25 COMPILED-CLOSURE 16 COMPILED-CLOSURE) () GETD :D8 (L (0 A)) 1@d3@*@ HHjI`I l dI(37 SI::GET-CACHE-CLOSURE) (30 SI::*CLOSURE-CACHE-ENABLED*) () \STKMIN :D8 (L (2 PRINT 1 CODEISBLOCK 0 CODE)) `Bnl nl lj"IH+ljIHA.@ @b`IlI hZdgdgdgdgdgdgdgdgdgydgpdgdgdgdgmMdgdgdgk1J[d[3 KgKdgmglǿIkY`Id mkǿIkY@@dnnkdjjl@dnnkkl2IlԺ@H[jJBioHKIJ l`K\lBo jILYJIH`KԸ(489 PRIN1 461 CL:FORMAT 356 \FINDOP 110 \FINDOP 81 \GET-COMPILED-CODE-BASE 38 \ALLOCBLOCK 19 \ALLOCBLOCK) (507 \OPLENGTH 469 \OPSTACKEFFECT 349 \OPLENGTH 330 JUMP 319 NCJUMP 310 CJUMP 281 MISCN 273 SUBRCALL 265 BIND 252 POP.N 244 UNWIND 236 DUNBIND 227 UNBIND 218 RETURN 209 APPLYFN 198 NOP 187 SWAP 176 FNX 165 FN4 154 FN3 143 FN2 132 FN1 121 FN0 101 \OPSTACKEFFECT 89 ARRAYP 43 \OPLENGTH 24 \OPSTACKEFFECT 4 \OPSTACKEFFECT) ( 484 "*" 451 "~%%~3o: ~3o d<~3d> mx<~3d>") (RPAQ? \OPSTACKEFFECT) (RPAQ? \OPLENGTH) (RPAQQ COMPILEATPUTDFLG NIL) \RESETSYSTEMSTATE :D8 NIL i (10 \RESETTERMINAL 5 \KEYBOARDON) NIL () INITIALEVALQT :D8 NIL y`!Hho HIHXI Z6I l JIJZ JIg IYi(117 INTERPRET.REM.CM 98 SETTOPVAL 81 EVAL 75 SETTOPVAL 62 DSPBOUT 54 SIMPLEPRINT 43 GETTOPVAL 25 SIMPLEPRINT 4 \SETIOPOINTERS) (111 BOOTFILES 93 NOBIND 9 BOOTFILES) ( 20 "evaluating initial expressions: ") SIMPLEPRINT :D8 (L (1 N 0 X)) @dd3@@d &@ kIHh@I IkYjAjohbbl( @AjAAkفlb Ajo)@b o o @ o ho (170 SIMPLEPRINT 158 SIMPLEPRINT 147 SIMPLEPRINT 140 SIMPLEPRINT 102 SIMPLEPRINT 79 DSPBOUT 45 DSPBOUT 40 NTHCHARCODE 23 NCHARS 14 STRINGP) NIL ( 165 " " 153 ")" 135 " . " 125 ")" 112 " --)" 64 "&") PAGEFAULTS :D8 NIL `l (11 \GETBASEFIXP) (4 \MISCSTATS) () \SETTOTALTIME :D8 NIL `l`j (23 CLOCKDIFFERENCE 18 \GETBASEFIXP) (12 \MISCSTATS 4 \MISCSTATS) () \SERIALNUMBER :D8 NIL `NIL (4 \InterfacePage) () \BLT :D8 (L (2 NWORDS 1 SBASE 0 DBASE)) ?Bn@@n@An@Bn@@An@jBkHI@IAIImԹ@NIL NIL () \MOVEBYTES :D8 (L (4 NBYTES 3 DBYTE 2 DBASE 1 SBYTE 0 SBASE)) jDjL@ABC2AkZCk[7JkIkHkǿIkйHkиDmbIHD\ĿDkk ILjHLjhDdjIKdkԻHJdkԺǿkٰNIL NIL () \CLEARWORDS :D8 (L (1 NWORDS 0 BASE)) H@AnAj@AkjAk@dkAkĿ@nj@dknĿ@nbAnbNIL NIL () \CLEARBYTES :D8 (L (2 NBYTES 1 OFFST 0 BASE)) ;Bj6Akj@AjǿAkbBmb@AbBkjdBkjǿ@B (56 \CLEARWORDS) NIL () \CLEARCELLS :D8 (L (1 NCELLS 0 BASE)) Kn?A&@nj@dknĿ@nbAn@bAjAb@AkjAk@dkAkhNIL NIL () \MOVEWORDS :D8 (L (4 NWORDS 3 DOFFSET 2 DBASE 1 SOFFSET 0 SBASE)) BC@ADNIL NIL () \ZEROBYTES :D8 (L (2 LAST 1 FIRST 0 BASE)) @ABAk (11 \CLEARBYTES) NIL () \ZEROWORDS :D8 (L (1 ENDBASE 0 BASE)) FA@$@n@ @nj@kjbA@jH@j@kH h(66 \CLEARWORDS 18 \CLEARWORDS) NIL () (PUTPROPS LLBASIC FILETYPE CL:COMPILE-FILE) (PUTPROPS LLBASIC COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1993)) NIL