(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (filecreated "17-Oct-86 15:50:09" ("compiled on " {eris}sources>llbasic.\;65) "14-Oct-86 21:06:05" "COMPILE-FILEd" |in| "Xerox Lisp 14-Oct-86 ..." |dated| "14-Oct-86 22:24:47") (filecreated "17-Oct-86 15:49:07" {eris}sources>llbasic.\;65 69933 |changes| |to:| (fns \\mkatom copyatom) |previous| |date:| "15-Oct-86 17:29:11" {eris}sources>llbasic.\;62) (rpaqq llbasiccoms ((fns listp litatom fixp stringp smallp nlistp arrayp floatp numberp stackp) ( functions atom) (declare\: dontcopy (export (macros check |\\StatsZero| |\\StatsAdd1| iplus16 smallposp setxvar setq.noref ieq) (templates spreadapply* spreadapply setq.noref) (constants |WordsPerPage|))) (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") (fns initatoms copyatom uncopyatom)) (coms (* \; "See \\PNAMELIMIT comment below") (vars (\\pnamelimit 255)) (initvars (\\pnames.in.blocks?))) (fns \\definedp putd \\putd getd putdefn getdefn) (vars (compileatputdflg)) (initvars (*package-from-index* )) (declare\: dontcopy (export (records litatom cl:symbol valindex vcell definitioncell fnheader pnamecell packageindex pnamebase pnameindex) (macros \\defcell \\valcell \\pnamecell) (macros \\atomvalindex \\atomdefindex \\atompnameindex \\atompropindex \\indexatompname \\indexatomval \\indexatomdef) (globalvars |\\NxtPnByte| |\\CurPnPage| |\\NxtAtomPage| |\\AtomFrLst| |\\OneCharAtomBase| \\pnames.in.blocks? \\scratchstring compileatputdflg *package-from-index*) ( constants (\\pnamelimit 255) (|\\CharsPerPnPage| 512)) (* |;;| "\\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. " ))) (declare\: eval@compile dontcopy (macros compute.atom.hash atom.hash.reprobe) (addvars ( dontcompilefns initatoms copyatom uncopyatom 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 \\atomcell) (fns \\mkatom \\create.symbol \\initatompage \\movebytes) (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) (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) (\\create.symbol . vnosuchatom)) (rdcoms (fns uncopyatom \\mkatom gettopval getproplist settopval getdefn \\atomcell) (fns listp) (vars ( copyatomstr))) (rd.subfns (\\rplptr . vputbaseptr)) (rdvals (|\\AtomFrLst|)))) (prop filetype llbasic) )) listp d1 (l (0 x)) @l@ljh@nil nil () litatom d1 (l (0 x)) @lnil nil () fixp d1 (l (0 x)) @3 nil nil () stringp d1 (l (0 x)) @l@nil nil () smallp d1 (l (0 x)) @k@nil nil () nlistp d1 (l (0 x)) @hinil nil () arrayp d1 (l (0 x)) @l@nil nil () floatp d1 (l (0 x)) @l@nil nil () numberp d1 (l (0 x)) @3nil nil () stackp d1 (l (0 x)) @l@nil nil () atom d1 (l (0 x)) @h@3inil nil () |definline-ATOM| d1 (l (2 $$ctx 1 $$env 0 $$whole)) @oHnil nil ( 8 (cl:lambda (x) (cl:block atom (or (null x) (and (\\typemask.ufn x 8) t))))) (putprop (quote atom) (quote compiler:optimizer-list) (union (getprop (quote atom) (quote compiler:optimizer-list)) (list (quote |definline-ATOM|)))) gettopval d1 (l (0 x)) @ nil nil () settopval d1 (l (1 val 0 atm)) %@ Adl iAiAl @ AA(26 \\lisperror 11 \\lisperror) nil () \\setglobalval.ufn d1 (l (1 a 0 v)) `AA@@nil (2 \\valspace) () \\setfvar.ufn d1 (l (1 vcell 0 v)) A@@nil nil () getproplist d1 (l (0 atm)) @nil nil () \\atomcell d1 (l (1 n 0 x)) =Adl @Ӱ'l @ӰAdl@ӌl@ӂAHH(50 shouldnt) (45 litatom 35 litatom 21 litatom 10 litatom) () setproplist d1 (l (1 lst 0 atm)) @AAnil nil () (putprops \\propcell macro ((atom) (\\atomcell atom (constant \\plist.hi)))) |optimize-\\ATOMCELL| d1 (l (2 $$ctx 1 $$env 0 $$whole)) %@H YggIhHhg(10 constantexpressionp) (34 ignoremacro 19 atomcell.n 16 opcodes) () (putprop (quote \\atomcell) (quote compiler:optimizer-list) (union (getprop (quote \\atomcell) (quote compiler:optimizer-list)) (list (quote |optimize-\\ATOMCELL|)))) |optimize-GETPROPLIST| d1 (l (2 $$ctx 1 $$env 0 $$whole)) @ggHhonil (11 \\propcell 8 \\getbaseptr) ( 19 (0)) (putprop (quote getproplist) (quote compiler:optimizer-list) (union (getprop (quote getproplist) ( quote compiler:optimizer-list)) (list (quote |optimize-GETPROPLIST|)))) |optimize-SETPROPLIST| d1 (l (2 $$ctx 1 $$env 0 $$whole)) @!HHggIhjJhnil (17 \\propcell 14 \\rplptr) () (putprop (quote setproplist) (quote compiler:optimizer-list) (union (getprop (quote setproplist) ( quote compiler:optimizer-list)) (list (quote |optimize-SETPROPLIST|)))) \\mkatom d1 (l (4 nonnumericp 3 fatp 2 len 1 offst 0 base) p 21 \\interruptable) C*ABkAIH@IlI iIkYhhi BjjlC@A@A½Bk3Mlhi)`$Ml9`Ml l0MhiMl0`MDhi Ml9hi@ABCl ` ZdMl^ABkAk__OO^`IZjJk[_lOO\BHLj`K jhHbBkAOO4iIdndlC@Ol@OӹOk_uLO@OhOk_Ok_C2BkAO O!LO @O"hO k_ O"k_"i.BkAO&O$LO&@O(hO&k_&O(k_(i`KIO NIkl?_ӹ@ABCH _`IOkO(493 \\create.symbol 153 \\parse.number) (506 litatom 499 |\\AtomHashTable| 457 \\atomspace 243 \\atomspace 191 |\\AtomHashTable| 149 \\origreadtable 120 |\\OneCharAtomBase| 97 |\\OneCharAtomBase| 87 |\\OneCharAtomBase|) () \\create.symbol d1 (l (4 fatcharseenp 3 fatp 2 len 1 offset 0 base) p 4 \\interruptable) DBl؄Bl 1`YdnjlJhiJn J nlo lIIлKkHlǿKHDHk@ABİ2C&BAkOMHO@NǿNkԾOk_@AHkB HBHIk`IYDdk I(161 \\movebytes 73 \\mp.error 58 \\initatompage 53 \\makemdsentry 45 \\mkatom.full 15 \\allocblock) (180 \\atomspace 177 |\\AtomFrLst| 21 |\\AtomFrLst|) ( 70 "No more atoms left") \\mkatom.full d1 nil `hii`k`ihnil (25 \\pendinginterrupt 16 \\interruptstate 12 \\storagefull 2 \\storagefull) () \\initatompage d1 (l (0 pn)) H@`HH `HH `HH `HHY ndjIgIlйkٰ(45 \\new4page 34 \\new4page 24 \\new4page 14 \\new4page) (57 nobind 37 \\valspace 27 \\plistspace 17 \\defspace 7 \\pnpspace) () mapatoms d1 (l (0 fn)) jjHk@HkX`hnil (18 |\\AtomFrLst|) () atomhash#probes d1 (l (0 string)) @dl/k@@ jh__@ӸOsIJo b@@@Cjhi_B@1Ok_"O_$O"O_ O"k_"O O$O"lhiih_KlhihIJdl\dJKkJk__OO/MdndlOIOlIOӽOk_k_`M^jHKNk_lOO_KO`Nk jhO