(FILECREATED " 2-Oct-86 23:18:43" ("compiled on " {ERIS}SOURCES>DLAP.;65) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED " 2-Oct-86 23:16:53" {ERIS}SOURCES>DLAP.;65 101640 changes to: (FNS DASSEM.DWRITEFN DASSEM.DPRINTLAP) (VARS DLAPCOMS) previous date: "30-Sep-86 22:49:33" {ERIS}SOURCES>DLAP.;64) (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 @ (20 COMP.FLOATBOX 17 COMP.VAL1 12 COMP.VALN) (9 EFFECT 3 EFFECT) () C.FLOATUNBOX D1 (I 0 A F 0 COMPILE.CONTEXT) Pg@g @o (21 COMP.VAL1 12 COMP.VALN) (9 EFFECT 3 EFFECT) ( 18 (UNBOXED . FLOAT)) DASSEM.DASSEMA0004 D1 (L (1 Y 0 X)) @ANIL NIL () DASSEM.DASSEM D1 (P 38 F P 37 N P 36 N P 35 JL P 34 A P 33 D P 32 X P 31 OP P 30 LL P 29 CODELOC P 25 VARS P 24 FRAME P 23 FRAMES P 22 FREELST P 21 D P 20 A P 19 X P 18 LL P 11 LOCALS P 10 CD P 9 ORG P 8 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 39 IPLUSNFLG F 40 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<_dkO O&dW, O joO Ol O&O oO O (675 TERPRI 669 PRIN3 655 PRIN4 646 BOUT 638 PRIN3 610 SPACES 582 \BOUT 572 \FINDOP 498 \FINDOP 445 PRIN3 435 TERPRI 429 PRIN4 421 TERPRI 415 PRIN4 396 \BOUT 389 \BOUT 382 \BOUT 375 \BOUT 368 \BOUT 358 \BOUT 350 PRIN3 340 PRIN4 318 TERPRI 312 PRIN4 303 PRIN3 293 PRIN4 284 GETSTREAM 144 DREVERSE 129 DASSEM.DSTOREFNDEF 105 DASSEM.DPRINTLAP 65 DASSEM.SAVELOCALVARS 23 FLENGTH 20 \NCONC2 11 LENGTH 7 LENGTH 3 LENGTH) (549 PTR 528 ATOM 506 FN 331 CODERDTBL 325 FILERDTBL 307 CODEINDICATOR 281 OUTPUT 231 P 226 HVAR 183 I 178 HVAR 154 F 81 NAME 69 L 15 -X-) ( 664 ")" 633 "#." 440 "(" 345 " " 298 " ") 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(12 DEFC) NIL () DASSEM.DSTOREFNDEF D1 (P 58 MACROY P 57 MACROX P 50 X P 49 NT P 47 X P 46 NTBYTESIZE P 45 NT1 P 43 X P 42 LOC P 9 LOCALSIZE P 8 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 59 RESETVARSLST F 60 DFNFLG F 61 LOADTIMECONSTANTMARKER) 1;j@(GdgGbgG_GbGGHkԸHlmGHd؁l\dl[O_O lm_KO[KBlmZdKllm ]AK+ORAGlH/OX_^O^OMClwmsOk2O`_dOd+_V>MOTOVd3 jOVhiOVlhiOVOVi 5OfOfOhOjudgMOTOV \dgMOTOV DgMOTOVdWz  %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(1069 ERROR! 1060 NLEFT 1051 TAILP 1024 DASSEM.DSTOREFNDEFA0040 776 \FIXCODEPTR 544 \FIXCODENUM 527 \FIXCODENUM 491 \FIXCODENUM 485 SHOULDNT 432 \FIXCODENUM 374 \FINDOP 361 \FIXCODEPTR 356 EVAL 330 \FIXCODENUM 306 \FIXCODENUM 263 \FINDOP 144 \CODEARRAY 100 FLENGTH) (1021 INTERNAL 998 DFNFLG 521 LITATOM 478 I 462 F 450 P 426 LITATOM 336 PTR 326 LITATOM 313 ATOM 302 LITATOM 289 FN 32 L 17 NAME) ( 1018 (DASSEM.DSTOREFNDEFA0040)) DASSEM.DPRINTLAP D1 (P 1 *PRINT-BASE* P 0 OUTSTREAM I 3 CD I 2 ARGTYPE I 1 NAMETABLE I 0 FN F 2 LSTFIL) bRg l@H H oH H AH H oH oH BH H CHhddg H H (95 TERPRI 91 TERPRI 87 MAPRINT 75 TERPRI 70 PRIN1 64 PRIN1 55 PRIN1 46 TERPRI 41 PRIN2 35 TERPRI 30 PRIN1 21 TERPRI 16 PRIN2 6 GETSTREAM) (83 PRIN2 3 OUTPUT) ( 60 " argtype: " 51 "code length: " 26 "name table: ") DASSEM.EQCONSTANTP D1 (L (1 FLG 0 ARG)) #@l@3 o@hi @nhiNIL NIL ( 15 -65536) 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@(133 DASSEM.COUNTVARS 114 DASSEM.COUNTVARS 98 DASSEM.CANSHAREBINDING 73 PUTHASH 67 GETHASH) (70 VCA 64 VCA) () DASSEM.COUNTVARS D1 (L (0 VARS) F 0 VARCOUNT) @dPdkc` h(17 PUTHASH) (14 VCA) () DASSEM.CANSHAREBINDING D1 (L (1 V2 0 V1) F 8 FRAME F 9 FRAMES) {@A WqHiYhZh h[` A` KiJi7IWLML` \hiWI_NON` ^hiHX(107 GETHASH 79 GETHASH 48 GETHASH 41 GETHASH) (104 FRA 76 FRA 45 VCA 38 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(27 DASSEM.DASMBIND 13 COMPERROR) (53 BIND) ( 9 (- too many values bound)) DASSEM.DSTOREFN D1 (L (0 X) F 0 CD F 1 CODELOC) jPcQkcg@PcQkcNIL (13 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(286 OPT.COMPILERERROR 219 RSH 178 OPT.COMPILERERROR 132 OPT.COMPILERERROR 115 OPT.COMPILERERROR 80 COMPILER.ERROR 22 OPT.JSIZE 12 GETP) (251 JUMPXX 202 JUMPXX 173 JUMPXX 72 POP 66 FJUMP 60 TJUMP 54 NOP 48 JUMP 19 AJSIZES 9 MOPVAL) ( 248 (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(13 GETPROP) (148 IVAR 129 GCONST 121 ARG0 109 GETBITS.N.FD 98 GETBASE.N 92 GETBASEPTR.N 73 OPCODES 67 NOSIDEFNS 60 NOSIDE 55 NOFREEVARFNS 48 FREEVARS 40 CLEANFNLIST 33 NUMBERFNS 26 VCONDITIONALS 19 CONDITIONALS 10 CROPS) () optimize-ATOM D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 8 (OPENLAMBDA (X) (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 optimize-ATOM)))) optimize-EVALV D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @HggHNIL (15 \EVALV1 11 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 (8 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 (15 LIST 10 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 (11 NTYPX 8 EQ) ( 19 (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 (8 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 (18 IDIFFERENCE 14 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 (14 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(203 COMP.STPOP 199 COMP.STFN 186 COMP.DELFN 182 OPT.CALLP 171 COMP.ST 166 COMP.STFN 157 COMP.DELFN 145 OPT.CALLP 125 COMP.VAL1 119 COMP.STCOPY 109 COMP.STFN 101 COMP.DELPUSH 87 COMP.VAL1 76 COMP.STPOP 71 COMP.DELPUSH 26 COMP.STCONST 22 COMP.DELFN 13 OPT.CALLP 4 COMP.EXPR) (206 NOVALUE 194 RPLACD 190 \RPLCONS 178 CONS 161 \RPLCONS 141 CONS 133 SETQ 114 EFFECT 96 OPNIL 91 CONS 65 GVAR 59 HVAR 53 FVAR 46 AVAR 39 CONST 10 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 (171 COMP.STFN 157 COMP.STFN 138 COMP.STFN 79 COMP.STCONST 75 COMP.DELPUSH 50 COMP.DELPUSH 46 COMPERROR 16 COMP.DELFIX 13 COMP.VAL 7 COMP.DELFIX 4 COMP.VAL) (115 LLSH 112 LLSH 108 LRSH 103 LLSH 57 CONST 22 CONST) ( 126 (LRSH8 . LRSH1) 121 (LLSH8 . LLSH1) 42 (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(236 COMP.STFN 165 COMP.DELFIX 161 COMP.VAL1 154 COMP.STFN 148 COMP.VAL 144 COMP.DELFIX 140 COMP.VAL1 135 COMP.DELPUSH 34 COMP.DELFIX 30 COMP.EXPR 21 CONSTANTEXPRESSIONP 12 COMP.PROGN) (204 GVAR 198 FVAR 192 HVAR 185 AVAR 178 CONST 123 FVAR 117 GVAR 111 HVAR 104 AVAR 91 QUOTE 44 CONST 6 EFFECT) () COMP.GETD D1 (I 0 A F 0 COMPILE.CONTEXT F 1 EXP) :@ Pdgg PdgdgdggQk (55 COMP.STFN 21 COMP.PREDP 14 COMP.STPOP 3 COMP.VAL1) (47 \DEFINEDP 41 NFJUMP 35 FJUMP 29 TJUMP 17 NOVALUE 8 EFFECT) () COMP.FMEMB D1 (I 0 A F 0 COMPILE.CONTEXT F 1 CODE F 2 EXP) dPg@P @@b @ P =Qg4Pdgdgdgih`Qihhh Rl (97 COMP.STFN 89 COMP.SELECTQ 76 COMP.DELPUSH 29 COMP.PREDP 25 COMP.VAL1 21 COMP.EXPR 10 COMP.VALN) (70 DONOTHING 58 NFJUMP 52 TJUMP 46 FJUMP 37 CONST 3 EFFECT) () (PUTPROPS DMACRO PROPTYPE MACROS) optimize-\GETBASEBYTE D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHoIJhNIL NIL ( 15 (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 ( 20 (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 ( 9 (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 ( 9 (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 ( 15 (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(258 COMP.STFN 223 HELP 206 COMP.EFFECT 198 COMP.EXPR 179 COMP.STFN 170 COMP.STCONST 156 COMP.STFN 147 COMP.DELPUSH 124 COMP.EXPR 109 COMP.DELPUSH 99 COMP.DELFN 85 OPT.CALLP 75 COMP.VAL 60 COMP.VALN 40 COMP.VAL) (262 OPCODES 240 GETBASE.N 237 SWAP 233 GETBASE.N 230 COPY 227 OPCODES 215 GETBASE.32 174 \ADDBASE 151 \ADDBASE 130 CONST 94 CONST 80 \ADDBASE 57 EFFECT 51 EFFECT 30 V 16 OPENLAMBDA 6 EFFECT) ( 247 (VAG2) 195 (TYPE . FIX) 121 (TYPE . FIX) 26 (X N V) 20 (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 (204 COMP.STFN 145 COMP.VAL 132 COMP.STFN 123 COMP.STCONST 109 COMP.DELPUSH 99 COMP.DELFN 85 OPT.CALLP 75 COMP.VAL 63 COMP.VAL) (185 GETBITS.N.FD 181 PUTBITS.N.FD 171 GETBASE.N 163 PUTBASE.N 149 OPCODES 127 \ADDBASE 94 CONST 80 \ADDBASE 44 V 35 V 25 X 16 OPENLAMBDA 6 EFFECT) ( 20 (X V)) COMP.SPREADFN D1 (I 1 ARGS I 0 2FN) Ad@A@A@A h(21 COMP.SPREADFN) NIL () optimize-NCONC D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) %@HdgHgHgHhNIL (27 NCONC 22 \NCONC2 16 \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 (37 APPEND 32 \APPEND2 26 \APPEND2 12 \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(115 COMP.STFN 107 COMP.VAL 103 COMP.VAL 99 COMP.STPOP 96 COMP.STJUMP 89 COMP.STFN 81 COMP.STCONST 77 COMP.STCOPY 74 COMP.STTAG 70 COMP.STFN 62 COMP.STCONST 58 COMP.STFN 50 COMP.STCONST 47 COMP.STTAG 37 COMP.STJUMP 3 COMP.EXPR) (110 .APPLYFN. 92 TJUMP 84 IGREATERP 65 IDIFFERENCE 53 .SWAPNIL. 33 JUMP 17 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 8 LEVEL F 9 FRAME F 10 CALL-ARGUMENTS-LIMIT) @g.@$@g@l@l ihhi@Cb@ gWkchgWkchWWgH JcKcI ok C7dLlLk "kLdN Mk]LM ok gggAhWhoh H gI A B gl (250 COMP.STFN 242 COMP.VAL 238 COMP.VAL 234 COMP.STJUMP 227 COMP.STTAG 223 COMP.EFFECT 193 COMP.STFN 179 COMP.STFN 163 COMP.EXPR 145 COMP.STFN 126 COMP.STFN 118 COMP.STTAG 108 COMP.STJUMP 70 COMP.EXPR 44 EQLENGTH) (245 .APPLYFN. 230 NTJUMP 202 ADD1VAR 199 IGREATERP 196 AND 104 JUMP 85 TAG 73 TAG 21 FUNCTION 4 MAPCAR) ( 216 (LISPERROR "TOO MANY ARGUMENTS") 189 (OPCODES SWAP CDR) 122 (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 (148 COMP.STRETURN 145 COMP.STFN 137 COMP.VAL 131 COMP.VAL 124 COMP.EFFECT 117 COMP.STTAG 113 COMP.STJUMP 101 COMP.EFFECT 65 COMP.VAL 58 COMP.STJUMP 51 COMP.VAL 44 COMP.STTAG 40 COMP.STCONST 8 SHOULDNT) (140 .APPLYFN. 134 *FN* 109 JUMP 90 *TAIL* 83 LISPERROR 71 IGREATERP 68 AND 54 FJUMP 37 *ARGVAL* 23 TAG 12 TAG 3 RETURN) ( 128 (PROG1 *ARGVAL* (SETQ *ARGVAL*)) 121 (AND *TAIL* (LISPERROR "UNUSUAL CDR ARG LIST" *TAIL*)) 87 "TOO MANY ARGUMENTS" 75 (SETQ *ARGVAL* (ADD1 *ARGVAL*)) 62 (\EVAL (CAR *TAIL*)) 48 (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 (103 COMP.EXP1 99 COMP.STPOP 96 COMP.STJUMP 89 COMP.STFN 81 COMP.STCONST 77 COMP.STCOPY 74 COMP.STTAG 70 COMP.STFN 62 COMP.STCONST 58 COMP.STFN 50 COMP.STCONST 47 COMP.STTAG 37 COMP.STJUMP 3 COMP.VAL) (92 TJUMP 84 IGREATERP 65 IDIFFERENCE 53 .SWAPNIL. 33 JUMP 17 TAG 6 TAG) () COMP.APPLY* D1 (P 0 FN I 0 A F 1 FRAME) lQi@g@@X+gXho@@ Hh h@h  djdlH@ dl𒿰(94 COMP.EXP1 77 ARGTYPE 73 COMP.EXP1 60 \APPEND2 53 LENGTH 39 GENSYM) (36 OPENLAMBDA 18 FUNCTION) ( 46 (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 (144 COMP.CALL 57 COMP.LAM1 54 \APPEND2 14 COMP.PREDP) (130 QUOTE 106 QUOTE 82 QUOTE 45 LIST 28 FJUMP 22 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 (174 COMP.CALL 133 COMP.STFN 88 \FINDOP 77 COMP.DELPUSH 59 COMP.STFN 31 COMP.VAL1 21 COMP.LOOKUPVAR 9 COMP.PROGN) (160 QUOTE 137 ARG 120 IVAR 117 OPCODES 106 IVARX 103 OPCODES 81 IVAR 40 CONST 3 EFFECT) ( 55 (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 (141 COMP.CALL 100 COMP.STFN 80 COMP.VAL1 74 COMP.DELPUSH 56 COMP.STFN 48 COMP.VAL1 21 COMP.VAL 10 COMP.LOOKUPVAR) (127 QUOTE 104 \SETARG 86 IVARX_ 83 OPCODES 51 \SETARG0 35 CONST) () COMP.NAMEDLET D1 (P 3 FN I 0 ARGS) g0@dIhiHhZIH&Jg@Hddi3higHhHh@ K0@$d\dgLIhiHhZIH&Jj (135 COMP.CALL 80 COMP.LAM1) (103 PROG1 61 QUOTE 38 \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