(FILECREATED "30-Sep-86 22:57:12" ("compiled on " {ERIS}SOURCES>DLAP.;64) "30-Sep-86 21:35:38" in "Xerox Lisp 29-Sep-86 ..." dated "29-Sep-86 15:41:04") (FILECREATED "30-Sep-86 22:49:33" {ERIS}SOURCES>DLAP.;64 101145 changes to: (FILES BYTECOMPILER) (OPTIMIZERS SYSTEMTYPE NCONC APPEND) (VARS DLAPCOMS) previous date: "18-Sep-86 14:21:01" {ERIS}SOURCES>DLAP.;63) (RPAQQ DLAPCOMS ((FNS C.FLOATBOX C.FLOATUNBOX DASSEM.DASSEM DASSEM.DWRITEFN DASSEM.SAVELOCALVARS DASSEM.DSTOREFNDEF DASSEM.DPRINTLAP DASSEM.EQCONSTANTP DASSEM.MATCHVARS DASSEM.COUNTVARS DASSEM.CANSHAREBINDING) (CONSTANTS NARGMAX NLOCALMAX NFREEMAX) (FNS DASSEM.DASMBIND DASSEM.DSTOREFN DASSEM.ASMAJ) (VARS (EMFLAG) (COMPILEMODE (QUOTE D))) (PROP (MOPVAL AJSIZES) JUMP FJUMP TJUMP NTJUMP NFJUMP) (PROP DOPVAL * DOPVALS) (VARS CONSTOPS (COMPILE.ARG.FAST.FLG) (IPLUSNFLG)) (ADDVARS (8BITEXTS DCOM)) (ADDVARS (MACROPROPS DMACRO ALTOMACRO BYTEMACRO MACRO)) (ADDVARS (COMPILERMACROPROPS DMACRO ALTOMACRO BYTEMACRO MACRO)) (VARS (BYTEASSEMFN (QUOTE DASSEM.DASSEM)) (MAXBVALS 15) (COMPILE.EXT ( QUOTE DCOM)) (BYTECOMPFLG T) (SELECTQFMEMB NIL) (LAMBDANOBIND T) (SELECTVARTYPES (QUOTE (AVAR HVAR))) (CONST.FNS (QUOTE ((NIL (1 CAR (CONST)) (1 CDR (CONST)) (1 NULL (CONST . T)) (2 EQ (FN 1 . NULL))) (0 (2 ITIMES2 (POP) (CONST . 0)) (2 LOGAND2 (POP) (CONST . 0)) (2 IPLUS (FN 1 . FIX)) (2 LOGOR2 (FN 1 . FIX)) (2 \ADDBASE)) (1 (2 ITIMES2 (FN 1 . FIX)))))) (MERGEFRAMEFLG T) (MERGEFRAMEMAX 2) (CLEANFNLIST ( QUOTE (NTYPX EQ AND OR CONS LIST FMEMB MEMB GETP SUB1 ADD1 ZEROP ELT ILESSP LLSH LRSH IPLUS IDIFFERENCE \ARG0 \CALLME GETHASH \ADDBASE))) (OPCODEPROP (QUOTE DOPVAL)) (VCONDITIONALS (QUOTE ( ARRAYP FIXP FLOATP LISTP SMALLP STACKP NUMBERP))) (CONDITIONALS (QUOTE (EQ IGREATERP NULL GREATERP LESSP ILESSP))) (CONSTFNS (QUOTE (IPLUS SUB1 ADD1 ZEROP LLSH LRSH IDIFFERENCE))) (MAXARGS 80) (XVARFLG NIL) (NOFREEVARFNS (QUOTE (RPLACA RPLACD PUTHASH SETA))) (CLEANFNTEST (QUOTE DASSEM.CLEANFNTEST)) ( EQCONSTFN (QUOTE DASSEM.EQCONSTANTP))) (ADDVARS (NUMBERFNS LLSH1 LRSH1 LLSH8 LRSH8)) (CONSTANTS ( SHALLOWFLG NIL) (SPAGHETTIFLG T)) (FNS DASSEM.CLEANFNTEST) (OPTIMIZERS ATOM EVALV FRPLACA GETATOMVAL LIST LITATOM MINUSP IEQP FASSOC SETATOMVAL SYSTEMTYPE) (PROP DMACRO FGETD FGREATERP FLESSP FMEMB FRPLACD GETD GREATERP IGREATERP ILESSP LESSP LLSH LRSH PRINTNUM RESETSAVE RESETVAR RESETVARS RPLACD \FLOATBOX \FLOATUNBOX) (FNS COMP.RPLACD COMP.SHIFT COMP.COMPARENUM COMP.GETD COMP.FMEMB) (PROP PROPTYPE DMACRO) (COMS (* COMP.GETBASE) (OPTIMIZERS \GETBASEBYTE \PUTBASEBYTE \HILOC \LOLOC \VAG2) ( PROP DMACRO \GETBASE \GETBASEPTR \PUTBASE \PUTBASEPTR \RPLPTR \GETBITS \PUTBITS) (FNS COMP.GETBASE COMP.GETBASEBITS)) (COMS (FNS COMP.SPREADFN) (OPTIMIZERS NCONC APPEND)) (COMS (* CAPPLYFN) (PROP DMACRO NILAPPLY .PUSHNILS. SPREADAPPLY .SPREAD. SPREADAPPLY* .EVALFORM. .CALLAFTERPUSHINGNILS. APPLY*) (PROP DOPVAL .SPREADCONS. .SWAPNIL.) (FNS COMP.PUSHNILS COMP.SPREAD COMP.EVALFORM COMP.PUSHCALL COMP.APPLY*)) (COMS (* for ERRORSET ARG and SETARG) (PROP DMACRO .ERRSETQ. ARG SETARG NAMEDLET) (FNS COMP.ERRORSET COMP.ARG COMP.SETARG COMP.NAMEDLET)) (COMS (PROP DMACRO LOADTIMECONSTANT) (VARS LOADTIMECONSTANTMARKER)) (PROP FILETYPE DLAP) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS DASM) ( GLOBALVARS FVINDEXHARRAY) (MACROS PARENTP AST OPCOUNT) (MACROS CHECKRANGE) DONTEVAL@LOAD (FILES ( LOADCOMP) BYTECOMPILER LLCODE)))) C.FLOATBOX D1 (I 0 A F 0 COMPILE.CONTEXT) Pg@g @ (24Q COMP.FLOATBOX 21Q COMP.VAL1 14Q COMP.VALN) (11Q EFFECT 3 EFFECT) () C.FLOATUNBOX D1 (I 0 A F 0 COMPILE.CONTEXT) Pg@g @o (25Q COMP.VAL1 14Q COMP.VALN) (11Q EFFECT 3 EFFECT) ( 22Q (UNBOXED . FLOAT)) DASSEM.DASSEMA0004 D1 (L (1 Y 0 X)) @ANIL NIL () DASSEM.DASSEM D1 (P 46Q F P 45Q N P 44Q N P 43Q JL P 42Q A P 41Q D P 40Q X P 37Q OP P 36Q LL P 35Q CODELOC P 31Q VARS P 30Q FRAME P 27Q FRAMES P 26Q FREELST P 25Q D P 24Q A P 23Q X P 22Q LL P 13Q LOCALS P 12Q CD P 11Q ORG P 10Q NFREEVARS P 7 FREEVARS P 6 NLOCALS P 5 NARGS P 4 FRAMENAME P 3 VARCOUNT P 2 CODE P 1 ARGS P 0 ARGTYPE I 1 CC I 0 FN F 47Q IPLUSNFLG F 50Q TOPFRAME) }'AAAj@g g Hl.I,goghAYJIkIjhjI KJQO$j_(O,g _&_(O&dgO$_*g~O*dgdgQ`hicWN_O*lVjO(hiLO(lhiAO$O*gggO$O(O$_$qgO*kO(O$d SO(`O(3 mO(hi O(nhiO$O$jO(dO(nO$g+O(lO$O(O(lO$gO$O(O$g_$dgPO(O(O0WPO2_OO2 _ dghOO2O O(O._.Ydg3O$O$O&O$ggjgO(O$O4O6O8_$Ndg,O(O,_*O(O&jO,_,O$_$'O*kgO&#dO(` O(k_(O,d_dOdO,_KM^MlMgggglh NlNgggglh O _dldgggglh jJb$O<)O _OF gg @LHIOOO h_@dF_DO@_>gO>dgQO@` _DdMoM_Do_>ODO>O& _OkO>ODhO>gOD_Bd(dgOBdO_O:k_:g _BODOD&OB"OBd3 h_B_DdOJ1OD_B$O@Og#O>gO>gO>gO>dg)O@O_O:hhhOF_FO:O>g Աg!O@hO:hhh_B` OBOF_FO>dguOD`_B1ODl-gO_O:k_:jO_O:k_:gOD]YgO_O:k_:jO_O:k_:jO_O:k_:gOD$gODdgdgOD` _BdMgO_O:k_:OBM_BO<g0OBgO& _OkO<_dg:NOD` _DgO& _"O"kgODhgg.OD_DODOD_B k ` MٰO>gO>dg=OD_DdlODkdjO>O_O:k_:kٰgO@wO>dg$gO_O:k_:ODdjODkٰKgODdO_O:k_:;O>dg%ODO>jgO_O:k_:ODO_O:k_:O<_W.W0NW2HIJO hcBi(1327Q DASSEM.DSTOREFNDEF 1302Q TERPRI 1276Q PRIN3 1262Q PRIN4 1253Q BOUT 1233Q SPACES 1201Q \BOUT 1167Q \FINDOP 1055Q \FINDOP 555Q DREVERSE 533Q PRIN3 523Q TERPRI 517Q PRIN4 511Q TERPRI 505Q PRIN4 457Q \BOUT 450Q \BOUT 440Q \BOUT 431Q \BOUT 422Q \BOUT 410Q \BOUT 400Q PRIN3 370Q PRIN4 362Q TERPRI 356Q PRIN4 343Q PRIN3 333Q PRIN4 317Q GETSTREAM 274Q SETREADTABLE 250Q OUTPUT 231Q DASSEM.DPRINTLAP 144Q DASSEM.SAVELOCALVARS 61Q FLENGTH 56Q \NCONC2 41Q LENGTH 34Q LENGTH 27Q LENGTH 7 RADIX) (1140Q PTR 1113Q ATOM 1065Q FN 713Q P 705Q HVAR 627Q I 621Q HVAR 571Q F 353Q FILERDTBL 347Q CODEINDICATOR 330Q FILERDTBL 314Q OUTPUT 271Q CODERDTBL 266Q SETREADTABLE 243Q OUTPUT 171Q NAME 150Q L 51Q -X- 2 RADIX) ( 1273Q ")" 530Q "(" 375Q " " 340Q " ") DASSEM.DWRITEFN D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 6 CD I 5 FREEVARS I 4 LOCALS I 3 ARGS I 2 ARGTYPE I 1 FRAMENAME I 0 FN F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q DASSEM.DWRITEFNA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DASSEM.DWRITEFNA0001)) DASSEM.SAVELOCALVARS D1 (L (0 FN)) iNIL NIL () DASSEM.DSTOREFNDEFA0040 D1 (NAME ERRORSET F 0 SVFLG F 1 DFNFLG F 2 FN F 3 CA) PhicRS hh(14Q DEFC) NIL () DASSEM.DSTOREFNDEF D1 (P 72Q MACROY P 71Q MACROX P 62Q X P 61Q NT P 57Q X P 56Q NTBYTESIZE P 55Q NT1 P 53Q X P 52Q LOC P 11Q LOCALSIZE P 10Q STARTLOCALS P 7 LOCALARGS P 6 FVAROFFSET P 5 CA P 4 NTWORDS P 3 STARTPC P 2 REALSIZE P 1 FRAMENAME P 0 NTSIZE I 7 NAMETABLE I 6 NFREEVARS I 5 NLOCALS I 4 NARGS I 3 ARGTYPE I 2 LC I 1 CD I 0 FN F 73Q RESETVARSLST F 74Q DFNFLG F 75Q LOADTIMECONSTANTMARKER) ;j@(GdgGbgG_GbGGHkԸHlmGHd؁l\dl[O_O lm_KO[KBlmZdKllm ]AK+ORAGlH/OX_^O^OMClmOk2O`_dOd7_VDMOTOVd3 jOVhiOVlhiOVOVi 5OfOfOhOj{dgMOTOV bdgMOTOV JgMOTOVdWz  +MOTOVi OV8OlOlOnOpOR_ROTk_TMOZO^m MOZO\O^O^dgndgNOZngjm O^_^OZl_ZMObOdm MObOOdjm Od_dObl_bDn__O__OlOǿOOl__OlOǿMEFkkn_*_(O*_"_ O lO"ǿO(O*l_&_$O$lO&ǿMK_._,O,lO.ǿMKl_2_0O0lO2ǿMdMlnCl_6_4O4lO6ǿMl I MH_:_8O8l O:ǿMHl_>_<O<l O>ǿMMlEǿMNj_B_@O@lOBǿMdMlMMldnnk_DjhijODMMlMMldnnkkl,_P_NOP_H_FOFjOHǿONOPl_L_JOJkOLǿgWxWvcv:Wv_tog OrcxOtdWvOrcvWv WvkOt Orh(2245Q ERROR! 2234Q NLEFT 2223Q TAILP 2170Q DASSEM.DSTOREFNDEFA0040 1504Q \FIXCODEPTR 1054Q \FIXCODENUM 1033Q \FIXCODENUM 767Q \FIXCODENUM 761Q SHOULDNT 674Q \FIXCODENUM 574Q \FINDOP 557Q \FIXCODEPTR 552Q EVAL 520Q \FIXCODENUM 470Q \FIXCODENUM 407Q \FINDOP 220Q \CODEARRAY 144Q FLENGTH) (2165Q INTERNAL 2136Q DFNFLG 2123Q ARRAYP 2114Q ARRAYP 2065Q ARRAYP 2056Q ARRAYP 2003Q ARRAYP 1775Q ARRAYP 1762Q ARRAYP 1754Q ARRAYP 1710Q ARRAYP 1702Q ARRAYP 1667Q ARRAYP 1661Q ARRAYP 1643Q ARRAYP 1634Q ARRAYP 1607Q ARRAYP 1601Q ARRAYP 1564Q ARRAYP 1555Q ARRAYP 1527Q ARRAYP 1520Q ARRAYP 1464Q ARRAYP 1455Q ARRAYP 1422Q ARRAYP 1414Q ARRAYP 1376Q ARRAYP 1367Q ARRAYP 1341Q ARRAYP 1332Q ARRAYP 1306Q ARRAYP 1277Q ARRAYP 1247Q ARRAYP 1240Q ARRAYP 1172Q ARRAYP 1163Q ARRAYP 1133Q ARRAYP 1124Q ARRAYP 1025Q LITATOM 752Q I 732Q F 716Q P 666Q LITATOM 622Q ARRAYP 613Q ARRAYP 526Q PTR 514Q LITATOM 477Q ATOM 464Q LITATOM 447Q FN 427Q ARRAYP 420Q ARRAYP 40Q L 21Q NAME) ( 2162Q (DASSEM.DSTOREFNDEFA0040)) DASSEM.DPRINTLAPA0001 D1 (NAME ERRORSET F 0 RESETVARSLST F 1 LSTFIL F 2 FN F 3 RESETY F 4 NAMETABLE F 5 ARGTYPE F 6 CD) ygQ hhPcgl hhPcR h o h T h o o U h Vhdddg h h ci(163Q TERPRI 156Q TERPRI 151Q MAPRINT 134Q TERPRI 127Q PRIN1 122Q PRIN1 112Q PRIN1 102Q TERPRI 75Q PRIN2 70Q TERPRI 63Q PRIN1 53Q TERPRI 46Q PRIN2 30Q RADIX 6 OUTPUT) (145Q PRIN2 23Q RADIX 2 OUTPUT) ( 117Q " argtype: " 107Q "code length: " 60Q "name table: ") DASSEM.DPRINTLAP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 CD I 2 ARGTYPE I 1 NAMETABLE I 0 FN F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q DASSEM.DPRINTLAPA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (DASSEM.DPRINTLAPA0001)) DASSEM.EQCONSTANTP D1 (L (1 FLG 0 ARG)) #@l@3 o@hi @nhiNIL NIL ( 17Q -200000Q) DASSEM.MATCHVARS D1 (P 5 X P 4 VAR I 1 TAIL I 0 VARS) A@"IHigA@"KJKhIHJ(iA@A` ` @b)AAbLM hKJ@ A@hAAb@ Ad@(205Q DASSEM.COUNTVARS 162Q DASSEM.COUNTVARS 142Q DASSEM.CANSHAREBINDING 111Q PUTHASH 103Q GETHASH) (106Q VCA 100Q VCA) () DASSEM.COUNTVARS D1 (L (0 VARS) F 0 VARCOUNT) @dPdkc` h(21Q PUTHASH) (16Q VCA) () DASSEM.CANSHAREBINDING D1 (L (1 V2 0 V1) F 10Q FRAME F 11Q FRAMES) {@A WqHiYhZh h[` A` KiJi7IWLML` \hiWI_NON` ^hiHX(153Q GETHASH 117Q GETHASH 60Q GETHASH 51Q GETHASH) (150Q FRA 114Q FRA 55Q VCA 46Q VCA) () (RPAQQ NARGMAX 127) (RPAQQ NLOCALMAX 127) (RPAQQ NFREEMAX 127) (CONSTANTS NARGMAX NLOCALMAX NFREEMAX) DASSEM.DASMBIND D1 (I 2 K I 1 NN I 0 NV F 0 CD F 1 CODELOC) c@l@o Al @lB jAlB@lbbbgPcQkcA@PcQkcB@AkPcQkc(33Q DASSEM.DASMBIND 15Q COMPERROR) (65Q BIND) ( 11Q (- too many values bound)) DASSEM.DSTOREFN D1 (L (0 X) F 0 CD F 1 CODELOC) jPcQkcg@PcQkcNIL (15Q FN) () DASSEM.ASMAJ D1 (P 2 S P 1 Y P 0 OP I 1 D I 0 P) "@!Hg Y@Ag ZdkD@lA/Ak&ddggdgdgghIAlhl4@IjAmAAn؋AdlA@KLMJdldlJlIg@IAmb@Ig@b@@Al lAl@7l/@IlogAlnbAl@KLMh(436Q OPT.COMPILERERROR 333Q RSH 262Q OPT.COMPILERERROR 204Q OPT.COMPILERERROR 163Q OPT.COMPILERERROR 120Q COMPILER.ERROR 26Q OPT.JSIZE 14Q GETP) (373Q JUMPXX 312Q JUMPXX 255Q JUMPXX 110Q POP 102Q FJUMP 74Q TJUMP 66Q NOP 60Q JUMP 23Q AJSIZES 11Q MOPVAL) ( 370Q (JUMP 2)) (RPAQQ EMFLAG NIL) (RPAQQ COMPILEMODE D) (PUTPROPS JUMP MOPVAL (JUMP JUMPX JUMPXX)) (PUTPROPS FJUMP MOPVAL (FJUMP FJUMPX (TJUMP 2))) (PUTPROPS TJUMP MOPVAL (TJUMP TJUMPX (FJUMP 2))) (PUTPROPS NTJUMP MOPVAL (NIL NTJUMPX)) (PUTPROPS NFJUMP MOPVAL (NIL NFJUMPX)) (PUTPROPS JUMP AJSIZES ((1 . 3) 18 (1 (-127 3 . 2) . 1) 127 2 . 3)) (PUTPROPS FJUMP AJSIZES ((1 . 4) 18 (1 (-127 4 . 2) . 1) 127 2 . 4)) (PUTPROPS TJUMP AJSIZES ((1 . 4) 18 (1 (-127 4 . 2) . 1) 127 2 . 4)) (PUTPROPS NTJUMP AJSIZES ((2 . 6) 18 (2 (-127 6 . 2) . 2) 127 2 . 6)) (PUTPROPS NFJUMP AJSIZES ((2 . 6) 18 (2 (-127 6 . 2) . 2) 127 2 . 6)) (RPAQQ DOPVALS (.APPLYFN. ARRAYP ASSOC BIN CAR CDR CONS CREATECELL DIFFERENCE EQ EQL EQUAL FDIFFERENCE FGREATERP FIX FIXP FLESSP FLOAT FLOATP FMEMB FPLUS FQUOTIENT FTIMES GREATERP IDIFFERENCE IGREATERP ILESSP IPLUS IQUOTIENT IREMAINDER ITIMES LESSP LISTGET LISTP LLSH1 LLSH8 LOGAND LOGOR LOGXOR LRSH1 LRSH8 LSH NTYPX NULL NUMBERP PLUS QUOTIENT READPRINTERPORT RPLACA RPLACD SMALLP STACKP STRINGP TIMES WRITEPRINTERPORT \ADDBASE \ARG0 \BIN \BLKEXPONENT \BLKFDIFF \BLKFLOATP2COMP \BLKFPLUS \BLKFTIMES \BLKMAG \BLKPERM \BLKSEP \BLKSMALLP2FLOAT \BLT \BOXIDIFFERENCE \BOXIPLUS \CONTEXTSWITCH \DRAWLINE.UFN \EVAL \FLOAT.BOX \FLOATBOX \FLOATUNBOX \GCRECLAIMCELL \GCSCAN1 \GCSCAN2 \IBLT1 \IBLT2 \MAKENUMBER \MTIMES3 \MTIMES4 \MYALINK \MYARGCOUNT \PILOTBITBLT \PIXELBLT \RCLK \READFLAGS \READRP \RPLCONS \STKSCAN \WRITEMAP \\ADDBASE)) (PUTPROPS .APPLYFN. DOPVAL ((NIL APPLYFN))) (PUTPROPS ARRAYP DOPVAL (1 TYPEP 6)) (PUTPROPS ASSOC DOPVAL (2 ASSOC)) (PUTPROPS BIN DOPVAL (1 BIN)) (PUTPROPS CAR DOPVAL (1 CAR)) (PUTPROPS CDR DOPVAL (1 CDR)) (PUTPROPS CONS DOPVAL (2 CONS)) (PUTPROPS CREATECELL DOPVAL (1 CREATECELL)) (PUTPROPS DIFFERENCE DOPVAL (2 DIFFERENCE)) (PUTPROPS EQ DOPVAL (2 EQ)) (PUTPROPS EQL DOPVAL (2 EQL)) (PUTPROPS EQUAL DOPVAL (2 EQUAL)) (PUTPROPS FDIFFERENCE DOPVAL (2 FDIFFERENCE)) (PUTPROPS FGREATERP DOPVAL (2 FGREATERP)) (PUTPROPS FIX DOPVAL (1 '0 IPLUS2)) (PUTPROPS FIXP DOPVAL (1 TYPEMASK.N 32)) (PUTPROPS FLESSP DOPVAL (2 SWAP FGREATERP)) (PUTPROPS FLOAT DOPVAL ((1 DTEST 0 (ATOM . FLOATP)))) (PUTPROPS FLOATP DOPVAL (1 TYPEP 3)) (PUTPROPS FMEMB DOPVAL (2 FMEMB)) (PUTPROPS FPLUS DOPVAL ((2 FPLUS2))) (PUTPROPS FQUOTIENT DOPVAL (2 FQUOTIENT)) (PUTPROPS FTIMES DOPVAL ((2 FTIMES2))) (PUTPROPS GREATERP DOPVAL (2 GREATERP)) (PUTPROPS IDIFFERENCE DOPVAL (2 IDIFFERENCE)) (PUTPROPS IGREATERP DOPVAL (2 IGREATERP)) (PUTPROPS ILESSP DOPVAL (2 SWAP IGREATERP)) (PUTPROPS IPLUS DOPVAL ((0 . OPT.COMPILERERROR) (1 '0 IPLUS2) (2 IPLUS2) . OPT.COMPILERERROR)) (PUTPROPS IQUOTIENT DOPVAL (2 IQUOTIENT)) (PUTPROPS IREMAINDER DOPVAL (2 IREMAINDER)) (PUTPROPS ITIMES DOPVAL ((0 . OPT.COMPILERERROR) (1 0 IPLUS2) (2 ITIMES2) . OPT.COMPILERERROR)) (PUTPROPS LESSP DOPVAL (2 SWAP GREATERP)) (PUTPROPS LISTGET DOPVAL (2 LISTGET)) (PUTPROPS LISTP DOPVAL (1 LISTP)) (PUTPROPS LLSH1 DOPVAL (1 LLSH1)) (PUTPROPS LLSH8 DOPVAL (1 LLSH8)) (PUTPROPS LOGAND DOPVAL ((2 LOGAND2))) (PUTPROPS LOGOR DOPVAL ((2 LOGOR2))) (PUTPROPS LOGXOR DOPVAL ((2 LOGXOR2))) (PUTPROPS LRSH1 DOPVAL (1 LRSH1)) (PUTPROPS LRSH8 DOPVAL (1 LRSH8)) (PUTPROPS LSH DOPVAL (2 LSH)) (PUTPROPS NTYPX DOPVAL (1 NTYPX)) (PUTPROPS NULL DOPVAL (1 'NIL EQ)) (PUTPROPS NUMBERP DOPVAL (1 TYPEMASK.N 16)) (PUTPROPS PLUS DOPVAL ((1 '0 PLUS2) (2 PLUS2) . OPT.COMPILERERROR)) (PUTPROPS QUOTIENT DOPVAL (2 QUOTIENT)) (PUTPROPS READPRINTERPORT DOPVAL (0 READPRINTERPORT)) (PUTPROPS RPLACA DOPVAL (2 RPLACA)) (PUTPROPS RPLACD DOPVAL (2 RPLACD)) (PUTPROPS SMALLP DOPVAL (1 TYPEP 1)) (PUTPROPS STACKP DOPVAL (1 TYPEP 8)) (PUTPROPS STRINGP DOPVAL (1 TYPEP 7)) (PUTPROPS TIMES DOPVAL ((2 TIMES2))) (PUTPROPS WRITEPRINTERPORT DOPVAL (1 WRITEPRINTERPORT)) (PUTPROPS \ADDBASE DOPVAL (2 ADDBASE)) (PUTPROPS \ARG0 DOPVAL (1 ARG0)) (PUTPROPS \BIN DOPVAL (1 BIN)) (PUTPROPS \BLKEXPONENT DOPVAL (3 MISC3 0)) (PUTPROPS \BLKFDIFF DOPVAL (4 MISC4 3)) (PUTPROPS \BLKFLOATP2COMP DOPVAL (3 MISC3 3)) (PUTPROPS \BLKFPLUS DOPVAL (4 MISC4 2)) (PUTPROPS \BLKFTIMES DOPVAL (4 MISC4 0)) (PUTPROPS \BLKMAG DOPVAL (3 MISC3 1)) (PUTPROPS \BLKPERM DOPVAL (4 MISC4 1)) (PUTPROPS \BLKSEP DOPVAL (4 MISC4 4)) (PUTPROPS \BLKSMALLP2FLOAT DOPVAL (3 MISC3 2)) (PUTPROPS \BLT DOPVAL (3 BLT)) (PUTPROPS \BOXIDIFFERENCE DOPVAL (2 BOXIDIFFERENCE)) (PUTPROPS \BOXIPLUS DOPVAL (2 BOXIPLUS)) (PUTPROPS \CONTEXTSWITCH DOPVAL (1 CONTEXTSWITCH)) (PUTPROPS \DRAWLINE.UFN DOPVAL (9 DRAWLINE)) (PUTPROPS \EVAL DOPVAL (1 EVAL)) (PUTPROPS \FLOAT.BOX DOPVAL (1 GCONST 0 0 (PTR . 0.0) FPLUS2)) (PUTPROPS \FLOATBOX DOPVAL (1 UBFLOAT1 0)) (PUTPROPS \FLOATUNBOX DOPVAL (1 UBFLOAT1 1)) (PUTPROPS \GCRECLAIMCELL DOPVAL (1 RECLAIMCELL)) (PUTPROPS \GCSCAN1 DOPVAL (1 GCSCAN1)) (PUTPROPS \GCSCAN2 DOPVAL (1 GCSCAN2)) (PUTPROPS \IBLT1 DOPVAL (8 MISC8 0)) (PUTPROPS \IBLT2 DOPVAL (8 MISC8 1)) (PUTPROPS \MAKENUMBER DOPVAL (2 MAKENUMBER)) (PUTPROPS \MTIMES3 DOPVAL (3 UBFLOAT3 1)) (PUTPROPS \MTIMES4 DOPVAL (3 UBFLOAT3 2)) (PUTPROPS \MYALINK DOPVAL (1 MYALINK)) (PUTPROPS \MYARGCOUNT DOPVAL (0 MYARGCOUNT)) (PUTPROPS \PILOTBITBLT DOPVAL (2 PILOTBITBLT)) (PUTPROPS \PIXELBLT DOPVAL (10 MISC10 0)) (PUTPROPS \RCLK DOPVAL (1 RCLK)) (PUTPROPS \READFLAGS DOPVAL (1 READFLAGS)) (PUTPROPS \READRP DOPVAL (1 READRP)) (PUTPROPS \RPLCONS DOPVAL (2 RPLCONS)) (PUTPROPS \STKSCAN DOPVAL (1 STKSCAN)) (PUTPROPS \WRITEMAP DOPVAL (3 WRITEMAP)) (PUTPROPS \\ADDBASE DOPVAL (2 ADDBASE)) (RPAQQ CONSTOPS ((NIL . 'NIL) (T . 'T) (0 . '0) (1 . '1))) (RPAQQ COMPILE.ARG.FAST.FLG NIL) (RPAQQ IPLUSNFLG NIL) (ADDTOVAR 8BITEXTS DCOM) (ADDTOVAR MACROPROPS DMACRO ALTOMACRO BYTEMACRO MACRO) (ADDTOVAR COMPILERMACROPROPS DMACRO ALTOMACRO BYTEMACRO MACRO) (RPAQQ BYTEASSEMFN DASSEM.DASSEM) (RPAQQ MAXBVALS 15) (RPAQQ COMPILE.EXT DCOM) (RPAQQ BYTECOMPFLG T) (RPAQQ SELECTQFMEMB NIL) (RPAQQ LAMBDANOBIND T) (RPAQQ SELECTVARTYPES (AVAR HVAR)) (RPAQQ CONST.FNS ((NIL (1 CAR (CONST)) (1 CDR (CONST)) (1 NULL (CONST . T)) (2 EQ (FN 1 . NULL))) (0 ( 2 ITIMES2 (POP) (CONST . 0)) (2 LOGAND2 (POP) (CONST . 0)) (2 IPLUS (FN 1 . FIX)) (2 LOGOR2 (FN 1 . FIX)) (2 \ADDBASE)) (1 (2 ITIMES2 (FN 1 . FIX))))) (RPAQQ MERGEFRAMEFLG T) (RPAQQ MERGEFRAMEMAX 2) (RPAQQ CLEANFNLIST (NTYPX EQ AND OR CONS LIST FMEMB MEMB GETP SUB1 ADD1 ZEROP ELT ILESSP LLSH LRSH IPLUS IDIFFERENCE \ARG0 \CALLME GETHASH \ADDBASE)) (RPAQQ OPCODEPROP DOPVAL) (RPAQQ VCONDITIONALS (ARRAYP FIXP FLOATP LISTP SMALLP STACKP NUMBERP)) (RPAQQ CONDITIONALS (EQ IGREATERP NULL GREATERP LESSP ILESSP)) (RPAQQ CONSTFNS (IPLUS SUB1 ADD1 ZEROP LLSH LRSH IDIFFERENCE)) (RPAQQ MAXARGS 80) (RPAQQ XVARFLG NIL) (RPAQQ NOFREEVARFNS (RPLACA RPLACD PUTHASH SETA)) (RPAQQ CLEANFNTEST DASSEM.CLEANFNTEST) (RPAQQ EQCONSTFN DASSEM.EQCONSTANTP) (ADDTOVAR NUMBERFNS LLSH1 LRSH1 LLSH8 LRSH8) (RPAQQ SHALLOWFLG NIL) (RPAQQ SPAGHETTIFLG T) (CONSTANTS (SHALLOWFLG NIL) (SPAGHETTIFLG T)) DASSEM.CLEANFNTEST D1 (I 1 TYPE I 0 FN) @dl@g 7@`0@`)@`"@`Adg@`g@`g@bhiB@dgdg@dg@dg𒿰g@@@gi(15Q GETPROP) (224Q IVAR 201Q GCONST 171Q ARG0 155Q GETBITS.N.FD 142Q GETBASE.N 134Q GETBASEPTR.N 111Q OPCODES 103Q NOSIDEFNS 74Q NOSIDE 67Q NOFREEVARFNS 60Q FREEVARS 50Q CLEANFNLIST 41Q NUMBERFNS 32Q VCONDITIONALS 23Q CONDITIONALS 12Q CROPS) () optimize-ATOM D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 10Q (OPENLAMBDA (X) (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 optimize-ATOM)))) optimize-EVALV D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @HggHNIL (17Q \EVALV1 13Q IGNOREMACRO) () (PUTPROP (QUOTE EVALV) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE EVALV) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-EVALV)))) optimize-FRPLACA D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHNIL (7 RPLACA) () (PUTPROP (QUOTE FRPLACA) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE FRPLACA) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-FRPLACA)))) optimize-GETATOMVAL D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHhNIL (10Q GETTOPVAL) () (PUTPROP (QUOTE GETATOMVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE GETATOMVAL) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-GETATOMVAL)))) optimize-LIST D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @HgHgHhNIL (17Q LIST 12Q CONS) () (PUTPROP (QUOTE LIST) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE LIST) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-LIST)))) optimize-LITATOM D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ggHhoNIL (13Q NTYPX 10Q EQ) ( 23Q (4)) (PUTPROP (QUOTE LITATOM) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE LITATOM) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-LITATOM)))) optimize-MINUSP D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gjHhNIL (10Q GREATERP) () (PUTPROP (QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-MINUSP)))) optimize-IEQP D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHgjgIJhhNIL (22Q IDIFFERENCE 16Q EQ) () (PUTPROP (QUOTE IEQP) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE IEQP) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-IEQP)))) optimize-FASSOC D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHNIL (7 ASSOC) () (PUTPROP (QUOTE FASSOC) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE FASSOC) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-FASSOC)))) optimize-SETATOMVAL D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHgIJhNIL (16Q SETTOPVAL) () (PUTPROP (QUOTE SETATOMVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE SETATOMVAL) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-SETATOMVAL)))) optimize-SYSTEMTYPE D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) oNIL NIL ( 3 (QUOTE D)) (PUTPROP (QUOTE SYSTEMTYPE) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE SYSTEMTYPE) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-SYSTEMTYPE)))) (PUTPROPS FGETD DMACRO COMP.GETD) (PUTPROPS FGREATERP DMACRO (APPLY* COMP.COMPARENUM FLOAT FGREATERP NIL (OPCODES UBFLOAT2 5))) (PUTPROPS FLESSP DMACRO (APPLY* COMP.COMPARENUM FLOAT FLESSP FGREATERP (OPCODES SWAP UBFLOAT2 5))) (PUTPROPS FMEMB DMACRO COMP.FMEMB) (PUTPROPS FRPLACD DMACRO COMP.RPLACD) (PUTPROPS GETD DMACRO COMP.GETD) (PUTPROPS GREATERP DMACRO (APPLY* COMP.COMPARENUM PLUS GREATERP)) (PUTPROPS IGREATERP DMACRO (APPLY* COMP.COMPARENUM FIX IGREATERP)) (PUTPROPS ILESSP DMACRO (APPLY* COMP.COMPARENUM FIX ILESSP IGREATERP)) (PUTPROPS LESSP DMACRO (APPLY* COMP.COMPARENUM PLUS LESSP GREATERP)) (PUTPROPS LLSH DMACRO COMP.SHIFT) (PUTPROPS LRSH DMACRO COMP.SHIFT) (PUTPROPS PRINTNUM DMACRO T) (PUTPROPS RESETSAVE DMACRO (X (LIST (QUOTE SETQ) (QUOTE RESETVARSLST) (LIST (QUOTE CONS) (COND ((AND ( ATOM (CAR X)) (CAR X)) (SUBPAIR (QUOTE (VAR VAL)) X (QUOTE (PROG1 (CONS (QUOTE VAR) (GETTOPVAL (QUOTE VAR))) (SETTOPVAL (QUOTE VAR) VAL))))) ((CDR X) (LIST (QUOTE LIST) (CADR X) (CAR X))) (T (LIST (QUOTE LIST) (LIST (QUOTE LIST) (LIST (QUOTE QUOTE) (COND ((EQ (CAAR X) (QUOTE SETQ)) (CAR (CADDAR X))) (T ( CAAR X)))) (CAR X))))) (QUOTE RESETVARSLST))))) (PUTPROPS RESETVAR DMACRO ((VAR VAL FORM) (PROG (MACROX MACROY) (SETQ MACROX (SETQ RESETVARSLST (CONS (CONS (QUOTE VAR) (GETTOPVAL (QUOTE VAR))) RESETVARSLST))) (SETQ MACROY (XNLSETQ (PROGN (SETTOPVAL ( QUOTE VAR) VAL) FORM) INTERNAL)) (SETTOPVAL (QUOTE VAR) (CDAR MACROX)) (SETQ RESETVARSLST (CDR MACROX) ) (COND (MACROY (RETURN (CAR MACROY)))) (ERROR!)))) (PUTPROPS RESETVARS DMACRO (TAIL (PROG ((VARS (MAPCAR (CAR TAIL) (FUNCTION (LAMBDA (Z) (SETQ Z (MKLIST Z)) (AND EMFLAG (NOT (COMP.GLOBALVARP (CAR Z))) (COMPERRM (CONS (CAR Z) (QUOTE (- not GLOBALVAR in RESETVARS))))) Z))))) (RETURN (BQUOTE (PROG ((MACROX (SETQ RESETVARSLST , (PROG ((Z (QUOTE RESETVARSLST))) (MAPC (REVERSE VARS) (FUNCTION (LAMBDA (V) (SETQ Z (BQUOTE (CONS (CONS (QUOTE , (CAR V )) , (CAR V)) , Z)))))) (RETURN Z)))) MACROY) (SETQ MACROY RESETVARSLST) (RETURN (CAR (OR (PROG1 ( XNLSETQ (PROG NIL (PROGN ,. (MAPCAR VARS (FUNCTION (LAMBDA (V) (CONS (QUOTE SETQ) V))))) ,. (CDR TAIL) ) INTERNAL) ,. (MAPCON VARS (FUNCTION (LAMBDA (V) (BQUOTE ((SETQ , (CAAR V) (CDAR MACROX)) , (COND (( CDR V) (QUOTE (SETQ MACROX (CDR MACROX)))) (T (QUOTE (COND ((EQ MACROY RESETVARSLST) (SETQ RESETVARSLST (CDR MACROX))) ((TAILP MACROY RESETVARSLST) (RPLACD (NLEFT RESETVARSLST 1 MACROY) (CDR MACROX))))))))))))) (ERROR!)))))))))) (PUTPROPS RPLACD DMACRO COMP.RPLACD) (PUTPROPS \FLOATBOX DMACRO C.FLOATBOX) (PUTPROPS \FLOATUNBOX DMACRO C.FLOATUNBOX) COMP.RPLACD D1 (I 0 A F 0 CODE F 1 COMPILE.CONTEXT) @ Pg aPdj3Pdgdgdgdgdgkٰ̿@ gP`kl Qg@ Pdg(gk PPcgl j Pgk ggl g(313Q COMP.STPOP 307Q COMP.STFN 272Q COMP.DELFN 266Q OPT.CALLP 253Q COMP.ST 246Q COMP.STFN 235Q COMP.DELFN 221Q OPT.CALLP 175Q COMP.VAL1 167Q COMP.STCOPY 155Q COMP.STFN 145Q COMP.DELPUSH 127Q COMP.VAL1 114Q COMP.STPOP 107Q COMP.DELPUSH 32Q COMP.STCONST 26Q COMP.DELFN 15Q OPT.CALLP 4 COMP.EXPR) (316Q NOVALUE 302Q RPLACD 276Q \RPLCONS 262Q CONS 241Q \RPLCONS 215Q CONS 205Q SETQ 162Q EFFECT 140Q OPNIL 133Q CONS 101Q GVAR 73Q HVAR 65Q FVAR 56Q AVAR 47Q CONST 12Q CONS) () COMP.SHIFT D1 (P 1 FNS P 0 N I 0 A F 3 CODE F 4 EXP) @ @ SgS!H3 Ho SgTSHlJ HdjhjTjHٸTggggooHlIk HlXHjIk HkXTl (253Q COMP.STFN 235Q COMP.STFN 212Q COMP.STFN 117Q COMP.STCONST 113Q COMP.DELPUSH 62Q COMP.DELPUSH 56Q COMPERROR 20Q COMP.DELFIX 15Q COMP.VAL 7 COMP.DELFIX 4 COMP.VAL) (163Q LLSH 160Q LLSH 154Q LRSH 147Q LLSH 71Q CONST 26Q CONST) ( 176Q (LRSH8 . LRSH1) 171Q (LLSH8 . LLSH1) 52Q (non-numeric arg to shift)) COMP.COMPARENUM D1 (P 0 V1 I 3 OFN I 2 FN I 1 TYPE I 0 A F 2 CODE F 3 COMPILE.CONTEXT)  Sg@ C@ X-@A A CxRdg7RYd,di'3h@hChbbbigIhIX dgdgdgdgRXh@ A H Cl @A A C@H=RdgdgdgdgdgihRHRHHRCBl h(354Q COMP.STFN 245Q COMP.DELFIX 241Q COMP.VAL1 232Q COMP.STFN 224Q COMP.VAL 220Q COMP.DELFIX 214Q COMP.VAL1 207Q COMP.DELPUSH 42Q COMP.DELFIX 36Q COMP.EXPR 25Q CONSTANTEXPRESSIONP 14Q COMP.PROGN) (314Q GVAR 306Q FVAR 300Q HVAR 271Q AVAR 262Q CONST 173Q FVAR 165Q GVAR 157Q HVAR 150Q AVAR 133Q QUOTE 54Q CONST 6 EFFECT) () COMP.GETD D1 (I 0 A F 0 COMPILE.CONTEXT F 1 EXP) :@ Pdgg PdgdgdggQk (67Q COMP.STFN 25Q COMP.PREDP 16Q COMP.STPOP 3 COMP.VAL1) (57Q \DEFINEDP 51Q NFJUMP 43Q FJUMP 35Q TJUMP 21Q NOVALUE 10Q EFFECT) () COMP.FMEMB D1 (I 0 A F 0 COMPILE.CONTEXT F 1 CODE F 2 EXP) dPg@P @@b @ P =Qg4Pdgdgdgih`Qihhh Rl (141Q COMP.STFN 131Q COMP.SELECTQ 114Q COMP.DELPUSH 35Q COMP.PREDP 31Q COMP.VAL1 25Q COMP.EXPR 12Q COMP.VALN) (106Q DONOTHING 72Q NFJUMP 64Q TJUMP 56Q FJUMP 45Q CONST 3 EFFECT) () (PUTPROPS DMACRO PROPTYPE MACROS) optimize-\GETBASEBYTE D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHoIJhNIL NIL ( 17Q (OPCODES GETBASEBYTE)) (PUTPROP (QUOTE \GETBASEBYTE) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE \GETBASEBYTE) ( QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-\GETBASEBYTE)))) optimize-\PUTBASEBYTE D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AHHZJoIKLhNIL NIL ( 24Q (OPCODES PUTBASEBYTE)) (PUTPROP (QUOTE \PUTBASEBYTE) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE \PUTBASEBYTE) ( QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-\PUTBASEBYTE)))) optimize-\HILOC D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHhNIL NIL ( 11Q (OPCODES HILOC)) (PUTPROP (QUOTE \HILOC) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE \HILOC) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-\HILOC)))) optimize-\LOLOC D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHhNIL NIL ( 11Q (OPCODES LOLOC)) (PUTPROP (QUOTE \LOLOC) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE \LOLOC) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-\LOLOC)))) optimize-\VAG2 D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHoIJhNIL NIL ( 17Q (OPCODES VAG2)) (PUTPROP (QUOTE \VAG2) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE \VAG2) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-\VAG2)))) (PUTPROPS \GETBASE DMACRO (APPLY* COMP.GETBASE NIL GETBASE.N)) (PUTPROPS \GETBASEPTR DMACRO (APPLY* COMP.GETBASE NIL GETBASEPTR.N)) (PUTPROPS \PUTBASE DMACRO (APPLY* COMP.GETBASE T PUTBASE.N)) (PUTPROPS \PUTBASEPTR DMACRO (APPLY* COMP.GETBASE T PUTBASEPTR.N)) (PUTPROPS \RPLPTR DMACRO (APPLY* COMP.GETBASE T RPLPTR.N)) (PUTPROPS \GETBITS DMACRO (APPLY* COMP.GETBASEBITS)) (PUTPROPS \PUTBITS DMACRO (APPLY* COMP.GETBASEBITS T)) COMP.GETBASE D1 (P 0 OFF I 2 OPCODE I 1 STFLG I 0 A F 1 CODE F 2 COMPILE.CONTEXT F 3 EXP) A-RghigoSogh@ AhiRg@g j@@b Qgl QgHQԸ@@bo QgQ3 HQԸgl jHHlH gl jA@@bo @d Bg+AgggHggHkok gBHhAl(402Q COMP.STFN 337Q HELP 316Q COMP.EFFECT 306Q COMP.EXPR 263Q COMP.STFN 252Q COMP.STCONST 234Q COMP.STFN 223Q COMP.DELPUSH 174Q COMP.EXPR 155Q COMP.DELPUSH 143Q COMP.DELFN 125Q OPT.CALLP 113Q COMP.VAL 74Q COMP.VALN 50Q COMP.VAL) (406Q OPCODES 360Q GETBASE.N 355Q SWAP 351Q GETBASE.N 346Q COPY 343Q OPCODES 327Q GETBASE.32 256Q \ADDBASE 227Q \ADDBASE 202Q CONST 136Q CONST 120Q \ADDBASE 71Q EFFECT 63Q EFFECT 36Q V 20Q OPENLAMBDA 6 EFFECT) ( 367Q (VAG2) 303Q (TYPE . FIX) 171Q (TYPE . FIX) 32Q (X N V) 24Q (X N V)) COMP.GETBASEBITS D1 (P 0 OFF I 1 STFLG I 0 A F 1 CODE F 2 COMPILE.CONTEXT F 3 EXP) A@Rghi5goSg@@ghgh@@h @@ Qgl QgHQԸjHHlH gl jA@ g@lAgHhgHhAggH@hAlk (314Q COMP.STFN 221Q COMP.VAL 204Q COMP.STFN 173Q COMP.STCONST 155Q COMP.DELPUSH 143Q COMP.DELFN 125Q OPT.CALLP 113Q COMP.VAL 77Q COMP.VAL) (271Q GETBITS.N.FD 265Q PUTBITS.N.FD 253Q GETBASE.N 243Q PUTBASE.N 225Q OPCODES 177Q \ADDBASE 136Q CONST 120Q \ADDBASE 54Q V 43Q V 31Q X 20Q OPENLAMBDA 6 EFFECT) ( 24Q (X V)) COMP.SPREADFN D1 (I 1 ARGS I 0 2FN) Ad@A@A@A h(25Q COMP.SPREADFN) NIL () optimize-NCONC D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) %@HdgHgHgHhNIL (33Q NCONC 26Q \NCONC2 20Q \NCONC2) () (PUTPROP (QUOTE NCONC) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE NCONC) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-NCONC)))) optimize-APPEND D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) /@HdgHhhgHgHgHhNIL (45Q APPEND 40Q \APPEND2 32Q \APPEND2 14Q \APPEND2) () (PUTPROP (QUOTE APPEND) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE APPEND) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-APPEND)))) (PUTPROPS NILAPPLY DMACRO (OPENLAMBDA (FN N) (.PUSHNILS. N FN))) (PUTPROPS .PUSHNILS. DMACRO (APPLY COMP.PUSHNILS)) (PUTPROPS SPREADAPPLY DMACRO (OPENLAMBDA (FN ARGLIST) (PROG ((CNT 0)) (DECLARE (LOCALVARS . T)) ( RETURN (.SPREAD. ARGLIST CNT FN))))) (PUTPROPS .SPREAD. DMACRO (APPLY COMP.SPREAD)) (PUTPROPS SPREADAPPLY* DMACRO (X (LIST (LIST (QUOTE OPENLAMBDA) (QUOTE ($$FN)) (CONS (QUOTE .APPLYFN.) (APPEND (CDR X) (LIST (LENGTH (CDR X)) (QUOTE $$FN))))) (CAR X)))) (PUTPROPS .EVALFORM. DMACRO COMP.EVALFORM) (PUTPROPS .CALLAFTERPUSHINGNILS. DMACRO (APPLY COMP.PUSHCALL)) (PUTPROPS APPLY* DMACRO COMP.APPLY*) (PUTPROPS .SPREADCONS. DOPVAL (1 COPY CAR SWAP CDR)) (PUTPROPS .SWAPNIL. DOPVAL (2 SWAP)) COMP.PUSHNILS D1 (P 3 FR P 2 LEV P 1 LP P 0 CHK I 1 FN I 0 N F 4 LBCNT F 5 LEVEL F 6 FRAME) w@ gTkchgTkchUVgH Jc Kc I gl k gl H j gl gI @ A gl h(163Q COMP.STFN 153Q COMP.VAL 147Q COMP.VAL 143Q COMP.STPOP 140Q COMP.STJUMP 131Q COMP.STFN 121Q COMP.STCONST 115Q COMP.STCOPY 112Q COMP.STTAG 106Q COMP.STFN 76Q COMP.STCONST 72Q COMP.STFN 62Q COMP.STCONST 57Q COMP.STTAG 45Q COMP.STJUMP 3 COMP.EXPR) (156Q .APPLYFN. 134Q TJUMP 124Q IGREATERP 101Q IDIFFERENCE 65Q .SWAPNIL. 41Q JUMP 21Q TAG 6 TAG) () COMP.SPREAD D1 (P 6 ARG P 5 N P 4 X P 3 FR P 2 LEV P 1 LP P 0 LSTCHECK I 3 APPLYTOEACH I 2 FN I 1 VAR I 0 L F 7 LBCNT F 10Q LEVEL F 11Q FRAME F 12Q CALL-ARGUMENTS-LIMIT) @g.@$@g@l@l ihhi@Cb@ gWkchgWkchWWgH JcKcI ok C7dLlLk "kLdN Mk]LM ok gggAhWhoh H gI A B gl (372Q COMP.STFN 362Q COMP.VAL 356Q COMP.VAL 352Q COMP.STJUMP 343Q COMP.STTAG 337Q COMP.EFFECT 301Q COMP.STFN 263Q COMP.STFN 243Q COMP.EXPR 221Q COMP.STFN 176Q COMP.STFN 166Q COMP.STTAG 154Q COMP.STJUMP 106Q COMP.EXPR 54Q EQLENGTH) (365Q .APPLYFN. 346Q NTJUMP 312Q ADD1VAR 307Q IGREATERP 304Q AND 150Q JUMP 125Q TAG 111Q TAG 25Q FUNCTION 4 MAPCAR) ( 330Q (LISPERROR "TOO MANY ARGUMENTS") 275Q (OPCODES SWAP CDR) 172Q (OPCODES COPY CAR)) COMP.EVALFORM D1 (P 1 LP P 0 DONE F 2 LBCNT F 3 LEVEL F 4 COMPILE.CONTEXT F 5 MAXARGS) TggRkchgRkchg I o gH o ggoUhgoghh SkcgI H o o g gl (224Q COMP.STRETURN 221Q COMP.STFN 211Q COMP.VAL 203Q COMP.VAL 174Q COMP.EFFECT 165Q COMP.STTAG 161Q COMP.STJUMP 145Q COMP.EFFECT 101Q COMP.VAL 72Q COMP.STJUMP 63Q COMP.VAL 54Q COMP.STTAG 50Q COMP.STCONST 10Q SHOULDNT) (214Q .APPLYFN. 206Q *FN* 155Q JUMP 132Q *TAIL* 123Q LISPERROR 107Q IGREATERP 104Q AND 66Q FJUMP 45Q *ARGVAL* 27Q TAG 14Q TAG 3 RETURN) ( 200Q (PROG1 *ARGVAL* (SETQ *ARGVAL*)) 171Q (AND *TAIL* (LISPERROR "UNUSUAL CDR ARG LIST" *TAIL*)) 127Q "TOO MANY ARGUMENTS" 113Q (SETQ *ARGVAL* (ADD1 *ARGVAL*)) 76Q (\EVAL (CAR *TAIL*)) 60Q (LISTP (SETQ *TAIL* (CDR *TAIL*)))) COMP.PUSHCALL D1 (P 3 FR P 2 LEV P 1 LP P 0 CHK I 1 FORM I 0 N F 4 LBCNT F 5 LEVEL F 6 FRAME) j@ gTkchgTkchUVgH Jc Kc I gl k gl H j gl gI A (147Q COMP.EXP1 143Q COMP.STPOP 140Q COMP.STJUMP 131Q COMP.STFN 121Q COMP.STCONST 115Q COMP.STCOPY 112Q COMP.STTAG 106Q COMP.STFN 76Q COMP.STCONST 72Q COMP.STFN 62Q COMP.STCONST 57Q COMP.STTAG 45Q COMP.STJUMP 3 COMP.VAL) (134Q TJUMP 124Q IGREATERP 101Q IDIFFERENCE 65Q .SWAPNIL. 41Q JUMP 21Q TAG 6 TAG) () COMP.APPLY* D1 (P 0 FN I 0 A F 1 FRAME) lQi@g@@X+gXho@@ Hh h@h  djdlH@ dl𒿰(136Q COMP.EXP1 115Q ARGTYPE 111Q COMP.EXP1 74Q \APPEND2 65Q LENGTH 47Q GENSYM) (44Q OPENLAMBDA 22Q FUNCTION) ( 56Q (OPCODES CHECKAPPLY* APPLYFN)) (PUTPROPS .ERRSETQ. DMACRO (APPLY COMP.ERRORSET)) (PUTPROPS ARG DMACRO COMP.ARG) (PUTPROPS SETARG DMACRO COMP.SETARG) (PUTPROPS NAMEDLET DMACRO COMP.NAMEDLET) COMP.ERRORSET D1 (P 0 FN I 2 W I 1 V I 0 E F 2 COMPILE.CONTEXT) oRgR Rdgdgih@ihg@hh HdhYddi3higIhIAddi3higAhABddi3higBhBhj (220Q COMP.CALL 71Q COMP.LAM1 66Q \APPEND2 16Q COMP.PREDP) (202Q QUOTE 152Q QUOTE 122Q QUOTE 55Q LIST 34Q FJUMP 26Q TJUMP 7 EFFECT) ( 3 (LAMBDA NOBIND (\CALLME (QUOTE ERRORSET)))) COMP.ARG D1 (P 0 X I 0 A F 2 CODE F 3 COMPILE.CONTEXT F 4 COMTYPE F 5 ARGVARS F 6 COMPILE.ARG.FAST.FLG) Sg@ Tlx@ Un@ VRgRb3 ok j@lhi@gH YIkgg@khgg@khhj g@Iddi3higIhI@j (256Q COMP.CALL 205Q COMP.STFN 130Q \FINDOP 115Q COMP.DELPUSH 73Q COMP.STFN 37Q COMP.VAL1 25Q COMP.LOOKUPVAR 11Q COMP.PROGN) (240Q QUOTE 211Q ARG 170Q IVAR 165Q OPCODES 152Q IVARX 147Q OPCODES 121Q IVAR 50Q CONST 3 EFFECT) ( 67Q (OPCODES ARG0)) COMP.SETARG D1 (P 0 ARG I 0 A F 2 CODE F 3 COMTYPE F 4 ARGVARS F 5 COMPILE.ARG.FAST.FLG) Slb@ TX@ RURgH3 @ gl jHlhi@ ggHklhk g@Iddi3higIhI@j (215Q COMP.CALL 144Q COMP.STFN 120Q COMP.VAL1 112Q COMP.DELPUSH 70Q COMP.STFN 60Q COMP.VAL1 25Q COMP.VAL 12Q COMP.LOOKUPVAR) (177Q QUOTE 150Q \SETARG 126Q IVARX_ 123Q OPCODES 63Q \SETARG0 43Q CONST) () COMP.NAMEDLET D1 (P 3 FN I 0 ARGS) g0@dIhiHhZIH&Jg@Hddi3higHhHh@ K0@$d\dgLIhiHhZIH&Jj (207Q COMP.CALL 120Q COMP.LAM1) (147Q PROG1 75Q QUOTE 46Q \CALLME 2 LAMBDA) () (PUTPROPS LOADTIMECONSTANT DMACRO (X (LIST (QUOTE QUOTE) (CONS LOADTIMECONSTANTMARKER (CAR X))))) (RPAQQ LOADTIMECONSTANTMARKER "LoadTimeConstant") (PUTPROPS DLAP FILETYPE COMPILE-FILE) (PUTPROPS DLAP COPYRIGHT ("Xerox Corporation" T 1981 1982 1983 1984 1985 1986)) NIL