;;; Compilation of /home/juergen/lisp/mevalxp/comp-gen.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2007/10/28 18:36:27. ;;; 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-PRIMITIVEBaEdFUNCALLBAPPLYB6: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 6:@ 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 b ;%8vUuPUPPEPE u PE!'/B8GSY^HcH^BHEMULATOR%*OPCODE-VECTOR*? GET-OPCODE> FIND-SYMBOLEMU SYMBOL-NAMEBu?7FUN?W%  >W? u@?% >K?j>3??%>+?J?%>?-*=?%  B u:;%8f]UPPPPPPPPEEEEEEEEEEEuEuEhuEhE}hEPEhuEhEuEhEPEhhEhEhuEuEEE%jEF$/:Ef[P[wM*: ?nsHE7JMPBHBDB7JNILBBKGENSYMBHBHM CDDR-1ARGHcH$7COMP-GEN-DO-UNTIL-OLD?b H??  E?- ERA B 7LABEL-EX @u7 LABEL-GOON @[7 LABEL-TEST @D7RES @7CND @ N@7SCND @m{?? B   ?_ S{B*?Q %=B?> UB?. oB? uB?  B? B? B? B? B? oB??=B??B??nB>{?%B>j zB>_ XB B>T?Z{B>I?=B>>?B>3?B>(?B E B  f;%8B9UPPPPPPPPEEEEEEEEEEEuEuEhuEhEhuEuEhEPEhhEhEhuEuE}t!hEEE%EE%$/:Ef[P(wbJ 3;OMHBHBDB+BBK HBHHBH3$ 7COMP-GEN-DO-UNTIL-NEW?b a?2?  <?0?  b@B @B U@B @B @EB @B1 @?? E   ?, B ? oB?  B? B? B?I B? B??R~{B?H?=B??B??nB>{?B>j zB>_ B>T?Z{B>I?=B>>?B>3?B>(?AB < B E&;%8vuU}}% H$U>B#b }u*t>= ) Bg Z;%8zUPPPPPPPEEEEuEhuEPEhEhjEEuu}hjEhE}WEh}WEPEhEEPEhjEhEhhEhE] u8ށup+EE}}}} SEw.#6GLZK&fv{[6;BCHH7 %SET-SVREFBBH77 %MAKE-VECTORB%BBBBl H$?B!b %u-U??  B? E7P @ @+;7NARGS B@ ET-@-IN??    ?{ V= @  ?_oB?OB?:pB?* B?;%B? UPPB? ~{B?3 ~=B?EB? B? EoB? B??=B>z?B>j?nB>^?v{B>K?B>:?%B>2?J{B>'?B B   U  HT.;%8v uUPEEE%$)%HB4H$L?Bb O ??  >>z ?? G  Bm b ;%8vOuJUPEt;E=u,EuuuuuEE%*4MSXHmHBBHBbuH7LENGTH=2h$uCELABELS7 TRANSLATE-FUN>>E??   >8 0i{?>)5Z?F> 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 HH7 CALLCLOSV7INCCSPGBCDR7STOCS7%+CAR7LODCSBT5B7PUSHCSB%BBB7LENGTH=1B.FCDISPHBGHB+H$E ?  Bb /?? 0 ?LPVsjh h@hB @ u@ 7Q E@7 LABEL-END  @7 LABEL-LOOP  @B E@B P @B @7E1 P @?? ; 9 5 4 3? Wu}{B]?B? nB? }{B?B?B?uB?E{B?h=B?uB?goB?TB?BB?0B?B? {B?=B?B?!B?oB?BB?kB?OGB?M{VEB?h {B?Z E=B?H B?B< B{B?4 oB?V$ B? BB? B? TB? B??~{B? lB??nB> {$internal-flet-name-for-TRANSLATE-FUN 7 @B SQ>` zB>U B>C?=B>8?B>-?B 1 .u PZ ;%8UPPPPPPEEEEEEEEuEhuEhEuEhuEhEuEuEuuE%%3AWLؙhm{H5 B7IF-EXPR-BRANCH-F7IF-EXPR-BRANCH-Tj7 IF-EXPR-TST$?MNB'b XE?? Y '??P{E  @j3 F@7E2 @: ǁ@7TST @?? ^ [ ??=B!??SB??~B??B??B>?B>l?B>[?z=B>P?B>E?ZB>7?B>)?SB Z' WR B  ~;%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??D~B?? B>p?B>d? B>Q?B>C?B>.?B>#?B ii mdB k>;%8v1u,UPhhEEE%"5:HBBu$7GENERATE-STANDARD-PROLOG?gb {j ??X  {>&?=>??   ~ %;%8VMUPPPPPPPPPEEEEhEEEEEEEE܋EEEuuuhEEE] -EhEEEPEhEET}WE}WEh}WEhEh] - PE}WEhEhjEEEuEuEuEuEhuEPEhEE}hhS[}WES(6>FTbp~ <!V1TchFw',:cw~BH8illegal formed &restH>BB7MAKE-PRETEMPLATE7RETBWBBk#eB*tREMOVEBgMMEMBER-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? 7~B?K EB? B??=B??B??vB?! %B>t u-UZB>f?{B>X?=B>J?B>:?B>,?B 7o  %@Q2;%8v%u UuuuE%).H$C>>>E =9@=  G?- ;%8UPPPPsjjjhhjhht$uMuNEE+uePWEPEu$.huuFuuFhuFUhmzBH%B B7UCALLCLOS=EBH$?Bb %B4?L?  @ ??7LEN @ ??   ????B??B>~?B>Y?B u  t \6;%8v(u#UuuE E%,1H)M7HALTX$HB7COMP-GEN-EMBRACE=B>=  E 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-OPCBHmHMASSOC-EQL-2ARGHBHBoBEMUBH$?EH=1B7 LABL-ASSOCL H$?%? ?  *?w v7D @PB j@h?%?h?   ?e?}? S @v>-7SUBS 7@B ELO? E  EmB?P ?B? ҶB>u?>B>j? B>b?JB>T?*}B>L B>;?B>-?B>%?B * }B =;%8vu U%H$uC7 ASM-TEMPL>>>E =Bh=  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{$?7PTL 7U 2 c? 7=ST  @ ^@[ B @! ?S @B, @B  @7C-LEN > @7D-LEN z=@7CODE >)@7DATA W@ RU   ? 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 Er ;%8UPPPPuP<Ɓu}uu u PEEEE}uuuuuuuuuuu}EPE`uEa %3lbq}LH'H MAKE-SYMBOL H^BH ASH-RIGHTH$7 DISASM-OPC?ETi ?  ????????=37OPC1 @? @+ @?  ? ??B??J{B>u *B>7?J?>)?=*=? LBK 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-CmH TEMPL-REF-DBHHHBGET-WORDTO-CLLENGTH-D$7 DISASM-TEMPL? 7TPL   9?h EE @E  @B @B @B @  ?E?=hW E@h ? hvB? ڽB? jB?}VB?~?=B?S?Ev{B?J B?EB jB?: V=B?#?ElB??=B??vB>W?E >O? >G V >4? >,?J 9 EB  U  H[LOAD-XREF-INFOSL&;%8vuU%BHCP XREF-INFOCALLSNOTBNULLBB%EQTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEJDEFmj REFERENCESBnSETF^BrBBBn-BB=)BrBBB0n+lmaondBBBBB BB BBBB)qEBBBBB"BB%BB(ELISTPB CONSTANTSyySYS-NUM M RAW-LOAD-HALF RAW-LOGAND BSYS-=M ARRAY-TEST ARRAYPSTRINGPBB-B CHARACTERPBSYMBOLPrBBBEun^CADRBB:rBBBEnh)qBBBBn&rBBBnBBBrBBBauXn^rBBBjnBB>=BBB&h+B;B_)pCADDRBBBBn5BBB:BB},BaqWITHOUT-INLININGBBBHrBBB)n~LISTxrBBBn)qBBBBBnJLOCATIONVmunB^rBBBnB)pB:BBBlBsrBBBnjKaErBBBn)rBBBuOnm%utUn^frBBBnrBBB,nzarBBBnB&pB)%urBBBQunN %MAKE-SIMPLE-ARRAY MAKE-TYPED-ARRAY MAKE-ARRAYE BOUNDPpBKmzn<rBBB%ZnBVm8nP=BrBBBnj&BarBBBn5BBBuVBBBrBBBnBBrBBBhnBBaFBBBK)BBCDDRBBBBunB^rBBBumn^)ASHLOGAND%rBBBnBLVSmn8pBB%B)BBBBB%u4n^rBBBnB B aBB,B rBBBu njBarBBBnATOM~8&B;)qBB BBBBGn%p>UrBBB nBrBBBnB:BBBBBBnB BB=rBBBnBBVmO~GuErAnB^rBBBnEB:BBErBBB>n(<urBBBxu=rn^rBBBnB:BBrBBBmake-safe-for-tail-call-397B m&nSmEPnE>B PBBB8pwMMEMBER-EQL-2ARGMEMBERBBBBBuaBrBBBEnB:BBrBBBnB"aBwASSOCBa8)BBpBBBBh5n~xrBBBnw )a,pBB=BBuBrBBBna pBUBBBK)BB B BBBBen5BBB:B BrBBBtnBV??EPTUUJQeRTUU)E)EUUUUUUUUUU%UU)EU)EU)EURTUUUUUJQUUUURTU)EURDY)EUUUURT%%U)EUJQUJQUUUU)EUJQ)EU)EUUJQUUURTUUU)EIRTUU)EUUU%U)EUUURTU)EUUUJQUUJQUJQURTURTJQeUUJQUJQRRTU)E)E)EUUUUUUURTU)EUUUU)EURTUUUU)EUUUUJQUU)E BC}B>>>E%=