(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "31-Jan-98 10:01:22" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>sources>DLAP.;1) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "25-Jan-93 16:56:13" |{PELE:MV:ENVOS}LIBRARY>DLAP.;1| 95225 changes to%: (PROPS (FLOAT DOPVAL) (\FLOAT.BOX DOPVAL)) previous date%: "17-Nov-92 01:01:02" |{PELE:MV:ENVOS}SOURCES>DLAP.;11|) (RPAQQ DLAPCOMS ((* ;; " Assembler for the Byte Compiler. ") (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) (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 GETHASH \ADDBASE \GETBASEPTR \GETBASEBYTE \GETBASE \GETBASEFIXP \GETBASESTRING \VAG2 \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 SPREADAPPLY*) (PROP DMACRO FGETD FGREATERP FLESSP FMEMB FRPLACD GETD GREATERP IGREATERP ILESSP LESSP LLSH LRSH PRINTNUM 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. .EVALFORM. .CALLAFTERPUSHINGNILS. APPLY*) (PROP DOPVAL .SPREADCONS. .SWAPNIL.) (FNS COMP.PUSHNILS COMP.SPREAD COMP.EVALFORM COMP.PUSHCALL COMP.APPLY*)) ( COMS (* ; "for ARG and SETARG") (PROP DMACRO ARG SETARG NAMEDLET) (FNS 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 :D8 (I 0 A F 0 COMPILE.CONTEXT) !Pg@g @ (30 COMP.FLOATBOX 25 COMP.VAL1 18 COMP.VALN) (13 EFFECT 5 EFFECT) () C.FLOATUNBOX :D8 (I 0 A F 0 COMPILE.CONTEXT) !Pg@g @o (30 COMP.VAL1 18 COMP.VALN) (13 EFFECT 5 EFFECT) ( 25 (UNBOXED . FLOAT)) DASSEM.DASSEMA0004 :D8 (L (1 Y 0 X)) @ANIL NIL () DASSEM.DASSEM :D8 (P 39 F P 38 N P 37 N P 36 JL P 35 A P 34 D P 33 X P 32 OP P 31 LL P 30 CODELOC P 29 X 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 40 *BC-MACRO-ENVIRONMENT* F 41 IPLUSNFLG F 42 TOPFRAME) V(AAAj@g g Hl3I1goghAYJIkIjhjI KJQO$j_(O,g h_&_(O&dgO$_*gO*dgdgO`hWRdO*l[jO(UO(dlOO$O*gggO$O(O$_$egO*kO(O$d BO(`uO(3 mmO(dO(nZO$O$jO(dnO(O$g/O(lO$O(O(lO$gO$O(O$g_$dgZO(O(O0WTO2_O%O2h _ dghOO2O O(O._.dg{O$O$O&O$gggWPjddgO(O$-gWPjdgO(O$jgO(O$O4O6O8_$dg,O(O,_*O(O&jO,_,O$_$O*kgO&dO:O(` O(k_(O,d_dOdO,_KM^Ml&Mgggglh Nl&Ngggglh O _dl&dgggglh jJb%O>5O _OH gg @LHIOOO h_Bdp_FOB_@gO@dgYOB` _FdMoM_Fo_@OFO@O& _OkO@OFhO@gOF_Dd2dg!ODdO&O_OlOD_>xdO&O_O_>OFOLdj`O>_>klODd2gOFONO>_>OLOFdj`O>_>k6_D@OFdj gO_Og6ODgO& _OkO>_>gODhODgO& _ O kgODhgO_O_>C(2601 HELP 2528 SHOULDNT 2436 OPT.COMPILERERROR 2389 GETHASH 2375 DASSEM.DASMBIND 2299 \FINDOP 2281 GETHASH 2253 OPT.COMPILERERROR 2244 GETHASH 2153 \FINDOP 2101 \FINDOP 2034 GETHASH 1730 PUTHASH 1692 GETP 1602 DASSEM.DSTOREFN 1557 DASSEM.DSTOREFN 1523 DASSEM.DSTOREFN 1487 DASSEM.DSTOREFN 1451 DASSEM.DSTOREFN 1416 DASSEM.DSTOREFN 1169 GETP 1127 OPT.COMPILERERROR 1060 \FINDOP 1018 GETHASH 967 DASSEM.DWRITEFN 950 OPT.RESOLVEJUMPS 935 OPT.DREV 925 OPT.DREV 908 COMPERRM 865 LENGTH 857 COMPERRM 815 COMPERRM 731 PUTHASH 503 DASSEM.MATCHVARS 474 DASSEM.COUNTVARS 467 \APPEND2 293 RPLNODE2 124 SORT 97 DASSEM.COUNTVARS 36 OPT.INITHASH 25 OPT.INITHASH) (2607 COPY.N 2581 COPY 2540 *STORE 2503 STORE.N 2494 STORE 2479 ATOM 2410 DUNBIND 2400 UNBIND 2384 VCA 2340 BIND 2332 FVARX 2319 FVAR 2289 FVAR 2276 FVINDEXHARRAY 2264 FVAR 2239 FVINDEXHARRAY 2217 FVARX_ 2209 FVAR 2186 PVARX_ 2173 PVAR_ 2143 PVAR_ 2128 PVAR_^ 2091 PVAR_^ 2081 POP 2048 IVARX_ 2029 VCA 2016 HVAR 2008 AVAR 1994 SETQ 1983 PTR 1960 COMPILER:ENV 1953 :3-BYTE 1929 COMPILER:ENV 1922 :4-BYTE 1890 GCONST 1879 ATOM 1856 COMPILER:ENV 1849 :3-BYTE 1819 COMPILER:ENV 1812 :4-BYTE 1780 ACONST 1762 CONSTOPS 1749 CONST 1725 LBA 1703 TAG 1687 AJSIZES 1652 NFJUMP 1642 NTJUMP 1632 TJUMP 1622 FJUMP 1612 JUMP 1565 FNX 1536 FN4 1502 FN3 1466 FN2 1430 FN1 1395 FN0 1362 OPPOP 1333 FN 1308 OPNIL 1279 FN 1164 DOPVAL 1118 OPCODES 1097 FN 1013 VCA 1002 HVAR 992 AVAR 945 DASSEM.ASMAJ 940 AJSIZES 894 IS 889 LIMIT 884 %, 879 FREEVARS 843 IS 838 LIMIT 833 %, 828 LOCALS 801 IS 796 LIMIT 791 %, 786 ARGS 726 FVINDEXHARRAY 702 SETQ 652 FVAR 621 ATOM 607 ATOM 596 COMPILER:ENV 589 :3-BYTE 574 ATOM 561 COMPILER:ENV 554 :4-BYTE 549 GVAR_ 543 GVAR 522 GVAR 484 HVAR 425 BIND 412 SIC 396 SICX 365 SNIC 304 CONSTOPS 269 \CALLME 247 IPLUS.N 241 IDIFFERENCE.N 234 IDIFFERENCE 193 OPTIMIZATIONSOFF 184 IPLUS2 176 IDIFFERENCE 161 FN 143 CONST 119 DASSEM.DASSEMA0004 61 BIND 50 FN 31 FVINDEXHARRAY 20 VCA) ( 1042 (PVAR . PVARX) 1031 (IVAR . IVARX) 55 (0 . \MYARGCOUNT)) DASSEM.DWRITEFN :D8 (P 16 X P 15 LOC P 13 PTRFIX P 12 ATOMFIX P 11 FNFIX P 10 *READTABLE* P 9 OUTSTREAM P 8 X P 7 I P 5 LOCALVARINFO P 4 NAMETABLE P 3 LC P 2 NFREEVARS P 1 NLOCALS P 0 NARGS I 6 CD I 5 FREEVARS I 4 LOCALS I 3 ARGS I 2 ARGTYPE I 1 FRAMENAME I 0 FN F 17 LAPFLG F 18 LCFIL F 19 LOADTIMECONSTANTMARKER F 20 STRF F 21 *READTABLE*)  C D E Fgh $EqCjNDjNM@ gMLA@gALW"dldi@LBF W$W(@FKBHIJL @IN L _OgLNOk__ggOOLOOMNOk_:_ggOOLBlOjOOMNOk_ g  @O oO `O O W*d``1 LO oO OK OKl OI OJ OB OH FjO9OO O OO O oO O_ OO d!d3 jO O dlcO i XdgOO O_j?dgOO O_j'gOO O_jO i O  O_Ok_0dkO OdW&*O joO Ol OO oO O }(774 TERPRI 766 PRIN3 749 PRIN4 738 BOUT 728 PRIN3 692 SPACES 662 \BOUT 650 \FINDOP 568 \FINDOP 522 PRIN3 509 TERPRI 501 PRIN4 491 TERPRI 483 PRIN4 462 \BOUT 453 \BOUT 444 \BOUT 435 \BOUT 426 \BOUT 414 \BOUT 404 PRIN3 391 PRIN4 363 TERPRI 355 PRIN4 342 PRIN3 329 PRIN4 318 GETSTREAM 167 DREVERSE 150 DASSEM.DSTOREFNDEF 124 DASSEM.DPRINTLAP 78 DASSEM.SAVELOCALVARS 35 FLENGTH 30 \NCONC2 17 LENGTH 11 LENGTH 5 LENGTH) (710 READTABLEP 625 PTR 602 ATOM 578 FN 380 CODERDTBL 372 FILERDTBL 348 CODEINDICATOR 313 OUTPUT 264 P 256 HVAR 214 I 207 HVAR 181 F 98 NAME 84 L 23 -X-) ( 759 ")" 721 "#." 515 "(" 397 " " 335 " ") DASSEM.SAVELOCALVARS :D8 (L (0 FN)) iNIL NIL () DASSEM.DSTOREFNDEFA0045 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SVFLG F 1 DFNFLG F 2 FN F 3 CA) PhicRS h(13 DEFC) NIL () DASSEM.DSTOREFNDEF :D8 (P 49 SI::*RESETFORMS* P 42 X P 41 NT P 39 X P 38 NTBYTESIZE P 37 NT1 P 35 X P 34 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 50 LOADTIMECONSTANTMARKER F 51 DFNFLG) 92j@ GdgGbgG_GbGGHkԸHklmGHd؁l\lL[O_O kkm_KO[KBlmZdKlkkm ]AK#OBEGllH'OH_NON@OMClmlO*OP_TOT_FFMODOFd3 jOFOFdlOFi -OVOVl OXOZdg)MODOF_dlӌlO dg(MODOF_dlӌlO [gMODOFdWd  6MODOFi OF0O\O\l O^O`OB_BODk_DMOJONm MOJOLlONdgn%dgNOJngj MOJOLON ON_NOJl_JIMOROT_dlӌlOm MOROlj MOROOT OT_TORl_RDn_ _O __Ol lOǿOlkO l-OVOVl OXOZMEFkkn_(_&O(_$_"O"l lO$ǿO&lkO(l-OVOVl OXOZMK_,_*O*l lO,ǿMlkKl-OVOVl OXOZMdMl llCl_0_.O.l lO0ǿMl I MH_4_2O2l l O4ǿMl kHl-OVOVl OXOZMMl lEǿMNj_8_6O6l lO8ǿMd _@_>O@_<_:O:l jO<ǿO>jkO@l-OVOVl OXOZgWfh1g $h(1329 SI::RESETUNWIND 1324 \MVLIST 1319 DASSEM.DSTOREFNDEFA0045 1289 \GETBASEFIXP 1247 \GETBASEFIXP 1213 \STKMIN 1199 \GETBASEFIXP 1162 \GETBASEFIXP 1134 \GETBASEFIXP 1092 \GETBASEFIXP 1062 \FIXCODEPTR 1046 \GETBASEFIXP 1004 \GETBASEFIXP 975 \GETBASEFIXP 933 \GETBASEFIXP 897 \GETBASEFIXP 853 \GETBASEFIXP 799 \GETBASEFIXP 755 \GETBASEFIXP 697 \FIXCODENUM 682 \FIXCODENUM 666 \FIXCODESYM 659 SHOULDNT 609 \FIXCODENUM 593 \FIXCODENUM 588 SHOULDNT 526 \FIXCODESYM 488 \GETBASEFIXP 455 \FINDOP 440 \FIXCODEPTR 433 EVAL 403 \FIXCODESYM 398 SHOULDNT 355 \FIXCODESYM 350 SHOULDNT 300 \GETBASEFIXP 273 \FINDOP 158 \CODEARRAY 109 FLENGTH) (1314 SI::RESETUNWIND 1301 DFNFLG 1282 ARRAYP 1273 ARRAYP 1240 ARRAYP 1231 ARRAYP 1192 ARRAYP 1183 ARRAYP 1155 ARRAYP 1147 ARRAYP 1127 ARRAYP 1118 ARRAYP 1085 ARRAYP 1076 ARRAYP 1039 ARRAYP 1030 ARRAYP 997 ARRAYP 989 ARRAYP 968 ARRAYP 959 ARRAYP 926 ARRAYP 917 ARRAYP 890 ARRAYP 881 ARRAYP 846 ARRAYP 837 ARRAYP 792 ARRAYP 783 ARRAYP 748 ARRAYP 739 ARRAYP 579 I 559 F 545 P 481 ARRAYP 472 ARRAYP 411 PTR 365 ATOM 317 FN 293 ARRAYP 284 ARRAYP 36 L 19 NAME) () DASSEM.DPRINTLAP :D8 (P 1 *PRINT-BASE* P 0 OUTSTREAM I 3 CD I 2 ARGTYPE I 1 NAMETABLE I 0 FN F 2 LSTFIL) Rg l@H H oH H AH H oH oH BH H CHhddg H H (130 TERPRI 124 TERPRI 118 MAPRINT 102 TERPRI 95 PRIN1 87 PRIN1 75 PRIN1 63 TERPRI 56 PRIN2 48 TERPRI 41 PRIN1 29 TERPRI 22 PRIN2 10 GETSTREAM) (112 PRIN2 5 OUTPUT) ( 81 " argtype: " 69 "code length: " 35 "name table: ") DASSEM.EQCONSTANTP :D8 (I 1 FLG I 0 ARG) @d3@@3 o@h @nhNIL NIL ( 16 -65536) DASSEM.MATCHVARS :D8 (P 5 X P 4 VAR I 1 TAIL I 0 VARS) A@"IHisA@"KJKhIHJ0iM@A` ` @b-AAbLM hKJ@ A@hAAbu@ Ad@(148 DASSEM.COUNTVARS 126 DASSEM.COUNTVARS 108 DASSEM.CANSHAREBINDING 81 PUTHASH 71 GETHASH) (76 VCA 66 VCA) () DASSEM.COUNTVARS :D8 (P 0 VAR I 0 VARS F 1 VARCOUNT) "@dHQdkc` h(25 PUTHASH) (20 VCA) () DASSEM.CANSHAREBINDING :D8 (L (1 V2 0 V1) F 8 FRAME F 9 FRAMES) @A WqHiYhZh\IWLMPL` \'[` A` KiJWI_NON` ^hHX(114 GETHASH 79 GETHASH 68 GETHASH 51 GETHASH) (109 FRA 74 VCA 63 VCA 46 FRA) () (RPAQQ NARGMAX 127) (RPAQQ NLOCALMAX 127) (RPAQQ NFREEMAX 127) (CONSTANTS NARGMAX NLOCALMAX NFREEMAX) DASSEM.DASMBIND :D8 (I 2 K I 1 NN I 0 NV F 0 CD F 1 CODELOC) j@l@o Al"@lB jAlB@lbbbgPcQkcA@PcQkcB@AkPcQkc(32 DASSEM.DASMBIND 16 COMPERROR) (60 BIND) ( 10 (- too many values bound)) DASSEM.DSTOREFN :D8 (I 0 X F 0 CD F 1 CODELOC F 2 *BC-MACRO-ENVIRONMENT*) TjPcQkcgRjPcQkcgRjPcQkcg@PcQkcNIL (70 FN 49 COMPILER:ENV 43 :3-BYTE 21 COMPILER:ENV 15 :4-BYTE) () DASSEM.ASMAJ :D8 (P 2 S P 1 Y P 0 OP I 1 D I 0 P) D@!Hg Y@Ag ZdkP@lA;Ak0ddggdgdgghIAmhl9@IjAmAnA؍AdlA@KLMJdldlNlIg@IAmb@Ig@b@@AmlAl@@`5Adg@`g @`@g @bidgdg@dg@dg𒿰g@@@g(17 GETPROP) (180 IVAR 159 GCONST 149 ARG0 135 GETBITS.N.FD 122 GETBASE.N 114 GETBASEPTR.N 96 OPCODES 87 NOSIDEFNS 78 NOSIDE 71 NOFREEVARFNS 62 FREEVARS 52 CLEANFNLIST 43 NUMBERFNS 34 VCONDITIONALS 25 CONDITIONALS 12 CROPS) () optimize-ATOM :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 9 (OPENLAMBDA (X) (OR (NULL X) (AND (\TYPEMASK.UFN X 8) T)))) (PUTPROP (QUOTE ATOM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-ATOM) (GET (QUOTE ATOM) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-EVALV :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @HggHNIL (19 \EVALV1 13 IGNOREMACRO) () (PUTPROP (QUOTE EVALV) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-EVALV) (GET (QUOTE EVALV) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-FRPLACA :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHNIL (9 RPLACA) () (PUTPROP (QUOTE FRPLACA) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-FRPLACA) (GET ( QUOTE FRPLACA) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-GETATOMVAL :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHhNIL (10 GETTOPVAL) () (PUTPROP (QUOTE GETATOMVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-GETATOMVAL) ( GET (QUOTE GETATOMVAL) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-LIST :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @HgHgHhNIL (19 LIST 12 CONS) () (PUTPROP (QUOTE LIST) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-LIST) (GET (QUOTE LIST) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-LITATOM :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 8@AgIoHhggHhoNIL (42 NTYPX 37 EQ 18 COMPILER:ENV 12 :3-BYTE) ( 51 ((CONSTANT \LITATOM)) 27 (OPCODES COPY TYPEMASK.N 64 EQ)) (PUTPROP (QUOTE LITATOM) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-LITATOM) (GET ( QUOTE LITATOM) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-MINUSP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gjHhNIL (10 GREATERP) () (PUTPROP (QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-MINUSP) (GET ( QUOTE MINUSP) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-IEQP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@!HHgjgIJhhNIL (22 IDIFFERENCE 16 EQ) () (PUTPROP (QUOTE IEQP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-IEQP) (GET (QUOTE IEQP) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-FASSOC :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @gHNIL (9 ASSOC) () (PUTPROP (QUOTE FASSOC) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-FASSOC) (GET (QUOTE FASSOC) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-SETATOMVAL :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHgIJhNIL (16 SETTOPVAL) () (PUTPROP (QUOTE SETATOMVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-SETATOMVAL) ( GET (QUOTE SETATOMVAL) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-SYSTEMTYPE :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) oNIL NIL ( 4 (QUOTE D)) (PUTPROP (QUOTE SYSTEMTYPE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-SYSTEMTYPE) ( GET (QUOTE SYSTEMTYPE) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-SPREADAPPLY* :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHgIJNIL (15 CL:FUNCALL) () (PUTPROP (QUOTE SPREADAPPLY*) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-SPREADAPPLY*) (GET (QUOTE SPREADAPPLY*) (QUOTE COMPILER:OPTIMIZER-LIST)))) (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 RPLACD DMACRO COMP.RPLACD) (PUTPROPS \FLOATBOX DMACRO C.FLOATBOX) (PUTPROPS \FLOATUNBOX DMACRO C.FLOATUNBOX) COMP.RPLACD :D8 (P 0 NEED-POP I 0 A F 1 CODE F 2 COMPILE.CONTEXT) e@ Qg }QdjAQdg#dgdgdgdgkٰ@ gQ`kl Rg@ QdgZgk Qgl Q`X,QQcHgl j MQgk Qgl Q`XHggl g(349 COMP.STPOP 343 COMP.STFN 324 COMP.DELPUSH 316 COMP.DELFN 297 OPT.CALLP 281 OPT.CALLP 266 COMP.ST 259 COMP.STFN 246 COMP.DELPUSH 238 COMP.DELFN 211 OPT.CALLP 194 OPT.CALLP 168 COMP.VAL1 160 COMP.STCOPY 146 COMP.STFN 136 COMP.DELPUSH 116 COMP.VAL1 103 COMP.STPOP 96 COMP.DELPUSH 39 COMP.STCONST 33 COMP.DELFN 22 OPT.CALLP 9 COMP.EXPR) (354 NOVALUE 336 RPLACD 330 \RPLCONS 307 OPNIL 290 CONS 275 CONS 252 \RPLCONS 222 OPNIL 204 CONS 188 CONS 178 SETQ 153 EFFECT 129 OPNIL 122 CONS 88 GVAR 80 HVAR 72 FVAR 63 AVAR 54 CONST 17 CONS) () COMP.SHIFT :D8 (P 1 FNS P 0 N I 0 A F 3 CODE F 4 EXP) @ @ SgS!H3 Hoh SgTSHlJ HdjhjTjHٸTggggooHlIk HlXHjIk HkXTl (210 COMP.STFN 194 COMP.STFN 173 COMP.STFN 102 COMP.STCONST 96 COMP.DELPUSH 67 COMP.DELPUSH 61 COMPERROR 24 COMP.DELFIX 19 COMP.VAL 11 COMP.DELFIX 6 COMP.VAL) (146 LLSH 141 LLSH 135 LRSH 128 LLSH 76 CONST 32 CONST) ( 159 (LRSH8 . LRSH1) 153 (LLSH8 . LLSH1) 53 "non-numeric arg to shift") COMP.COMPARENUM :D8 (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 CRdg1RYddi3 gIhX;@hChbbbdgdgdgdgRXh#@ A H Cl @A A CJHGRdg#dgdgdgdgihRHRHHRCBl h(278 COMP.STFN 195 COMP.DELFIX 189 COMP.VAL1 180 COMP.STFN 172 COMP.VAL 166 COMP.DELFIX 160 COMP.VAL1 153 COMP.DELPUSH 44 COMP.DELFIX 38 COMP.EXPR 27 CONSTANTEXPRESSIONP 16 COMP.PROGN) (244 GVAR 236 FVAR 228 HVAR 219 AVAR 210 CONST 139 FVAR 131 GVAR 123 HVAR 114 AVAR 82 QUOTE 58 CONST 8 EFFECT) () COMP.GETD :D8 (I 0 A F 0 COMPILE.CONTEXT F 1 EXP) N@ Pdgg $PdgdgdggQk (75 COMP.STFN 31 COMP.PREDP 20 COMP.STPOP 5 COMP.VAL1) (65 \DEFINEDP 57 NFJUMP 49 FJUMP 41 TJUMP 25 NOVALUE 12 EFFECT) () COMP.FMEMB :D8 (I 0 A F 0 COMPILE.CONTEXT F 1 CODE F 2 EXP) ~Pg@P @@b @ P KQg@Pdgdgdgih`Qihhd Rl (123 COMP.STFN 113 COMP.SELECTQ 98 COMP.DELPUSH 39 COMP.PREDP 33 COMP.VAL1 27 COMP.EXPR 14 COMP.VALN) (90 DONOTHING 76 NFJUMP 68 TJUMP 60 FJUMP 49 CONST 5 EFFECT) () (PUTPROPS DMACRO PROPTYPE MACROS) optimize-\GETBASEBYTE :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHoIJhNIL NIL ( 16 (OPCODES GETBASEBYTE)) (PUTPROP (QUOTE \GETBASEBYTE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\GETBASEBYTE) (GET (QUOTE \GETBASEBYTE) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-\PUTBASEBYTE :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @AHHZJoIKLhNIL NIL ( 21 (OPCODES PUTBASEBYTE)) (PUTPROP (QUOTE \PUTBASEBYTE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\PUTBASEBYTE) (GET (QUOTE \PUTBASEBYTE) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-\HILOC :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHhNIL NIL ( 10 (OPCODES HILOC)) (PUTPROP (QUOTE \HILOC) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\HILOC) (GET (QUOTE \HILOC) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-\LOLOC :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHhNIL NIL ( 10 (OPCODES LOLOC)) (PUTPROP (QUOTE \LOLOC) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\LOLOC) (GET (QUOTE \LOLOC) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-\VAG2 :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @!HHoIJhNIL NIL ( 16 (OPCODES VAG2)) (PUTPROP (QUOTE \VAG2) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-\VAG2) (GET (QUOTE \VAG2) (QUOTE COMPILER:OPTIMIZER-LIST)))) (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 :D8 (P 0 OFF I 2 OPCODE I 1 STFLG I 0 A F 1 CODE F 2 COMPILE.CONTEXT F 3 EXP) WA2Rg&goSogh@ ARg@g j@@b Qgl QgHQԸ@@bo QgQ3 HQԸgl jHHlH gl jA@@bo @d Bg:AgggHggHkok gBHhAl(322 COMP.STFN 274 HELP 253 COMP.EFFECT 243 COMP.EXPR 220 COMP.STFN 207 COMP.STCONST 190 COMP.STFN 177 COMP.DELPUSH 149 COMP.EXPR 131 COMP.DELPUSH 119 COMP.DELFN 100 OPT.CALLP 86 COMP.VAL 69 COMP.VALN 46 COMP.VAL) (328 OPCODES 301 GETBASE.N 296 SWAP 290 GETBASE.N 285 COPY 280 OPCODES 264 GETBASE.32 213 \ADDBASE 183 \ADDBASE 157 CONST 111 CONST 93 \ADDBASE 64 EFFECT 56 EFFECT 34 V 16 OPENLAMBDA 8 EFFECT) ( 309 (VAG2) 238 (TYPE . FIX) 144 (TYPE . FIX) 28 (X N V) 21 (X N V)) COMP.GETBASEBITS :D8 (P 0 OFF I 1 STFLG I 0 A F 1 CODE F 2 COMPILE.CONTEXT F 3 EXP) AIRg@goSg@@ghgh@@h @@ Qgl QgHQԸjHHlH gl jA@ g@lAgHhgHhAggH@hAlk (245 COMP.STFN 176 COMP.VAL 161 COMP.STFN 148 COMP.STCONST 131 COMP.DELPUSH 119 COMP.DELFN 100 OPT.CALLP 86 COMP.VAL 72 COMP.VAL) (224 GETBITS.N.FD 218 PUTBITS.N.FD 207 GETBASE.N 198 PUTBASE.N 182 OPCODES 154 \ADDBASE 111 CONST 93 \ADDBASE 51 V 40 V 28 X 16 OPENLAMBDA 8 EFFECT) ( 21 (X V)) COMP.SPREADFN :D8 (I 1 ARGS I 0 2FN) Ad@A@A@A h(23 COMP.SPREADFN) NIL () CL::optimize-NCONC :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) +@HdgHgHgHhNIL (33 NCONC 26 \NCONC2 18 \NCONC2) () (PUTPROP (QUOTE NCONC) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-NCONC) (GET ( QUOTE NCONC) (QUOTE COMPILER:OPTIMIZER-LIST)))) optimize-APPEND :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) 7@HdgHhdgHgHgHhNIL (45 APPEND 38 \APPEND2 30 \APPEND2 14 \APPEND2) () (PUTPROP (QUOTE APPEND) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE optimize-APPEND) (GET (QUOTE APPEND) (QUOTE COMPILER:OPTIMIZER-LIST)))) (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 .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 :D8 (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) @ gTkchgTkchUVgH Jc Kc I gl k gl H j gl gI @ A gl h(163 COMP.STFN 151 COMP.VAL 145 COMP.VAL 139 COMP.STPOP 134 COMP.STJUMP 123 COMP.STFN 111 COMP.STCONST 105 COMP.STCOPY 100 COMP.STTAG 94 COMP.STFN 82 COMP.STCONST 76 COMP.STFN 64 COMP.STCONST 59 COMP.STTAG 47 COMP.STJUMP 5 COMP.EXPR) (156 .APPLYFN. 128 TJUMP 116 IGREATERP 87 IDIFFERENCE 69 .SWAPNIL. 41 JUMP 23 TAG 10 TAG) () COMP.SPREAD :D8 (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) 6@dgCddLd3@Lk 'kLdN Mk]LM ok gggAhnhoh H gI A B gl (307 COMP.STFN 295 COMP.VAL 289 COMP.VAL 283 COMP.STJUMP 272 COMP.STTAG 266 COMP.EFFECT 226 COMP.STFN 209 COMP.STFN 191 COMP.EXPR 170 COMP.STFN 149 COMP.STFN 138 COMP.STTAG 126 COMP.STJUMP 80 COMP.EXPR) (300 .APPLYFN. 277 NTJUMP 241 ADD1VAR 236 IGEQ 231 AND 120 JUMP 99 TAG 85 TAG 41 CL:FUNCTION 33 FUNCTION 7 MAPCAR) ( 257 (LISPERROR "TOO MANY ARGUMENTS") 220 (OPCODES SWAP CDR) 143 (OPCODES COPY CAR)) COMP.EVALFORM :D8 (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 (206 COMP.STRETURN 201 COMP.STFN 189 COMP.VAL 179 COMP.VAL 169 COMP.EFFECT 159 COMP.STTAG 153 COMP.STJUMP 137 COMP.EFFECT 89 COMP.VAL 79 COMP.STJUMP 68 COMP.VAL 58 COMP.STTAG 52 COMP.STCONST 12 SHOULDNT) (194 .APPLYFN. 184 *FN* 147 JUMP 124 *TAIL* 114 LISPERROR 99 IGREATERP 94 AND 73 FJUMP 47 *ARGVAL* 31 TAG 18 TAG 5 RETURN) ( 174 (PROG1 *ARGVAL* (SETQ *ARGVAL*)) 164 (AND *TAIL* (LISPERROR "UNUSUAL CDR ARG LIST" *TAIL*)) 119 "TOO MANY ARGUMENTS" 104 (SETQ *ARGVAL* (ADD1 *ARGVAL*)) 84 (\EVAL (CAR *TAIL*)) 63 (LISTP (SETQ *TAIL* (CDR *TAIL*)))) COMP.PUSHCALL :D8 (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) @ gTkchgTkchUVgH Jc Kc I gl k gl H j gl gI A (145 COMP.EXP1 139 COMP.STPOP 134 COMP.STJUMP 123 COMP.STFN 111 COMP.STCONST 105 COMP.STCOPY 100 COMP.STTAG 94 COMP.STFN 82 COMP.STCONST 76 COMP.STFN 64 COMP.STCONST 59 COMP.STTAG 47 COMP.STJUMP 5 COMP.VAL) (128 TJUMP 116 IGREATERP 87 IDIFFERENCE 69 .SWAPNIL. 41 JUMP 23 TAG 10 TAG) () COMP.APPLY* :D8 (P 0 FN I 0 A F 1 FRAME) }Qi@g2@,@X$H djdlH@ dlkgXho@@ Hh h@h (122 COMP.EXP1 107 CL:APPEND 98 LENGTH 81 GENSYM 62 COMP.EXP1 43 ARGTYPE) (76 OPENLAMBDA 20 FUNCTION) ( 89 (OPCODES CHECKAPPLY* APPLYFN)) (PUTPROPS ARG DMACRO COMP.ARG) (PUTPROPS SETARG DMACRO COMP.SETARG) (PUTPROPS NAMEDLET DMACRO COMP.NAMEDLET) COMP.ARG :D8 (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@ Tl@ U@ VRgRb3 ok j@l@gH YIkgg@khgg@khhj g@Iddi3 gIh@j (205 COMP.CALL 163 COMP.STFN 107 \FINDOP 92 COMP.DELPUSH 76 COMP.STFN 43 COMP.VAL1 29 COMP.LOOKUPVAR 13 COMP.PROGN) (191 QUOTE 169 ARG 148 IVAR 143 OPCODES 130 IVARX 125 OPCODES 98 IVAR 54 CONST 5 EFFECT) ( 70 (OPCODES ARG0)) COMP.SETARG :D8 (P 0 ARG I 0 A F 2 CODE F 3 COMTYPE F 4 ARGVARS F 5 COMPILE.ARG.FAST.FLG) Slt@ Th@ RURgH3 @ gl jHl@ ggHklhk g@Iddi3 gIh@j (160 COMP.CALL 118 COMP.STFN 92 COMP.VAL1 84 COMP.DELPUSH 68 COMP.STFN 56 COMP.VAL1 25 COMP.VAL 12 COMP.LOOKUPVAR) (146 QUOTE 124 \SETARG 102 IVARX_ 97 OPCODES 61 \SETARG0 41 CONST) () COMP.NAMEDLET :D8 (P 3 FN I 0 ARGS) g0@dIHhZH&Jg@Hddi3 gHhh@ K0@"d\dgLIHhZH&Jj (133 COMP.CALL 78 COMP.LAM1) (103 PROG1 59 QUOTE 37 \CALLME 4 LAMBDA) () (PUTPROPS LOADTIMECONSTANT DMACRO (X (LIST (QUOTE QUOTE) (CONS LOADTIMECONSTANTMARKER (CAR X))))) (RPAQQ LOADTIMECONSTANTMARKER "LoadTimeConstant") (PUTPROPS DLAP FILETYPE CL:COMPILE-FILE) (PUTPROPS DLAP COPYRIGHT ("Venue & Xerox Corporation" T 1981 1982 1983 1984 1985 1986 1987 1988 1990 1991 1992 1993)) NIL