(FILECREATED " 7-Oct-86 16:59:43" ("compiled on " {ERIS}SOURCES>LLBASIC.;60) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 6-Oct-86 21:57:43" {ERIS}SOURCES>LLBASIC.;60 67239 changes to: (VARS LLBASICCOMS) (FUNCTIONS ATOM) previous date: " 4-Oct-86 17:00:48" {ERIS}SOURCES>LLBASIC.;59) (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 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ð´@Ólÿåjðhð´@NIL NIL () LITATOM D1 (L (0 X)) @lðNIL 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ðµ@3´iNIL NIL () defsubst-ATOM D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 10Q (CL:LAMBDA (X) (CL:BLOCK ATOM (OR (NULL X) (AND (\TYPEMASK.UFN X 10Q) T))))) (PUTPROP (QUOTE ATOM) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE ATOM) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE defsubst-ATOM)))) GETTOPVAL D1 (L (0 X)) @ÁÉNIL NIL () SETTOPVAL D1 (L (1 VAL 0 ATM)) %@µAd²l ið›AiðµAl @ÁAA(32Q \LISPERROR 13Q \LISPERROR) NIL () \SETGLOBALVAL.UFN D1 (L (1 A 0 V)) `AÐAÐ@@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ð•@Ó‚AHÑHÐ(62Q SHOULDNT) (55Q LITATOM 43Q LITATOM 25Q LITATOM 12Q 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 Y²ggIhHhg(12Q CONSTANTEXPRESSIONP) (42Q IGNOREMACRO 23Q ATOMCELL.N 20Q 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 (13Q \PROPCELL 10Q \GETBASEPTR) ( 23Q (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)) @!H¹HºggIhjJhNIL (21Q \PROPCELL 16Q \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 25Q \INTERRUPTABLE F 26Q \ORIGREADTABLE) C´*ABØkÙAIHó³@IÐÈlÿñ”Iµi†IkÔY°êh¡h€i±Bjð—j¹lÿ¾±…C•@AÐÈ‚@AÂ½Bkð²3Mlÿñ‘h€i²)`²$Ml9ñ˜`Ml ÙÐl0Mñ‘h€i”Ml0Ù`MÐD‘h€i²Ml9ñ‘h€i²@ABCl W, Zµ‚±dMlÿå^á¹ABØkÙAkØ_¿_¿OOó²^`IÐÈZjð’±JkÙ[_¿lOÓÑOÓÐÉ\ÊBð¢±èHLÊ‡jð´`KÐÁÊ jðhðð¢±ÌH²bBkAOOó²4i±°IdnÿåààÐÓdlÿåáÐÓC™@OÐÈlÿåƒ@OÂÐÓ¹OkÔ_±ÿuLOÐÈ@OÐÈð¢h°ÀOkÔ_¿OkÔ_¿°¨C²2BkAO Oó³!LO Â@O"ÐÈð¢h°O kÔ_ ¿O"kÔ_"¿°Üi°.BkAO&O$ó³LO&Â@O(Âð¢h°O&kÔ_&¿O(kÔ_(¿°Þi•`KÐIOµNIækäl?å_ÐÓ¹±þÞ@ABCH _¿`IÐOÓkØÍO(754Q \CREATE.SYMBOL 230Q \PARSE.NUMBER) (771Q LITATOM 762Q \AtomHashTable 710Q \ATOMSPACE 362Q \ATOMSPACE 276Q \AtomHashTable 170Q \OneCharAtomBase 141Q \OneCharAtomBase 127Q \OneCharAtomBase) () \CREATE.SYMBOL D1 (L (4 FATCHARSEENP 3 FATP 2 LEN 1 OFFSET 0 BASE) P 4 \INTERRUPTABLE) ÄD”BlØ„BlØââ 1`Ydnÿåjð²ãºlþJñ‘h€i“¿Jnˆ ¿J nÿÿð™lo ¿lIÓÑIÓÐ»KkHÒlÿåÇ¿KHÓÍD™HkÐ@AÐBÄ°2C²&BAkOMó³HO@NÐÈÇ¿NkÔ¾OkÔ_°è‰@AHkB ¿HBÏH¿IkØ`IÐYD–dÁkÏ I(241Q \MOVEBYTES 111Q \MP.ERROR 72Q \INITATOMPAGE 65Q \MAKEMDSENTRY 55Q \MKATOM.FULL 17Q \ALLOCBLOCK) (264Q \ATOMSPACE 261Q \AtomFrLst 25Q \AtomFrLst) ( 106Q "No more atoms left") \MKATOM.FULL D1 NIL `‘h€i´i¿`kÏ`¿ihNIL (31Q \PENDINGINTERRUPT 20Q \INTERRUPTSTATE 14Q \STORAGEFULL 2 \STORAGEFULL) () \INITATOMPAGE D1 (L (0 PN)) H@á`HÐHÐ `HÐHÐ `HÐHÐ `HÐHÐY ndjñ´IgÎ¿IlÐ¹kÙ°í(55Q \NEW4PAGE 42Q \NEW4PAGE 30Q \NEW4PAGE 16Q \NEW4PAGE) (71Q NOBIND 45Q \VALSPACE 33Q \PLISTSPACE 21Q \DEFSPACE 7 \PNPSPACE) () MAPATOMS D1 (L (0 FN)) jjHÑk@¿HkØX`ð²ðhNIL (22Q \AtomFrLst) () ATOMHASH#PROBES D1 (L (0 STRING)) ôð@dlð²/ÁÉ¹kº@ÁÉÊ»@ÁÊ jðhð__¿@Ó¸O²sIJÐÈ°o bÉ¹@Èº@È»@ÊCjð‘h€i_²B@1OÈkÙ_"¿OÉ_$¿O"OÈØ_ ¿O"kØ_"O ñ³O$O"ÐÈlÿñ‘h€i³çi€h_¿Klÿñ‘h€i³hIJÂdlÿå\dá½JKØkÙJkØ_¿_¿OOó³/MdnÿåààÐÓdlÿåáÐÓO™IOÐÈlÿåƒIOÂÐÓ½OkÔ_°Ðk_¿`MÐÈ^jð³£HµKNkÙ_¿lOÓÑOÓÐÉ_ÊKð¢±¾O`NkÙÐÁÊ jðhðð¢±§O²