;;; Compilation of /home/juergen/lisp/mevalxp/comp-all.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/05/10 19:14:56. ;;; 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-alllispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWCL-USERBCB>>>E%= /I*;%8vuU#BHCOMMON-LISP-USER33*GLOBAL-CONST-LIST*BCB>>>E%= 5~;%8veu`UPP}tZ}tTu uEPE}Eu EPEuu ɏ$1(;RIZinBH CONS-2ARGH3ZIPSEQ;;CDR-1ARGHFCDISPH;CAR-1ARGHBB?3FN3L13L2 @??? D >^???? F>V nB >M B>??jB>5 B>,?V{B E ?B b;%8vLuGUPPP}t@u uEEu uEuu }ɏ$E#4<PUBHB+H3FOLDBHBHBB$?B3START3LIS J??? M  >@?=??? O>8 B>'?B N IB ^;%8v-u(UPP}t"uEtEuuEuuE뷐$6LBHBH EQL-2ARGHB,HB3FINDL?3ELMB( T?? V  >P?=?? X>(?B >#?fB W RB z;%8vQuLUPP}tFEPEEEP}u-Ep#uuhEΐU%0IZq +2ARGSHBH3 ENUMERATEB*HBHBHBB7?B3STRT ]?? _ >u ?? a>M?B>4?Z{B>)?jB> ?=B ` \B vV;%8v/u*UPEt%u~t"EtᐐM&8BH; CDDR-1ARGHB3LENGTH=2?B(? f >*?? g dB S:;%8vuUt@t2%BHB3LENGTH=1=B(= k iB ]6;%8v(u#UuuE E%#,1BHFORMAT~SBC3 SHOW-ERROR>>>E =3Z= s oGn:3UPhWE^[搐 *MAPCARBHBerror: BFIX-REST-ON-STACKHBM?&RESTB y? { >.??>?? | xB%  U BHDSPEC~~INSTALL-DEFPARAMETERn:;%8v-u(UuuE E%#*16BHBmC3 %MAKE-CLOSURE>3GET-WORD?=3 %MAKE-VECTOR>B?>3%RESERVE-SPACE>B?>3%CONS>B?> >%>ERTJQ)E3 *SYSTEM-LIST*BC DEFPARAMETERB~>>E%=  U  HBrn:;%8v-u(UuuE E%#*16BHBmC3CARCDR3%SVREF3 %SET-SVREF3%SET-SYMBOL-FUNCTION3%SYMBOL-FUNCTION3%SET-SYMBOL-VALUE3 %SYMBOL-VALUE3 %CLOSURE-REF3%PRINT3%READ3DO-UNTILAPPLYFUNCALLVECTOR3GET-BYTE3SET-BYTEB3SET-WORD3GET-DSP3GET-CSP3GET-A-INDEX-PP3SET-B-INDEX-PP3SET-A3SET-B3 GET-STATUS3 SET-STATUS3P-ALIGN33P-CONSTR3P-ADD3P-SHIFTL3P-SHIFTR3TAG-AND3TAG-IOR3TAG-XOR3TAG-EQ3GET-TAG3TAG-SET3ADDR-EQ3ADDR-EQI3ADDR-AND3ADDR-IOR3GET-ADDR3DEC-SP3%+3%-3%<=3%>=3%<3%>3%=>4>3EUUUUUUUUUUUU3*PRIMITIVE-LIST*BCBh>>E%= |V;%8vIuDUPPP}EEE@uuuuuuuuuuuMRH;MEMBER-EQL-2ARGHB,HB3 IS-SYSTEM?3FORM?  >??  Gj ;%8vTuOUPPu u PhE}tEt@Ð!&,16>X]BH; CADR-1ARGHMEMBER SYMBOL-FUNCTION$SYMBOLHKEY SYMBOL-VALUE-1ARGHBB3 SYSFUN-ARITY?3HEAD?% "  >B?=?%>: ^?%>* ?% # G j ;%8vTuOUPPu u PhE}tEt@Ð!&,16>X]BH; CADDR-1ARGHBHBBABHBB3 SYSFUN-HEAD?!?% (  >B?}?%>: ^?%>* ?% ) &G  U  H~ INSTALL-DEFUNo;%8U3VVP u EhEMuNEt uEhhWEhhuuuuu uE E%"3)8@RotΙy~צBH'BBBB  %NEW-CLOSURIZEHB CHECK-GENERATIONH MAKE-RECORD$FIXNUMHuHBBzHB$CB>>>E%? @ ?>3SYSTEM-LIST-HEADS @ 4?>4?>B>D>2 ><  >&? 3 0^;%8vNuIUPPEE u uuuuuuuuu).RWHHB HB>HB3 IS-PRIMITIVE??% 9 >2?DBG<< transform @?% ;>>z?% : 7B" A";%8vuU}}H LIST-2ARGHBC3MAKE-LET>>>E >3X3Y C>= F @G{F;%8v6u1UPWu EPEE ɏ$!:*1?BHLETB'HB>$B?3VARS3VALS3BODY J??? N >.???? P>%?B O IB A";%8vuU}}H?H$C3 MAKE-LET*>>>E >DB U>= V RG{F;%8v6u1UPWu EPEE ɏ$!:*1?HLET*B'HBQP$onatT? .6 BBB 1Z196. ?a?y?3 p[ S>.?1l? ?I?r t]>%?;B m\ nYB 1e=;%8vu UHH$cg3LET-VARS=3Een= b _` =;%8vu UHBQHB-TAL3LET-BODY=a= f SdB I{N;%8vuUPEt EuuuuuEE(AJ9HPROGNBHO3IS-PROGNBA3 PROGN-IFY?Ra? Nl >>z? Bm jB eZ:;%8vuUt@=u'HLAMBDAB(3 IS-LAMBDA== r pB[ U.;%8v!uUPuEE%*HoE9HB3 MAKE-LAMBDA?KB v#1?6?B w >?UB?? y %x tB( P*;%8vuUPE#MHH3ER UN-ANNOTATE$--3 LAMBDA-VARS?? ~ >>z?  u|Bg }P*;%8vuUPE#HBQH{$3 LAMBDA-BODY?I?  >>z? O HBl =;%8vu UHH$3 IF-EXPR-TST=a=  B& =;%8vu UH%H$3IF-EXPR-BRANCH-T=a?=  B* %=;%8vu U%HCADDDRB3IF-EXPR-BRANCH-F=a<=  ؏B/ V6;%8vuUPEt 񐐐'H; CDDDR-1ARGHB3 IF-EXPR-HAS-3?a ?  >?? % uB4 u]6;%8v uUPE=u !)HLABELSB,HBA3 IS-LABELS?IND?  >>z?     U  H3BANNOTATE Z ;%8vKuFUPPuEPEEEuu%(-2@OTBH3 GET-ANNOTATE LIST-3ARGHB>HB$NUMCB3MAKE-LABELS-LAMBDA>>>E ?DB ??  >D j?? M>6 ZBd>1 BU{B>,VB> ֪=B  G/ u*U{F;%8v6u1UPWu EPEE ɏ$!:*1?H9HB2$?f 3FUNS3 FUN-LAMBDASB ???  >.???? >%?Be  B H=;%8vu UHBQHBu3 LABELS-BODY=%=   , U  HBr3n:;%8v-u(UuuE E%#*16BHBmChIFCONDQUOTEFUNCTIONVALUESHMULTIPLE-VALUE-BIND>>EU-C3*SPECIAL-FORM-LIST*BESC>>E%=  ^>;%8v'u"UPEt t8u 񐐐(0HB,HBTE3IS-FORM??  U>>z?   ^;%8vNuIUPPEE u uuuuuuuuu).RWHHB H>HB>3IS-SPECIAL-FORM??S% E >2?B' P@?T% ~>>z?%   fF;%8v(u#Uuut@=u鐐)"1H$3IS-IF==  A fF;%8v(u#Uuut@=u鐐)"1OHh$Oi=B=  UBS fF;%8v(u#Uuut@=u鐐)"1YHSETQB-3IS-SETQ==  - EPfF;%8v(u#Uuut@=u鐐)"1HS$3-3IS-QUOTE=3=  A NfF;%8v(u#Uuut@=u鐐)"1HD$AND3 IS-FUNCTION=EDDR=  P +fF;%8v(u#Uuut@=u鐐)"1SHDEFUNB3IS-DEFUN==  u }fF;%8v(u#Uuut@=u鐐)"1HR$L-2,3 IS-DO-UNTIL=SSTE=  O cJ;%8v+u&U]uut[;u琐*4HB3IS-FORM-WITH-HEAD>B >=   ~;%8vkufUPPEu}uZE=uFuu}t uvuEuuuuuuuuuE"',KotHB'HB*H3 &&ANNOTATEBHH${?*B?   >O??>+?Z?>&?j=?U P Be }N;%8v7u2UPEu}u'E=uEÐ;5!&+@H>HH$A?BBB?  F >9???>*?Z?>%?j=?  } %f ;%8vQuLUPPP}tEEEEEhEPEuuE +3;DUIZHB'HBH?H>H{$E?E uh3VAL ??h  >M?{u3FORM-1 @??  >H >? B>/?=B>$?=B  B  b;%8vAu3PROP ?%? Y ->4 43ANN @>D? %? > >?  B =;%8vu UHB,HB3GET-FORM=a=   =;%8vu UHH$3GET-AUX=a=   r;%8v?u:UPEt+}u-}|6E=u,u3uʸڸ@4HZ >=2ARGSHHLOGCOUNTNUMBERPB3IS-POWER-OF-TWO?U3PNu ? "  >^??>8??>>z? #   :* U  HLOAD-XREF-INFOL&;%8vuU%BH%CI XREF-INFOBOCALLSEQ"LISTPTLF-NAME-BINDINGTOP-LEVEL-FORM-NAME~DEFpq3CDDDRNULL>NOTBBBB0q+p qrBBBBBHARLEQUIN-COMMON-LISPzz SUBFUNCTION'B q~LOCATION+pqB pqtBBBqquB*tBBBPoqtrBBBBBjq19x. CONSPBBBBB  BqB 1+lpqCADDRBBBBqnrBBBBBq%CADRBBBBeqCDDRxBBBBBBqgrBBBBBSBqenLIST:CONStBBBq%{BBBB6SETSBp q=>=BLtBBB-Ya REFERENCESBSqBB?tBBB8%qUBB?tBBBt[q+u[BBBBB{qBBBrBBBBBqBBBBBqRBSYMBOLPtBBB'ARq-?~RSYMBOL-FUNCTIONp}zq{BBBBeqtBBB1uqBBBBupSqSEQLxBBBBB BqB +ApAuqBBBBBLqBBBBBq qrB BBBB %qB piqrBBBBBqBrBBBBB qBStBBBHqEMH?B xBBBBkqBitBBBq {xBBBB%qB pqBB?p%eqBBBBBqB pmake-safe-for-tail-call-397B p`qBBBBBT:q-:B ABBBBB&qpqB}u:BBBBqrBBBBBTqB:BBBBqrBBBBq#rBBBB??EPTUJQU)E)EUDIRTUURTUJDTJQRTUJQRTUURTUJQUJQJQU%URTUJQUUJQUUJQRTRTUU)EIU)EUUJDTJQRTURTURTU)EUUU)EU)EUU)EUJQRTJQJQRTURRTUU)EUURTRTUE$-CB>>>E%=