;;; Compilation of /home/juergen/lisp/mevalxp/meval-pack.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/05/10 19:14:54. ;;; 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  meval-packlispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWMEVALBCB>>>E%= / U BHDSPEC33INSTALL-DEFVARg:;%8v-u(UuuE E%#16BHB"BMEVAL66*RL*BCDEFVARB>>E%= 8 U BH6EVAL\6;%8v&u!UPuEEE%*/BHB+6 EXPAND-MACROB6EVAL-M?6EXPR6ENV B?? E >>z?? G F @B b;%8v/u*UPPEEtEEEEuuEuE 8L\6 EVAL-LIST6 EVAL-ATOMBHNUMBERPBB?BB M?%? N  >` 6RES @?%? R P>P B >$?=B O LB  U BH6GET-SYMBOL-VALUER;%8v9u4UPPuEEE=uEɏ$%Eɏ$',=BNSEQVVCDR-1ARGHBHBB6&EMPTYVCAR-1ARGH6 ENV-ASSOCBB&?BB \?%? ] >+?j6ERG @?%? a _> ?B ^ [B ~;%8v?u:UPPPPPuuE}t E;Eu'}tEɏ$EEEEuu}}}}말,CHRX`B H CONS-2ARGHBBHBGHV CAAR-1ARGHBB6?6ATMB f?U? h >d?6POLD @6P @?U? m j>0?=B& i eB E&;%8vuU}}% BHSETB6SET-SYMBOL-VALUE>BC6VAL r>= t pB =;%8vu UBH SYMBOL-VALUE-1ARGHBB0=B= x wB  U BHSETF-GET`:;%8v*u%U}uuu} E%%.3BHBh6&MY-SYMBOL-FUNCTIONB6SET-SYMBOL-FUNCTION>BC6FUN >=  }B X2;%8v$uUuuE E%(-BHGETBjB6GET-SYMBOL-FUNCTION=BC=  B  U BH6 EVAL-COND U BH6 MAKE-FUNARG U BH6 EVAL-LAMBDA U BH6 EVAL-LABELS U BH6EVAL-LET U BH6 EVAL-SETQ U BH6 EVAL-DEFUN U BH6 EVAL-DEFMACRO U BH6 EVAL-PROGN U BH6EVAL-DO U BH6 EVAL-DO-UNTIL U BH6 EVAL-FUNCALL U BH6EVAL-AND U BH6EVAL-OR U BH6 EVAL-EXPR-FUN U BH6 EVAL-LIST-FUN U BH6EVAL-ATOM-HEAD);%8v<u7UPPPEEEE}uuuE%}u Eɏ$}uEEE%}u E%}uuuE%}uuuE%}uuuE%}uuuE%}uuuE%}uuuE%}uuuE%}uuuE%}uuuE%}uuuE%}uuuE%Et6uuuuuuuuuuu uuE%Et6uuuuuuuuuuu uuE%Eu6uuuuuuuuuuu uuE%ɏ$%kZ",@ELaz18LSgn DERROReval-list: wrong list headerB6 IS-LIST-FUNB6 IS-EXPR-FUNBORBANDBFUNCALLB6DO-UNTILBDOBPROGNBDEFMACROBDEFUNBSETQBLETBLABELSBLAMBDABFUNCTIONQUOTEBHBvCONDBHBHBB%?BB ?%?  ? REST @6HEAD @?%?  ?B~>o B>&?B>?B  B )\6;%8v'u"U}uuuE }"+0BH LIST-3ARGH6FUNARGBBf>BB >=  BF v ;%8v^uYUPPPu EEEE=u1E E}WEE Eɏ$%EА/4APbgoBHBHB+B&HB"BBHBB?BBB ???  >s 6FN-EXPR @6FN @???  >T?>E?j{B>3 B>!?B  B r ;%8vWuRUPPPPPuuE}tN?VDBG NEW-VALUE @B- @6ARGS1 @?U  >E?Z=>@ B>0?B B T ;%8UPPPPPPPPPPPPPPPPPuuEEEEEEuxtEEEt}}uuEtEEEtE}wu؋EPPEE}wu܋}܉}E}wuhEPEPEPEE}wuԋ}ԉ}}wűEPEEE}wuȋ}ȉ}}wuuċEE}wuЋ}Љ}v4!dH|\/*N9Eu=eonRPLACDBMB>HBBHBHBEH 4.ENDP1ARGHBHB1Bj?;aB5B  1, e =?l  rB?b = 0Comi6FORM 1, @ = xdolist- @Sou e6ENV-END @ 6RESULT i@B r@i6ENV-NEW @fer g i?    ? v6DEFVAL  @M  AKE@B OTA L??O=B?Rz B?R?E{A-6DEF @&B @B U ?I B?= jB?8 {B?3B?.jB?-% SV=B?C ZmB??=MB  @B H@B  R? B?F jB??~B?U B?e?B?u?eB>h?iB>`?B>L?xjB EB eB ;%8UPPPPPPPEEEEEuuEuOth}WhEPEEE%}wuEt@86VALS @6VARS @6VAR-TERM VAL@?u?  u   ? %VB? ZB? B? ڶ{B? vB? Z=B?M OB??zB>{?L=B>v B>q zB>l v{B>V?B>z?`6PAIR @B/ @@?%?  >X?=>I? =B>>?B>2?B>'?B>?JB   Z ;%8vKuFUPPEEhEPEPEuu%&/4@OTBHBlB B>HV CADDR-1ARGHB7HBBHBR-Bp?HB/B E?A?A  ->D??? >8?>3?=B>*?B>>zB   RG U  H6^MACRO-TRANSFORMER-SETQ%V ;%8vHuCUPPEEhEPEPEuu%&/4=LQBHcHBeHBOHBHBBHBNSBr?BB-B !1AR?? 6" >A?B?? $>8?$>3? =B>*?dB>>zB # O  n;%8v3u.UPPPPPEuuEutE}wuuEE}wu}}뷐/<SBBHH$Bt?B+B L'?CU? ( >W?= @B @Q @?U? - , + *>3?+ B)-V 1& 0=Bj;%8UPPPPPPPPPPPPPEEԋEEЋEEEEEuԉuEu~tuԉuEt}WEEhEPEصEh}WEE܋}܉}E%}wuEPEPEE}wu}}<}wuhEPEPEE}wu}}7)4?nEN /@BHBBHBHB+HBB!HBBOBHV CDDR-1ARGHBHYHBBv? B)B 1 ? 2 N3?R?{ @B @6 V6UPDATE @6ASSIGN @6NEW-EXPR 6 @V6BODY  @6TST-RES  @6PRE  @6 VAL? = 6 5 4?I BG?D B?T; vB??=B @B @BI ? D>? B? ֶB? jB??{B??V=B?F RB??B??B>r?B >C?ZB>8? B>-?B L3RO3 0 z ;%8v\uWUPPPPEEEEhEEuEtuuE%uEƐ#+38s`IeHB+B&HBHB\V CADAR-1ARGHBHBBx?B'B C??  D L>w?n: @Q @6TST @VAL?-? H F>M?lF>7?zB>'?B>?VB SEFU B b;%8vSuNUPPPEPEEEPEEuEEE%W#.:H\HBQH6 LIST-EVALBHBBHBBz?B%B L%?}? M >L?u6ARGL %@6FVAL @?? R O>>?uR>2?uB>'?B>?JB N EK ur;%8vTuOUPPPP}} tDE PEE}t/}wuE E E}E!-GX]HFCDISPHBEHBBHBuCuB|B6 EVAL-AND-1>>E?uB Bu6ACC Zu ?5?E?% \  >K nz6V1 @?5?? ` ^>1 M`>% J7=B ] UG;%8UPPP+uesjjjhhjhht$uuFPWEuFu~uuu$.Z_lHTH%%CLOSE-ON-STACKo ALLOCATE-CLOSURE-ON-STACKHBS$UNBB|?EB#B eRB?%?N f UNC@ 6?O?T internal-flet-name-for-EVAL-AND- @?B%? j h g dB\ E^;%8v5u0UPP}t*EPEE}tEE}E}뵐(>NBHBHB+BHBB~?TB!B m?? n  >R _ ~>o@?? q p>,?=B> JB o6 lu u  ;%8v>u9UPPPPPPPEuuEu tɏ$%}wuEPEtCEE}t*EPEEEE}}ЋE}wu}}`18BGXdqBHBBHBHEeval-cond:run out of conditionsB;H$Bd?PB;B u?E?B "v ? m6 COND-EXPR @6 COND-LINE @ @PR Q @@?E? ~ } | Tz x? vx?  m{B>u ҶB>h B>\ ;%B>5?uB PwP t} < \6;%8v'u"U}uuuE }"+0BHHB$Bh>`BB EVE>=  BH RX2;%8v"uUuuuE &+BHVMEMBER-EQ-2ARGHCU+-*/=<=>=?<>NULLCONSCARCDR;%ATOMB9NOTPPLISTPLISTEQEQUAL>>EUUUUUBt=B=  B }G.;%8vuUuu "HB=B=  B uz;%8v9u4UPPuEE} u]ɏD$} u]ɏD$} ]ɏD$0&s`=BSIHAPPLY0-FUNCTION-REGHB$?HB BB /?%??  > ??%??   B` AM U 1 H6?;EVAL-LAMBDA-LIST  U BH6 EVAL-FUNARG z ;%8v/u*UPE =uE E E%E =uE E E%ɏD$%@O$38E^esE#eval-list-fun: case not implementedHAWHBbBHB?BBB U???   >S?j=??? >D?>(?B>?RB  =  U  H6 APPLY-LAMBDA? U BH6 APPLY-FUNARG;%8vDu?UPPPE u} u2} tuy} t} E%u EEEE=u`E EEtLɏD$%} tu;} t} E%E롋U]}U ]}u E]}E ]},HM[mrB0BHBADRapply: try to apply macro6IS-MACROBBBHBBHBB$Bl6APPLY?BD u?%?E? v ? ?R%?? ?  @6FN1 @A E? B?u jkB>q u B>_?R{B  B R;%8vCu>UPPE PuEEE E Eɏ$%5%0GLHB+BH6 ENV-BINDBHBu?EP6 LAMBDA-RESTD E???   >9?6NEW-ENV @???  >4?j>)?JB>?JB h B B^;%8vOuJUPPE PuEPEEE E Eɏ$%A%1<SXHB+BH2J'YHB>?BD Z??K?u  >E? @P???  >@?jB>5?B>)?B>?JB & B ~;%8v:u5UPPPPPEuuEutEɏ$%}wuuEPEE}wu}}말/>CZccHBBHBH$J?BD H?U?A - E >g?=% ;%@HB P@Bn @?U?    >^ >3?B  J 4 ;%8vbu]UPPPPPPPPPu uuu}tE=u;}t/EPEEu܋EEEEEPEEuEE}}EEEE}}}}\y/4D[MkWHBHBQHH&RESTYHB}?  B6/OLD-ENV BH?5?t?  ??VCUB @ W6VALS-AKT @6VARS-AKT @Q?5??   ????3 new-value- @B B??B??=B>}?UB>_?PPB  @B E>Q?Z{B>H jB>3?=B E uB  U  HE\6;%8v&u!UPuEEE%*/PHBE$w}?6 FUNARG-RESTD P???}  >????    l>;%8v0u+UPE EE uu %% 49RHWHBHB ?)BB9D >??N R  >)?>?? @>$?>>zB E B I;%8vuUPPEu Eu~u8uvuuFuuuuuuuuuuFEuFuuuuuuuuu+AescH6 FUNARG-CHOPBuHBHBpHBBV ?6E??  r ? ?=?>w??->E??  B a;%8vwurU3VVVhPjEhEEut uEEhh u hhE[:- 2AոGOWinB~%~%res = ~S~%~%MvH6*MACRO-TRANSFORMERS*>~%~%macro-transformers = ~S~%BBH b EQUAL-2ARGHCP(EQUIT>>E EREAD-FROM-STRINGE READ-LINEFORMAT>HBHB6MAIN? $?   @E6R B@6 GLOBAL-ENV @  ? B? B? mB? vB>r VALB>[ B>S JB>K?B>6?> >1? >$?J $ B  U  HOULOAD-XREF-INFOPL&;%8vuU%BH"C! XREF-INFOBCALLSBBPH=BBBBBB|TLF-NAME-BINDINGTOP-LEVEL-FORM-NAME3C DEFE qF5oGBBB FK=nBZGBBBF=ENDPGBBB0F+E=FIBKGBBB%FBBBBUGBBBeFCADDRCADRBBGBBBFGBBBFBBu~GBBB$FBAPPLYBBGBBBFqBsBL=ZGBBBSNFABB'GBBBEJOFE-C=BUJBBBBTF# SYMBOL-VALUEBBBBFU=LOBBJGBBBelFea-fMEMBER-GBBBFB=B/GBBBF=\BJ%GBBB}F*=GBBBFJB|GBBBZFBBCAARBBGBBBFGBBBBF~=!WITHOUT-INLININGGBBBF=JBZB/GBBBFGBBB REFERENCESBF ABlBBBBGBBBIFBUBBB BBBBBBBBBBBBBBBBGBBBFE=BBJBBBBJF}T*BZGBBB9FBOUNDPE3}LOCATION4E F BBBBBBGBBBFGBBBFBBBBHGBBBc:F Bf=nBnGBBBF=PPBCADARBGBBB"make-safe-for-tail-call-397B EOAEF ?BGBBB&FOLE ~FzGBBBF VALUESLBBBBGBBBF=TKBBJLCDDRBBB?ux?EPTUUURTUURTU)E)EURTURTURTUUUU)EUURTUJQUUJQRTUUUUUJQUUUU)EU)EUU)EUJQUUJQURT%UUUJQUUUUUUUURTUU)EUUU)EUU)EUUJQURRTRRTUUUJQUUU$0BCBB>>>E%= Y