;;; Compilation of /home/juergen/lisp/mevalxp/comp-3.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/04/09 17:31:17. ;;; 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 BH5COMP-3-DO-UNTIL U BHB` 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%Et E%Et E%E%%P\at3|DO`k )5BpB5IS-FORMB5 IS-LABELSBB5 IS-LAMBDAICAR-1ARGHB5IS-SETQ5 IS-SYSTEM5 IS-PRIMITIVEB5 IS-DO-UNTILB5IS-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 @??  ?o{B9?=B?B?o{B?mB?|B?o~B?S\B?7B? o{B>x B>T jB ' B r;%8vAu??%?   B3 Q2;%8v%u UuuuE%).BHBABCBY>>>E =5Z=  G;%8vxusUPPPsjjjhhjhht$uMuN+uePWEPEu$.QVcoBHMAPCAR%%CLOSE-ON-STACK ALLOCATE-CLOSURE-ON-STACKH$BY?BB ??  @ >s>?? >g>B_  B  ;%8vzuuUPPPPEEEEhEPEPEPEEuEuu%#+3?HoTY^~BHAPPENDH CONS-2ARGHBICDR-1ARGHBB/H5DO-UNTILI CDDR-1ARGHBHBBK?BB ??  >s?5BODY @SECOND @??  >b?Bj>]?B>X B>L B>C?Z{B>7 jB>'?B>?B  B vB;%8v5u0UPPEEEPEuu!-9>BHHBB>HBHBBI?BB ??   >1??? >%?Bs>>zB B f ;%8vVuQUPPPEEEPEE}WEE}}E".@HZ_BHH5ACCESS-READ-FUN-3BBB>HBHBBW?BB ?%?  >L?REST @5HEAD @?%?  >D?Bz>2?B>&?B>?B  B oB;%8v4u/UPhEuuuuuuu8=BHHBHBBCBQ>>>E ?B8?  >*?  GQ2;%8v%u UuuuE%).HBABCBQ>>>E =B8=  G;%8 UPPPPPPPPPPsjjjhhjhht$uMuNEEEEEEWEPuFE+uePWEPEEu$.uEEuEPEE؋EkX`s~HH5 MAKE-LAMBDABB^BHB*BBB&BH5 LAMBDA-VARS5 LAMBDA-BODYBHBBQ? BB ??  @ $?  Ҷ5BODY-1  @5E1 @5SL-1 @ompo5ARGS jue@l5VARS /co@Bk s@; b?r?  L s a o?  200JB%? 3B?; aB?3 pB?,?aB?1?lJ{B? ?IZB>w?tB>o?0B>d?mB>\?nJB d$ eB Fu ;%8vuUPEu EEt EEt1hEuuuuuEEt%uFuuuuuEEEV)T7BLxYrBBu5 %SYMBOL-VALUEB]HQUOTEBBHBBHBBG?BB?M  ?R?O{?T?H?=?>] ?O>X Lv?>F??>-?At?  RB L ;%8vuUPEu EEt1hEuuuuuEEt1hEuuuuuEEt%uFuuuuuEEE.)t3|;ՠ_@YjBFB5%SYMBOL-FUNCTIONBgHBH6BHBE?BU?  ?%?{???=?? ;%?(?u v?u>n??=>D V?>? ?>-?t?  B 1 ;%8vuUPEu EEt'EuuuuuEEt EEt uF됵EE|)n6OU`yBABBBmHBPJHBBHBG-5ACCESS-WRITE-3??  ?u?{?>}?=?>d??>: V?>-?t?  BQ Z;%8UPPPPEEEE}WEE}WEEEtIE}uuuuuuuuuuuE EEtDE}uuuuuuuuuuuE EEtOEEE}uuuuuuuuu uEuu EEtDE}uuuuuuuuuuuE E "+=O]ym M^iSETQ6 LIST-4ARGH5 %SET-SVREFB BBH LIST-3ARGH5%SET-SYMBOL-VALUE<BB8/I CADDR-1ARGHBHB>>BO?BB ?5?  '?} {u E@7 @?5?  ?/m 5O ?3& MBE{B?> ֽB??{B? B??=B>q VB>a?B>S?vB>A?B>/?B>$?B 5' CAs  U BHOMP~J;%8v:u5UPPuEEEuu%!/>CHBBHB($5PREPEND-LAMBDA-VAR?B5LAM  B??O 3  >3??? >%>z > ?B O TB A";%8vuU}}HH$C5PAIR>>>E >L5X5Y >=  GOMP U BH5ZIP`:;%8v+u&U}uuu] }%/4BH B$>5L15EL2 #E>= &+ u"B Q2;%8v%u UuuuE%).HByBCEBS>>>E =B6H= * (GP*;%8vuUPE%#HB*BFHBCBS>>>E ?B6E? . >Z? / ,GE=;%8vu U%HBYBCBS>>>E =B6= 4 2G ;%8vyutUPPPP}}wuEEhh}WPEuuuuuuuuuuuuu$,1M?H}HHBHBJH5 %CLOSURE-REFB?BCHBCTBS>>>E ?SB65?S I9  >Q-D*m?>L-SnҶ?R>CUio?>(DIZ? U: H7G OMPoB;%8v4u/UPhEuuuuuuu8=HHBHBBnalC-BS>>>E ?-B6ER ? B l>a-f*m~{?S NC @Gnnal`Z;%8G>UPPPPPPPPPPPPPPPPsjjjhhjhht$uM܋uNuE+uePWENjEWEu$.}WEEWEEPEEPEEWEE+ueEsjuuhhjhht$uMuN}W3E؉+uePWEPEu$.P}GEԵEEEE̿WEPEEȋu~WEEu̵EEhuĵEPhEu$.`fy~#)n=!/5BTHHMVECTORB5 %MAKE-CLOSUREBB=H?BBBB|5u ENUMERATE5GET-UNIQUE-VARQ5SELFBCAR HSYMBOL-FUNCTION$SYMBOLHE-CDR REMOVE-IFBBBBBHBuC5 ANNOTATE-PROP5READS$BS?BB R@??s S @ g>@ T H?Fmo;%z uuU@P5VARS-1 @EB @PB  @B, @EB  @5SL-A u @%5SELF-VAR A5 CLOS-VECT @5RDS-SUBS @~5RDS @PPE?? f 2d b D` B^ \ O[ Z DY HW?AKn۶Bk?3m~{B?m~{B? Ҷm=B?YҶB?O J۶B?mB??ҶB?ҶB?>CJ~{B?7BB?r'B?- ~{B? oB? B? %ڷB? UB? B??Pv{B??=B?u?B??B>j?B UH Q-w j;%8v]uXUPPPEEEEEuuuuu uuEuu uu"0OafBHUH3CADDDRHJHBCBU>>>E ?B4E?} v  >4*m?>&n?>J? w tG5Q2;%8v%u UuuuE%).HByBCBU>>>E =B4ST= ~ |G@P*;%8vuUPE%#HB*BFHB%C4BU>>>E ?B4?  u>Z=?  G=;%8vu U%HBYBCBU>>>E =B4=  G ;%8vyutUPPPP}}wuEEhh}WPEuuuuuuuuuuuuu$,1M?H}HHBHBJHB1?BCHBCBU>>>E ?B4E?   >Q*m?>LnҶm?>CueUi߶?>(Zm{?  Gu EoB;%8v4u/UPhEuuuuuuu8=HHBHBBCHARLEQUIN-COMMON-LISP SUBFUNCTION>BU>>>ET?BHB?  V>j[m?H  QGB ;%8UPPPPPP}}wu}wu}wuEEh}WEPEPWEPEPEuuuuuuuuuuu uuEuu uuFNpZbgx~HHBBHBESBfBBHB(BHhGH$CBU>>>E ?uB4? E '?u*m߶?u?Vi=??J??Uڶm??Vi=?B?ֶJ?r?Z*m߶?>|ML-*m߶?>tOTj{m?>k[m?>f*m߶? >^Z{m?H>J=no?O X' G>-';%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-LETuFHBbHu?B  LIST-1ARGHB5CVBBB;HHBHBHuREVERSEMBB1BBBH{BHBrJH5 LABELS-BODYOB5 UN-ANNOTATE$BU?BB ??  @ @ @  {?n=ETQ5LET-BODY H@S FB A Bq T@H5CV-VAR -BB BB8B  @-1AB @5FN-VARS @5FN-LIS @5FN-DEFS @5E-BODY @B @B 5@ ?? /  3 {   {   =?v?m߶B?$u mB?dsmB?\Um߶B?WڶmB?RMPֶmB?%;j۶m{B?3V۶oB?!mB?%Ҷm{B?oB?BB?ҶmB?t(J=B?hBB?P8-MBB?m{B? =B?߶B?߶3?5CC @B >z? ~B?vmB?x"=B?gUoB?Y m{B?MڷB?@ =B?4HB?' vB? RmB? LҶB? ҶB? B? B? B??=B??B>?B>l?B { y I' U BHLOAD-XREF-INFOL&;%8vuU%BHC^ XREF-INFOACALLSKEQ;%LISTPTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEDSPECNNDEFHuISBHLISTCONSB]B B*BhBBkLBBBsIU6B BP%<BB8CADRCADDRLBBB<IBKHJBBBBBSI AMFBRB6ATOMLBBBoIM}KSQBRCDDRBBBB6IKJBBBBBSI}BBBBBBKBBBBBBBBB K CHARACTERP CONSTANTSWyWSYS-NUM } RAW-LOAD-HALF RAW-LOGAND SYS-=I ARRAY-TESTuARRAYPuSTRINGPFUNCALLBB$SYMBOLPNULLWITHOUT-INLININGLBBB}IOSB]RLBBBBmIM}KQBBBBIBI LBBB&IDHLIB BBBB{RIBBBB~B}LBBBI0I+HIBKOMASSOCLBBBhIBuQLBBBuyI}BfSBBHBkMQB8B<NBBsnSBSYMBOL-FUNCTIONRB LBBBakfIAMFP<R6TBBBB%IAMFBRBP<PTBBBBsmake-safe-for-tail-call-397B HFuIKJBBBBBweIBBeBBjPBHBkdKu<NBB%OLBB??/EPTUJQUUUJQUUUJQU)EUURTUUURTUUUUUUUURTRTU)EU)E)EUJQUUJQJQUUJQUUUUUUUUUJQUUUUUJQJQU)EUUUUU $CB>>>E%= hf