;;; Compilation of /home/juergen/lisp/mevalxp/comp-gen.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2007/11/17 18:01:11. ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on A  U SYSTEM  MAKE-SAFE-FOR-TAIL-CALLHCOMPILERNOTE-START-OF-FILEL&;%8vuU%RUNTIMEBAD-ARGS-OR-STACKHB COMMON-LISPPATHNAMEKEYWORD UNSPECIFICBCABSOLUTEhomejuergenlispmevalxp>>EU comp-genlispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWCL-USERBCB>>>E%= /]6;%8v(u#UuuE E%#,1BHFORMAT ~ABCCOMMON-LISP-USER77C-ERROR>>>E =7Z= : 5GVUPhhuE WEh^[搐8E"'3?~%~%MAPCARBBerror: ~A in ~A BFIX-REST-ON-STACKHB?7N7PROC&REST7LIS A???& F  >I>~???& H>7>>B>&>B G @B  U BHDSPECJJINSTALL-DEFVARV;%8v8u3U= t*uuE E%̐,3<ANSEQMMMAKE-SIMPLE-VECTORBHB9B7*STAT*BCDEFVARB+>>E%= >R> T P U BHJINSTALL-DEFPARAMETERg:;%8v-u(UuuE E%#16BHBDB7 *STK-IDX*BC DEFPARAMETERB4>>E%= Y|N;%8v?u:UP u uuuuuuu%"CHBHAREF SYMBOL-VALUE-1ARGHBFB7 GET-STACK?7STAT? c >&?? d `B=  U BHBQOz;%8vkufUPPhhE5u} u E}uuuuuuuuu }E%#7)<otBHBTBHBB stack = ~A ~%B7 SET-STACK?B>7 NEW-STACK k?%? m >@??%? o>'>B n iB  U BHBIg:;%8v-u(UuuE E%#16BHBDB7 *ILIST-IDX*BCB8B>>E%= s|N;%8v?u:UP u uuuuuuu%"CHBHBLBHBB7 GET-ILIST?B>? y >&?? z wB  U BHBYf;%8vVuQUPP5u} u E}uuuuuuuuu }E%"'Z_BHBTBHBB7 SET-ILIST?B>7 NEW-ILIST ?%?  >+??%?   }B  U BHBIg:;%8v-u(UuuE E%#16BHBDB7 *LITS-IDX*BCB8B*>>E%= |N;%8v?u:UP u uuuuuuu%"CHBHBLBHB'B7GET-LITS?B>?  >&??  B*  U BHBYf;%8vVuQUPP5u} u E}uuuuuuuuu }E%"'Z_BHBTBHB'B7SET-LITS?B>7NEW-LITS ?%?  >+??%?   B0  U  HBIg:;%8v*u%UuuE E3%#.3BHBDB7 *PARMS-IDX*BCB8B>>>E%= |N;%8v?u:UP u uuuuuuu%"CHHBLBHB;B7 GET-PARMS?B>?  >&??  B>  U  HBYf;%8vVuQUPP5u} u E}uuuuuuuuu }E%"'Z_BHBTBHB;B7 SET-PARMS?B>7 NEW-PARMS ?%?  >+??%?   BD ^;%8vOuJUPuuuuE-=MXHBBBB7 STAT-INIT?B>?   >Q??>A??>1??>!?? BL d6;%8v&u!U u %!*/HBHBBCB>>>E%= >%>   U BH7COMP-GEN-SYMBOL U BH7COMP-GEN-CHARACTER U BH7COMP-GEN-NUMBER U BH7COMP-GEN-STRING U BH7COMP-GEN-QUOTE U BH7COMP-GEN-FUNCTION U BH7 COMP-GEN-SETQ U BH7 COMP-GEN-IF U BH7COMP-GEN-PROGN U BH7COMP-GEN-DO-UNTIL U BH7COMP-GEN-VECTOR U BH7COMP-GEN-APPLY U BH7COMP-GEN-FUNCALL U BH7COMP-GEN-PRIMITIVE U BH7 COMP-GEN-LET U BH7COMP-GEN-LAMBDA U BH7 COMP-GEN-FORM U BH7COMP-GEN-GENERICrN#;%8v)u$UP}tEtu>uE%}u E%Et E%Et)u>u!u~u4E%Eu}uHEtBE%u~tu~u렸Et E%Et E%Et E%Et E%E=u E%E=u E%E=u E%E=u E%Et E%Et E%Et E%Et E%E%-2DO` %0AL]ejx"->JjBn7isIS-FORMBB7.l IS-LAMBDAB7n IS-PRIMITIVEBaEdFUNCALLBAPPLYB1:VECTORBy7DO-UNTIL,MCAR-1ARGHB71,IS-PROGNB=7 ;IS-IFB7 sIS-SETQB7 IS-FUNCTIONB7IS-QUOTEBBeNUMBERPBHS$ce r7COMP-GEN? ; Cr7EB> s ??  -?1}{?? ?YM=?AS_B?ACLH}{B?PERoB?TE_B?OIoB?;%׷B?iUB?%P |}{B?4 =B? \B? oB? ԷB>S?B - RB C# U  HBIg:;%8v*u%UuuE E3%#.3BHBDB7*DUMMY*BCB8>>E%= n ;%8v^uYUPPEEuh u PEEEuu%$4*9AMbgHBXAPPEND MAKE-LISTBH6INITIAL-ELEMENTaBERB7INCREMENT-STACK?BB ;%?(%?u   >Q?E%7STACK @?%?   >E?>= TB>?B  B L -;%8vPuKUPPPPPPEEEuu]M u";]|+}}Euu%SEuՋ] u&ށupEE}}}}SEאTYb +2ARGSHMCDR-1ARGH >=2ARGSHHBXBBT7DECREMENT-STACK?BB ?Re?   ? 7STK @I7I @  @>&?e?   ? VDBG NEW-VALUE @B -FV>f?l{B>!?B  uB twJ;%8v;u6UPPEEuEEEuu%*?DHBXEaBLE-R7ADD-VARS-STACK?7VARSB> VB+%= ?%?R ! >.?  U@?%? $ #>?TB E" TB Z;%8vLuGUPPEE}Wu EEEuu ɏ$%+08PUHBl LIST-1ARGH LIST-2ARGHxBu:U7 ENTER-OPCODE?uuu7OPC7EXTB> *?%?? -  >4?=/>/ TATB>?B . (B Z ;%8vKuFUPPEE}WhEEEuu%%-2:OTuHBlB&HBH7LABELxB7 ENTER-LABEL?3b 6<?o%? B7 B >>?cA0 B@7?E%?T ?: 9>6?=B >1 -B>?B 8 4B hB;%8v2u-UPPPEEuEEE+;H:POSITIONBzBu7 GET-LIT-INDEX?%b ??? @ >/?I7LITS @??% D B>?D %A u=B  r;%8v:u5UPPPEEuEE}t}WEEEuu%+COWlBnB&HH>B7 ENTER-LITERAL? Bb H?u%? 5I  >[ mE7IDX @uC }@%?%? N M K>S 'm{B>/?B>?BB J FB -SV;%8vIuDUPuEhuEPEEE% .:MRHB%B7ILITIDXB $u?uB1b ER?? S  >>>>??1 U>2?U>>B -T Q 8>V;%8vIuDUPuEhuEPEEE% .:MRHB%BBB$E?IB/b X ?&? Y  >>>>* ?? [>2?[>>B Z BW ;%V;%8vIuDUPuEhuEPEEE% .:MRHB%BBB$-?B3b ^W-?? _  >>>>?? a>2?a>>B ` 0] Ub ;%8vUuPUPPEEuEhuEPEEE%',:FY^IHB%BBBMB> CADR-1ARGH$?;%B-b UeP ?? uf  >J?u7VAL @?? j h>>?vh>+?BB>?B g7 Ed? > 7 ;%8vGuBUPPPEEEu}u*}tu)uuE%uuE%}tu*hEt@EuuE%uuuuuuuuuE E%7bKPsz8EW-function of non closure CONS-2ARGH7%SYMBOL-FUNCTION7 %SYMBOL-VALUEH7 %MAKE-CLOSUREByH$?B+b r?%? s ?ni @?%? w v>?B t Iq> E&;%8vuU}}% H<$7GET-POS>7VARB! {>= } yz hB;%8v2u-UPPPEEuEEE+;HzaB7O7GET-STACK-INDEX?|b ? ?  N>/?T @??  >?Bp G EB  ;%8vCu>UPPP}t7E}t3hjEEE%EuEE}t&huEEE%hhhu빐S'4GLcq8not found on stacksymbolBI7LODHB%7LODNIL$?OMPB5Ob ??   ? ?{GL DO-@??  ??BC>g? =B>8?B PEN O UN;%8UPPPPEEEEuEhjEhEuEE}t+huEEE%hhhu봐0 %5FKXhvBnot found on stacksymbolHN7ORSTOBpBB%B`ByHHB+H$? 7B)Pb NEN??  ? ttuL E@B @E7V @? ?E %  ?~?{B0>z uB>l?B>\?uB>J?B>9?B>4?B>)?B>$?JB    ;%8v~uyUPPP}}wuEPEEtKhhEEuuuuuuuuuE%Ð#/7AQHB7INCSPBHBBH$%C>>>E ?9%?%   >U %[=?%>; [=?%>3?Ez?%%>' E?%  G ;%8u~UPPPPsjjjhhjhht$uMuN+uePWEEEuu$.V[hs~BHMAPLIST H%%CLOSE-ON-STACKj ALLOCATE-CLOSURE-ON-STACKHL$D?S-PB%Eb aEdUNC?? P 1:@ CT ?y>?T?, >w?G>l>B S  SBQ2;%8v%u UuuuE%).H$CG >>>E =9=  Gt;%8UPPPPPPPsjjjhhjhht$uMuNEEEEEEEE+uePWEPEu$.EPuF}tEPuFhEE}WuF}hEPuFhuFhE-PuFEPuFhuFU`n|}^,N!r;SBHBBk4mHPROGNBMREVERSEBLENGTH=EBHB7 LAMBDA-BODY7 LAMBDA-VARS HBH$B?NCRBTb ?B ??  u@ <? Q?E~{7BODY @@  %@ 7ARGS @T7HEAD @??   ?P uKU=P?B?Ev B?bMuB?}R oB?u? B?0 S=B??u~{B? ށB?p B? B??nB??=B??B??B??=B>r?B>d?B>Y?B < S Q2;%8v%u UuuuE%).He$C >>>E =9=  GI7P ;%8UPPPPPsjjjhhjhht$uMuNEEEE+uePWEPEu$.ujuFE<u"ǁpWuFPِS^qv- RS-2ARGSHBH7 FUN-ARITYB= BHB HBH$?.Bb @??  @ B??Tz @B %@L??  ??B??=B??B??B?%?B>b?B>W?B  0 N ;%8v?u:UPPEPEE!'/=CHHcHEMULATOR GET-OPC-ENTRY GET-OPCODE% FIND-SYMBOLEMU SYMBOL-NAME$?7FUN?   >A?UP @?W >3??>+?J?E>?u*=?   :;%8f]UPPPPPPPPEEEEEEEEEEEuEuEhuEhE}hEPEhuEhEuEhEPEhhEhEhuEuEEE%jEF$/:Ef[P[wM*: ?nsH7JMPBHBDB7JNILBBKGENSYMBHBHM CDDR-1ARGHcH$7COMP-GEN-DO-UNTIL-OLD?%b ?? C E? l&H 7LABEL-EX 7@N7 LABEL-GOON @7 LABEL-TEST @u7RES @ 7CND @E @7SCND C@@??    ?_ S '{B*?/Q =B?> B?. oB?- SB?  %B? UB? B? uB? B? oB??=B??B??nB>{?B>j zB>_ .B>T?Z{B>I?=B>>?B>3?B>(?IB $E B  f;%8B9UPPPPPPPPEEEEEEEEEEEuEuEhuEhEhuEuEhEPEhhEhEhuEuE}t!hEEE%EE%$/:Ef[P(wbJ 3;OHBHBDB+BBK. HBHHBH$R7COMP-GEN-DO-UNTIL-NEW?b ??  <??  2?@B @B @B @B @UB @B1 @uPU?E? E E h ?, B ? oB?  B? B? B? B? B??~{B??=B??IB??nB>{?B>j ADRzB>_ B>T?Z{B>I?=B>>?B>3?B>(?B < B uE&;%8vuU}}% H$E>B#b ;%>= BU Bg Z;%8zUPPPPPPPEEEEuEhuEPEhEhjEEuu}hjEhE}WEh}WEPEhEEPEhjEhEhhEhE] u8ށup+EE}}}} SEw.#6GLZK&fv{[6;BCHH7 %SET-SVREFBBH7 %MAKE-VECTORB%BBBBl- H$?ARBB!b ??  B? ;%27P @E @E7NARGS @ @+?;?   O E?-{ EX?V= @ ?_oB?NO?TB?:B?*B?B? pB? ~{B? ~=B?%B?P B? }oB? B??E=B>z?B>j?nB>^?Ev{B>K?B>:?B>2?J{B>'?B B  % U  HT.;%8v uUPEEE%$)nHB4H$l?IBb B%?L?  >>z5O??   Bm b ;%8vOuJUPEt;E=u,EuuuuuEE%*4MSXEHmHBBHBbuH7LENGTH=2$CLABELS7 TRANSLATE-FUN>>E??   >8 i{?>)Z?> j? ! G R;%8UPPPPPPPPPPPPPEEЋEEEEEEصEE}̋}̋EE}WE}ԉ}uԉuEE:}}}WEh}WEPEhEhjEhhEhEEPEhjEuصEhuܵEhjEhjEhhEhEhhEPEhjEhhEhjEhjEhjEhjEhuصEuܵEhhEhhEhjE] u-p$PEEE%SϋEPEEEEE] uށup}}}}cSEߐ ?)84\Qk{DcP>,wV  I0qdiv |C1UH HH7Ed CALLCLOSV7INCCSPBCDR7STOCS7%+CAR7>lLODCSBT5B7PUSHCSB%BBB7LENGTH=1BuFCDISPHBHB+H$? .Bb / ?? 0 ?LV ;%@B @ PPP@sj h7Q j@7 LABEL-END u @7 LABEL-LOOP E @B @B  @B @+e7E1  @E?? ; 9 5 4 3? t}{B]?PB? nB? }{B?uB?B?FB?u{B?=B?uB?PgoB?TFB?BB?0B?B? {B?=B?^B?B?oB?B?B?B?{BB?h k{B?Z =B?GH B?< E{B?4 oB?$ EB? B?B BB? B?V B??B~{B? lB??TnB> B $internal-flet-name-for-TRANSLATE-FUN  @B Q>` zB>U %B>C?=B>8?B>-?B 17 E. Z ;%8UPPPPPPEEEEEEEEuEhuEhEuEhuEhEuEuEuuE%%3AWLؙhm{H5Be7IF-EXPR-BRANCH-F 7IF-EXPR-BRANCH-T7 IF-EXPR-TST$?PPB'jb hXjh?? Y N'??{E E +@3 @W7E2 @E: @7TST @?? ^ [ ??=B!??B??~B??B??B>?B>l?B>[?z=B>P?qB>E?ZB>7?B>)?B Z' W -~;%8zUPPPEEhjEuEhuEPEhEhjEhEhuEhEhjEuEhjEhEuEhjEhEhjEhEhEhhEPEhEhjEhEhhEhjEhuEPEhEhjEhEhuEhEuuuuuuuuuE EE%*2C E#l?eMjRz`U|S0358xH%7%-BCONSB7uEXCEPT7% fE?E? h Ei?W7 LABEL-START @8 @?? m k?GB3?4B?$B?B?B?sB?{B?D=B?LBKB?SBB?DRB?B?~MPB?-iIOLB?YB?I {B?7 =B?' B? B? B? B?X B? B?O?{B??=B?E?EB??u~B?? B>p?B>d? B>Q?B>C?B>.?B>#?B ii dB k>;%8v1u,UPhhEEE%"5:HBBu$7GENERATE-STANDARD-PROLOG?gb {j ??.  {>&?=>??   ~ %;%8VMUPPPPPPPPPEEEEhEEEEEEEE܋EEEuuuhEEE] -EhEEEPEhEET}WE}WEh}WEhEh] - PE}WEhEhjEEEuEuEuEuEhuEPEhEE}hhS[}WES(6>FTbp~ <!V1TchFw',:cw~BH8illegal formed &restH>BB7MAKE-PRETEMPLATE7RETBWBBk#eB;%REMOVEBgMMEMBER-EQ-2ARGHDBNBBaB+BmHBDBB$P? EBb E?h?  o? REST E@g @u   @B: @B E@h @  E@h??    ? {? EV{B? j=B?Zh7TEMPL @B ?J~B?p>B?}+B?B?{B?.=B?B?B?B?B? {B? =B?{ B?g wB?X =B?@ B?5 B?% B?T RB? ~B?K EB? B?-?=B??B??BvB?! B>t ZB>f?{B>X?=B>J?B>:?B>,?2B 7o E %@Q2;%8v%u UuuuE%).H$C>>>E =9@=  G?N- ;%8UPPPPsjjjhhjhht$uMuNEE+uePWEPEu$.huuFuuFhuFUhmzBH%B B7UCALLCLOS=EBH$?Bb nB4?? l @ ??L7LEN @ ??5  ????B??B>~?B>Y?B u  t \6;%8v(u#UuuE E%,1H)M7HALTX$HB7COMP-GEN-EMBRACE=B>=   ABEfF;%8v(u#Uuut@=u鐐)"1H7 PRE-TEMPLATEB7IS-PRETEMPLATE=7PPXP=   EԚf;%8vXuSUPPPEEEEuuuuuuu uE uuE(M\aH LIST-3ARGHhxBBh?bE?  >,??>??  u ]6;%8v uUPE=u !)H3BH$P7 IS-LABEL-STMT?h7STMTE?  >>z?j   &~;%8UPPPPPE PE PEE E]t tB;u=}WEE}]t[M +EE}uuE<%uu ɏ$hhhu hhh}WYSEluEphqH!P)X1^7fq+ A0;Osa LOGAND-2ARGSHHH cannot be resolved label 8C not resolvableopcodeC77GET-OPCBHmHM>lASSOC-EQL-2ARGHBHBoBEMUBH$?EH=1Bu7 LABL-ASSOCL H$?%??  *? w v7D @B @?%??   ?e?h}? S @v>-7SUBS 7@B ELO? E  mB? ?B? +ҶB>u?>B>j? B>b?JB>T?*}B>L B>;?B>-?B>%?B * }B P=;%8vu U%HF$C7 ASM-TEMPL>>>E =B=  G;%8UPPPPPPPPPPPPPPPPPPPPPEEEEĵEEEEEEEEuĉu}t`EEEEPEPEEЋuȉuEE}}ȋ}}}Љ}пWEĵEċEĵE̵EPE̵EEuu]M uP;]|YEuĉu]Ẻ ;EË]  E+SEu}WEPE] ށuEEԋ}}}ԉ}8S]EP}WEE}WEPEPE] uLށup?EE؋}}}؉}SSE.SE뱐1<JDU]L;"*)e HMESYSTEMSET-TEMPL-REF-CN-FSET-TEMPL-REF-DH7 MAKE-TEMPLATECL-TO REMOVE-IFH HB`HHM CADDR-1ARGHBH{$E?+7PTL W7U 2 c? 7=ST  @ ^@[ B @! ? @B, @B  @7C-LEN > @7D-LEN z=@q7CODE >)@7DATA W@ U   ? zPP E@ Eh@ E?vohu E@L E@ ? hV{ @ ?i EB?haEB?hYzoB?PEB?hHB??B?- v{B?hB?  oB? V=h @ ? B? h~{B?B? v=B? B?. B?& oB? ڷB?  hB?E?v{B? V @ ?B?޶B?hj{B? zB? vB>N?hB>@?E U>5? uU uc B E< ;%8UPPPPuP<Ɓu}uuEEEE}uuuuuuuuuuu}EPEvuEw %3glzH'HB MAKE-SYMBOLHE TE ASH-RIGHTH$VAR7 DISASM-OPC?i?   ??????A?-?R=@7OPC1 @ k@+ @? 3  >~ >p?B>k?J{B>7?J?>)?*=?  B  ;%8 UPPPPPPPPPEEuܵ EEEE]M ;]EEE]M ;]EE}Euu܋uu܋uuuuuuuuuuuuuuu uE }SEZu܋EPEE] usށupf}}SE+u܋EPEE] u(ށup}}SESEՐ(FS06CKz>O H TEMPL-REF-CmHM TEMPL-REF-DBHHHBGET-WORDETO-CLLENGTH-D$E7 DISASM-TEMPL?E 7TPL   9? h @  @B @B -@B @ h  ??=E @ ? vB? ڽB? }jB?VB?~?=B?hS?v{B?J B?]B jB?-: V=B?#?lB??W=B??vB>W? >O? >G V E>4?E >,?J E9 B  U  HLOAD-XREF-INFOL&;%8vuU%BHCJ XREF-INFOzCALLSBTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEJDEFg8h=BiBBBhj&+>=aiBBBh5BBBVBBBiBBB0h+ghLISTBiBBBhNULLNOTaBBBK)BBCADRCDDRoiBBBt REFERENCESBAhPSETF^iBBBkhnBXASHMLOGANDEiBBBh8+oBB%B)BqBBBBEsh^iBBBshjBaiBBBhATOM8&B;)EQ@LISTPqBBBBGhno>iBBBhBBmBB&laB_)oqCADDRBBBBhhJLOCATIONVghBiBBBhB:BBqBBBBhB BB=iBBBh{)xBBBBBsOhg~srhB ^iBBBhB:BBiBBB>h<iBBBxsrh^iBBBhB:BBiBBBQhN MAKE-SIMPLE-ARRAY MAKE-TYPED-ARRAY MAKE-ARRAYBOUNDPtoB Kgh>B JBBB28 oE-BMMEMBER-EQL-2ARGMEMBERuBBBBBaBiBBBZhBVghB:BBiBBBhB aBASSOCSYMBOLPq8U)BBoBBBB5hh~nhxiBBBh)aoBPB=BBuBiBBBhhFaoBBBBK)BBqBBBBBeh5BBB:B BiBBBhBmVghB8oBB%xBBBBjBs%X hB ^BiBBBEhBB=)BiBBBhBBBBB BB BBBB)xBBBBB"BB%BB(yL7 CONSTANTS SYS-NUM RAW-LOAD-HALF RAW-LOGAND BSYS-=M ARRAY-TESTARRAYPSTRINGPBB-B CHARACTERPBBBBB%hqBBiBBBh)xBBBBhBX Bl aPmNBB,BBiBBBh&iBBBhBBBiBBBausX@h^iBBBh5BBB:BBl,Bax1WITHOUT-INLININGBBBHiBBBS)EhP~EnxiBBBhBVgshB %^iBBBhB)oB:BBBlBsiBBBuhjauiBBBh)iBBBmake-safe-for-tail-call-397B gI&3hHgshh^iBBBhiBBB,hzaiBBBhB&oB)%iBBBthB=V??EPTUUU)EUURRTUJQUUU%QVJQUUUUU%U)EIURTUUUUUUUUUJQ)EU)EUUJQUUJQU)EI)EIRTU)EU)EIUJQUUU)EUUUUUUURTJQUUUUUUUJQUUUUUUUU)EUURTUUJQeRTUU)EUUUUUUUUUUUU)EU)EUUURTRTU)EIUJQUUUURTU)E%QVJQUUU)EUU)E)E)EIUJQRTRTUU)E BCB>>>E%=