;;; Compilation of /home/juergen/lisp/mevalxp/comp-gen.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2007/05/24 0:27:12. ;;; 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-PRIMITIVEBaEdFUNCALLBAPPLYB:1VECTORB 7DO-UNTIL MCAR-1ARGHB7, IS-PROGNB 7;;IS-IFB7spIS-SETQB7 IS-FUNCTIONB7IS-QUOTEBBlNUMBERPBHo$e fe7COMP-GEN?  Cre7EB> o??  -?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 ? >?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"z;%8WNUPPPPPPPPEEEEEEEEEEEuEuEhuEhE}hEPEhuEhEuEhEPEhhEhEhuEuuE%jEU$/:Ef[P_wqM*: ?dH7JMPBHBDB7JNILBBKGENSYMBHBHM CDDR-1ARGHcH$E?B#b ??  B?u Bn 7LABEL-EX @7 LABEL-GOON @7 LABEL-TEST @7RES @7CND @m 7@D7SCND @}??    ?Q =B)?> /B?. oB? B?  -B? B? B? B? B? oB??=B?E?B??nB>{?B>j zB>_ B>T?Z{B>I?=B>>?B>3?B>(?B IB I  f;%8B9UPPPPPPPPEEEEEEEEEEEuEuEhuEhEhuEuEhEPEhhEhEhuEuE}t!hEEE%EE%$/:Ef[P(wbJ 3;OHBHBDB+BBK HBHHBH$?HB#b -?? 3 -<??  @B >@B @B @B @B @B0 @??   U ?, EB? oB?  B? B? B? B? B??~{B??=B??B?,?nB>{?B>j YzB>_ HB>T?Z{B>I?=B>>?1B>3?B>(?B ;%< -  Z;%8zUPPPPPPPEEEEuEhuEPEhEhjEEuu}hjEhE}WEh}WEPEhEEPEhjEhEhhEhE] u8ށup+EE}}}} SEw.#6GLZK&fv{[6;BCHH7 %SET-SVREFBBH%7 %MAKE-VECTORB%BBBBl H$?B!b ??  B? &7P U@ @7NARGS @ @??E O   ?{ V= @ ?_oB?OUPPB?:B?*EB?B? B? ~{B? ~=B?B? -B?N ?oB? B??=B>z?B>j?nB>^?v{B>K?B>:?B>2?J{B>'?B B   U  HT.;%8v uUPEEE%$)HB4H$E?EBEb %h??  >>z??    Bm b ;%8vOuJUPEt;E=u,EuuuuuEE%*4MSXHmHBBHBbH7{LENGTH=2D$@CLABELS7 TRANSLATE-FUN>>E?PN?O   >8 i{?>)Z?> Uj?P  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 CALLCLOSV7INCCSPVBCDR7STOCS7%+CAR7TLODCSBT5BSN7PUSHCSB%BBBO7RELENGTH=1BLDFCDISPHBHB+H$EdU? Bb ):1CT? ? * ?LwV>lS @B @ 2@ u7Q u@7 LABEL-END  @7 LABEL-LOOP ) @B @B  @B @ 7E1  @ ?? 5 3 / . -? PPP}{BW?jjB?j nB? }{B?B?EB?B?{B?EP=B?u$.B?PgoB?TEB?BhB?0}uB?B? P{B?=B?B?B?oB?PB?B?B?{B?h {B?Z =B?H B?< {B?4 oB?$ B? B? B? B? B??~{B? lB??nB> $internal-flet-name-for-TRANSLATE-FUN B @B KVE>` zB>U HB>C?B=B>8?B>-?AB + A(R HZ ;%8UPPPPPPEEEEEEEEuEhuEhEuEhuEhEuEuEuuE%%3AWLؙhm{H5B=7?IF-EXPR-BRANCH-F=7IF-EXPR-BRANCH-T7 IF-EXPR-TST$?2B'b R Uu?? S '??{  @3 e@7E2 @4 9@7TST @?I? X U ??=B!?U?PB??j~B?h?B?j?B>?B>l?MB>[?z=B>P?B>E?ZB>7?+B>)?B T' EQP E ~;%8zUPPPEEhjEuEhuEPEhEhjEhEhuEhEhjEuEhjEhEuEhjEhEhjEhEhEhhEPEhEhjEhEhhEhjEhuEPEhEhjEhEhuEhEuuuuuuuuuE EE%*2C E#l?eMjRz`U|S0358xH7%-B%CONSB7EXCEPTu7;%% `?E? Eb i?WE7 LABEL-START @2 @?E? hg e?GB3?4EB?$PB?hB?B?EB?u{B?E=B?B?B?B?B?~B?iB?YMB?I {B?7 =B?' B? B? B? B? BB? B??L{B??=B?S?B?’?~B?R?RB>p?B>d?B>Q?B>C?B>.?B>#?B ci ^B k>;%8v1u,UPhhEEE%"5:HBBu$m7GENERATE-STANDARD-PROLOG?ab z?? { >&??o? } | xy ?%;%8VMUPPPPPPPPPEEEEhEEEEEEEE܋EEEuuuhEEE] -EhEEEPEhEET}WE}WEh}WEhEh] - PE}WEhEhjEEEuEuEuEuEhuEPEhEE}hhS[}WES(6>FTbp~ <!V1TchFw',:cw~BH8?illegal formed &rest,H>BB7MAKE-PRETEMPLATE7RETBWBBk1_B(REMOVEBa-MMEMBER-EQ-2ARGHDBNBBaB+BmHBDBB$P? EBb E?h?  o? REST E@a @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??vB?! B>t ZB>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?? E E@ E??h7LEN @ ??  ????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-OPCBHmHMTASSOC-EQL-2ARGHBHBoBEMUBH$O?EH=1BD7 LABL-ASSOCL H$?%??  1*?w v7D @wB l@S?%??   ?e?u}? S @v>-7SUBS 7@B ELO? E  mB? ?B? ҶB>u?>B>j? B>b?JB>T?*}B>L B>;?B>-?B>%?B * }B j=;%8vu U%H$C7 ASM-TEMPL>>>E =BP=  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 HMESYSTEM=SET-TEMPL-REF-CN-FSET-TEMPL-REF-DH7 MAKE-TEMPLATECL-TO REMOVE-IFH HB`HHM CADDR-1ARGHBH{$?7PTL 7U 2 c? 7=ST  @ X@U B @! ?P @B, @B h @7C-LEN > @7D-LEN z=@7CODE >)@7DATA EQ@ PU   ? 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 ?  ?E??h?????=37OPC1 @? @+ @?  ? ??B??uJ{B>u *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-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 E B  U  H[LOAD-XREF-INFOSL&;%8vuU%BHC2 XREF-INFOCALLSNOTBNULLBB%EQTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEJDEFIj REFERENCESBJSETF^BNBBBJ-BB=#BNBBB0J+lIaoJdBBBBB BB BBBB#MEBBBBB"BB%BB(ELISTPB CONSTANTSUUSYS-NUM M RAW-LOAD-HALF RAW-LOGAND BSYS-=M ARRAY-TEST ARRAYPSTRINGPBB-B CHARACTERPBSYMBOLPNBBBEQJ^CADRBB:NBBBEJh NBBBJLOGAND[BSASSOC^B8#BBLBBBBjJBBBNBBBaQXJ^PNBBB_J5BBB:B BNBBBJBB>=BBB +B;B_#L_CADDRBBBBJ5BBB:BBc&B[MWITHOUT-INLININGBBBBNBBB)J~LISTwxNBBBJ#MBBBBBJJLOCATIONVI~QJB^NBBB=JB#LB:BBBlBmNBBBfJ{#XMBBBB:Jj,aNBBB QOJIQ%Ju^NBBBuJ[LBBBBK#BB_)CDDRBBBBJzaNBBBJB LB#NBBBQJN MAKE-SIMPLE-ARRAY MAKE-TYPED-ARRAYt MAKE-ARRAYEBOUNDPuLBKIzJ<NBBBZJBVhI8JF=BNBBBJj cBaNBBBJ5BBBPBBBNBBBJ)NBBBQJB^NBBBJBUVILSJ8LBB%B#B_BBBBQJ^4NBBB EJBBc[bh BB,BNBBB QJjBaNBBBJATOM8 B;#MBB BBBBGJfL>%NBBBJBnjBNBBBɿJB:BB_BBBBQJ1f^A#XASH`BBBBPNJBB BB= NBBBJBAVI~Qr(JBU^NBBB@JB:BBNBBB>J<NBBBxQrJ1^NBBBREJAB:BBNBBBSmake-safe-for-tail-call-397B IyJBNBBB&JXuIJ>B BByBu8uLSEMMEMBER-EQL-2ARGMEMBERBBBBBM[BNBBBJIB:BBhNBBB5Jh~fxNBBBJS)[LBB=BBoBNBBB%tJBuV??EPTUUJQeRTUU)E)EUUUUUUUUUU%UU)EU)EUUUU)EURTUURTUUUU)EUUUUUJQUURTJQeUUURTRTUJQRJQRRTUUU)EU)EUURTUU)EUUU)EUURT%QVJQ)EUUU)EIUJQUUU%UUJQUURTURTUJQURTUU)EUU)E%QVJQUU%U)EURRTRRTUUUUUUU)EURTU)EUUUURTBPCB>>>E%= r