;;; Compilation of /home/juergen/lisp/mevalxp/comp-3.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-3lispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWCL-USERBCB>>>E%= /fF;%8v(u#Uuut@=u鐐)"1BHLAMBDABCOMMON-LISP-USER55IS-LAMBDA-VAR-3=5V= 8 4B fF;%8v(u#Uuut@=u鐐)"1BH5GLOBALB5 IS-GLOBAL-3=B= = ;B fF;%8v(u#Uuut@=u鐐)"1BH5%SVREFB5 IS-SVREF-3=B= B @B fF;%8v(u#Uuut@=u鐐)"1BH5UNQUOTEB5 IS-UNQUOTE-3=B= G EB =;%8vu UBHSEQII CADR-1ARGHB5 UN-GLOBAL-3=B= M KB 6;%8vu UEBHBC5COMP-3LABELS5 COMP-3-OTHER>>E>5E5SL V>= Y OG6;%8vu UEBHBCB/B5 COMP-3-STRING>>E>BB `>= a [G6;%8vu UEBHBCB/B5 COMP-3-NUMBER>>E>BB h>= i cG U BH5 ACCESS-READ-3 U BH5 COMP-3-NOHEAD U BHB` U BH5 COMP-3-SETQ U BH5 COMP-3-LET U BH5 COMP-3-LAMBDA U BH5 COMP-3-LABELS U BH5 COMP-3-FORM U BH5COMP-3-GENERIC;%8vXuSUPPPP}}}}t3}tEt/u>u'uEɏ$%EEt}EEt+u>u#u~u"}E}u:}Eu~tɋu~uEu}uEtEH=Et E%Et E%Et E%Et E%Et E%Et E%Et E%E%%P\at3`DOk|BmB5IS-FORMB5 IS-LABELSBB5 IS-LAMBDAICAR-1ARGHB5IS-SETQ5 IS-PRIMITIVEB5IS-SPECIAL-FORM5IS-QUOTEFCDISPHNUMBERPBHBY5 COMP-3-SYMBOLBBBBB/?BB ??  !?=DBG#internal-flet-name-for-COMP--NUMBER @#internal-flet-name-for-COMP--STRING @"internal-flet-name-for-COMP--OTHER @??  ?B4?mB?|B?B?o~B?S\B?7B? o{B>x B>T jB ! B r;%8vAu??%?   B. Q2;%8v%u UuuuE%).BHBABCBV>>>E =5Z=  G;%8vxusUPPPsjjjhhjhht$uMuN+uePWEPEu$.QVcoBHMAPCAR%%CLOSE-ON-STACK ALLOCATE-CLOSURE-ON-STACKHBBV?BB ??  @ >s>?? >g>BX  B vB;%8v5u0UPPEEEPEuu!-9>BH CONS-2ARGHBhICDR-1ARGHBHBBI?BB ??   >1??? >%?B`>>zB B f ;%8vVuQUPPPEEEPEE}WEE}}E".@HZ_BHH5ACCESS-READ-FUN-3BBB9HBHBBT?BB ?%?  >L?REST @5HEAD @?%?  >D?Bg>2?B>&?B>?B  B oB;%8v4u/UPhEuuuuuuu8=BHHBHBBCBN>>>E ?B4?  >*?  GQ2;%8v%u UuuuE%).HBABCBN>>>E =B4=  G;%8 UPPPPPPPPPPsjjjhhjhht$uMuNEEEEEEWEPuFE+uePWEPEEu$.uEEuEPEE؋EkX`s~HH5 MAKE-LAMBDABBWBHBAPPENDBBBH5 LAMBDA-VARS5 LAMBDA-BODYBHBBN? BB ??  @ $?  Ҷ5BODY-1  @5E1 @5SL-1 @5ARGS @5VARS @5BODY @??    ? JB~? B? B? B??B??J{B??ZB>w?B>o?B>d?B>\?JB $ B  ;%8vuUPEu EEt EEt1hEuuuuuEEt%uFuuuuuEEEV)T7BLxYrBB5 %SYMBOL-VALUEBVHQUOTEBBHBBHBBG?B;?  ??{???=?>] ?>X v?>F??>-?t?  B L ;%8vuUPEu EEt1hEuuuuuEEt1hEuuuuuEEt%uFuuuuuEEE.)t3|;ՠ_@YjB=;FBu5e %SYMBOL-FUNCTIONB`HBHSc6BHBi?iB ?C s i? ? {???=?? ?? v?>n??>D V?Y>? ?>-?Et?F OTA LB P ;%8vuUPEu EEt'EuuuuuEEt EEt uF됵EE|)n6OU`yBBBBfHBFJHBBHBU5ACCESS-WRITE-3?r?i  a?>? {?>}?p=?>d?i?>: V?>-?t?  BG K Z;%8UPPPPEEEE}WEE}WEEEtIE}uuuuuuuuuuuE EEtDE}uuuuuuuuuuuE EEtOEEE}uuuuuuuuu uEuu EEtDE}uuuuuuuuuuuE E "+=O]ym M^iSETQ6 LIST-4ARGHB5B %SET-SVREFB BBH LIST-3ARGH5%SET-SYMBOL-VALUE<BB3(I CADDR-1ARGHBHB@=BL?BB ?5?  '?} H{F @7 @REF?5?  ? m ?& {B?U ֽB??{B? B??=B>q VB>a?B>S?vB>A?B>/?B>$?B QU' p S-U U BH;%~J;%8v:u5UPPuEEEuu%!/>CHBBHB$5PREPEND-LAMBDA-VAR?B5LAM ??   >3?E?? O>%>z> ?B  B A";%8vuU}}HH$C5PAIR>>>E >/5X5Y >>>=  G U BH5ZIPE`:;%8v+u&U}uuu] }%/4BHB $ >5L15UL2 >= 5 CB -Q2;%8v%u UuuuE%).HBtBCBP>>>E =B2=  GP*;%8vuUPE%#PHB*BCHBCBP>>>E ?B2?  >LBDZ?  G=;%8vu U%HBYBC BP>>>E =B2-F= # !G ;%8vyutUPPPP}}wuEEhh}WPEuuuuuuuuuuuuu$,1M?H}HHBHBAH5 %CLOSURE-REF?B@HBu:CBP>>>E ?~B2?t (  >QE*m?>LnҶ?>CUio?E>(Z?% ) &G EoB;%8v4u/UPhEuuuuuuu8=HHBHBBCBP>>>E ?B2? 1 >*m~{? 2 /G`Z;%8G>UPPPPPPPPPPPPPPPPsjjjhhjhht$uM܋uNuE+uePWENjEWEu$.}WEEWEEPEEPEEWEE+ueEsjuuhhjhht$uMuN}W3E؉+uePWEPEu$.P}GEԵEEEE̿WEPEEȋu~WEEu̵EEhuĵEPhEu$.`fy~#)n=!/5BTHHVECTORBE5 %MAKE-CLOSUREBB8HB|BBBBU5 ENUMERATE5GET-UNIQUE-VAR5SELFBCAR SYMBOL-FUNCTION$SYMBOLHCDRAR REMOVE-IFBBBBBHBkA5HB ANNOTATE-PROP5READS$BP?%BB A??? B @ @ C 2H?F%mouB u@5VARS-1 @B @B A @B @V>B  @5SL-A  @5SELF-VAR xAPPs5 CLOS-VECT j@h$5RDS-SUBS +@5RDS @P?? U S Q O M K cJ I H F?RAn۶Bl?-3SCKm~{B?OELOm~{B?C BҶm=B?ҶB?J۶B?mB?ҶB?ҶB?J~{B?BB?rBB?- ~{B?P oB? B?E ڷB?u B? B??v{B??=B??B??B>j?B DNSH H@t DARGj;%8v]uXUPPPEEEEEuuuuu uuEuu uu"0OafBHH3CADDDRHJHBCBR>>>E ?B0? e  >4*m?>&n?>ZJ?_ f cGSAD-Q2;%8v%u UuuuE%).HBtBCEBR>>>E =B0= m kGP*;%8vuUPE%#HB*BCHBhCEBR>>>E ?uB0u? q >Z=? r oGBH=;%8vu U%HBYBCBR>>>E =B0= w uG% ;%8vyutUPPPP}}wuEEhh}WPEuuuuuuuuuuuuu$,1M?H}HHBHBAHB1?B@HBCBR>>>E ?B0E? E{  >Qu*m?>LunҶm?>CPUi߶?>(Zm{? u| yG EoB;%8v4u/UPhEuuuuuuu8=HHBHBBCHARLEQUIN-COMMON-LISP SUBFUNCTION>BR>>>ET?PD B? A >MBj[m?  G ;%8UPPPPPP}}wu}wu}wuEEh}WEPEPWEPEPEuuuuuuuuuuu uuEuu uuFNpZbgx~HHBBHBBB|B BHBBH6H$CBR>>>E ?uB0?  '?*m߶?u?Vi=??ɯJ??Uڶm??Vi=??TֶJ??YZ*m߶?>|5*m߶?O>tUVHj{m?U>kBB[m?>fB;*m߶?>^Z{m?>J{no? ]' Gv';%8UPPPPPPPPPPPPPPPPPPPPPPPsjjjhhjhht$uMuNEEuEEEEEWEEPEE+uePWENjEWEu$.}WEEWEEPEEPEEEE}t9EPEEjEEEE܋}܉}WEE؉+ueEеEsjjuuuhhjh$ht$uMЋuNM̋uN}W3Eĉ+ue+uePWEPEu$.P} GEsjuuhhjhht$uMuN+uePWEEu3uEu$.}W}GPuuFPh}W3EE@@PhEPEu$.u$.hu{pU<DI0Wd#+ct}4R`qX/7=NSw5MAKE-LET}5HBXHu?B LIST-1ARGHuxB5CVBBB;HHBHBHuREVERSE<BB1BBBHjBHBaJH5 LABELS-BODY>B5 UN-ANNOTATE$BR?BB ??  @ @ @  M{?n=5LET-BODY @4AR ASVRBr @35CV-VAR BB MBALUB  @(IB D@GHB@5FN-VARS @5FN-LIS @55FN-DEFS @5E-BODY @B @B @??           ޫ?=v?m߶B?u/mB?dUmB?\-Um߶B?WڶmB?RBֶmB?%;Jj۶m{B?3UPPV۶oB?!mB?Ҷm{B?oB?BB?ҶmB?tCJ=B?hBB?8B?BV?ªm{B?=B? ߶B?߶5CC E@B ?%~B?vmB?x =B?g;%oB?Y Um{B?MڷB?@ =B?4B?' vB? mB? RҶB? ҶB? B? B?> B??=B??B>?B>l?B { v '5 U BHLOAD-XREF-INFOL&;%8vuU%BHCJ XREF-INFOrCALLSB\BLISTCONSBVB&BBiBBluTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEDSPEC))DEF#<$:=BEQLISTP'BBBp$6B B%U<BB3CADRCADDR'BBB6$:+BBBBBBS$zBBBBBB :~BBBBBB , CHARACTERPD CONSTANTS00SYS-NUM RAW-LOAD-HALF RAW-LOGAND SYS-=I ARRAY-TESTBARRAYP>STRINGP#FUNCALLBBSYMBOLPNULLPWITHOUT-INLININGh'BBB$A<EFB-B6uuATOM'BBBm$<uz:&BBBBL$B BBBB $B'BBBz$SBV'BBBH$BO,E<FHBASSOC'BBB&~$2#x$BB4:BQz'BBB0$+#k$A<F%<-6<BBBB$B& E'BBBF%$:+BBBBBEv$uzBWBB}BBBhBk<&BB<=Bb.BSYMBOL-FUNCTION-B'BBB2make-safe-for-tail-call-397B {#A$:+BBBBB$A%<FB-B><U<BBBBPtP$BBVBBk%BBhBk>t:u<=BB#>'BB?Ex?+EPTUURTUJQUUUJQU)EUUUUUUUUUUUJQUU)EU)EU)EUU)E)EUU)E)EUURTU)EUUUUUUUUUJQJQU)EUURTUUUUU$CEB>>>E%= @