;;; Compilation of /home/juergen/lisp/mevalxp/comp-macro.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/04/09 17:31:15. ;;; 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-macrolispB;TC LISPWORKS((TOP-LEVEL-FORM>>>E%= % U BH %IN-PACKAGEh:;%8v-u(UuuE E%*#16BHBNEWMEVALBCB>>>E%= /Q2;%8v%u UuuuE%).BHMEVAL33 EXPAND-MACROBCB>>>E =3Z= 8 5GQ2;%8v%u UuuuE%).BHB"BCB>>>E =B= < :GQ2;%8v%u UuuuE%).BHB"BCB>>>E =B= @ >G;%8vbu]UPPPPPPsjjjhhjhht$uMuNEt!EE}uEE}u[hEW+uePWEEEuu$.덁}u/hEPEPuFU}uPh+uePWEEEuu$.EǃtSEEEPhEPEPuF+uePWEPEu$.VnR\kx0=S+HavB3EVAL LIST-2ARGH3MACRO-TRANSFORMER3 MACRO-TAG-P CONS-2ARGHSEQGGCDR-1ARGHBIF LIST-3ARGHBG CADDR-1ARGHSETQLIST*MAPCARG CDDR-1ARGH%%CLOSE-ON-STACK ALLOCATE-CLOSURE-ON-STACKHBG CADR-1ARGHLAMBDABHQUOTEGCAR-1ARGHBB?3FORM3ENV W?? Z @ N? =DBG]]KEYFORM @?? _ \? =B(?~3MT @B a?B?B?jwB?V[{B?=B?B?JwB?z wB?r =B?e B?W wB?L {B?A wB?  zB? wB? =B? ֻB??{B? B? v=B? B? B>V?B [N VB  U BHDSPECkkINSTALL-DEFPARAMETERg:;%8v-u(UuuE E%#16BHBZB3*MACRO-TRANSFORMERS*BC DEFPARAMETERBJ>>E%= of;%8vPuKUP}tEt@u>u8 u uuuuuuuÐ1'6TYBHG ASSOC-EQ-2ARGH SYMBOL-VALUE-1ARGHB\BB!?3TAG? x >:?? y vB l>;%8v1u,UPu u t@ %*:BHGASSOC-EQL-2ARGHBcHBBB ?B3? } >.>z?>)?? ~ |B  ;%8v@u;UPPPu u E}tuuEuEP u Eu5Et hEE{e["j',DIoT CHECK-GENERATIONHBHBHG SET-CDR-2ARGHBiHBHBB3MACRO-TRANSFORMER-SETQ?BS3 TRANSFORMER ?5?  >s?v{3PAIR @?5?  >n B>X B>0?B>+ B  B  U BHLOAD-XREF-INFOL&;%8vuU%BHBzCc XREF-INFOBCALLSkLOCATIONBBSETSB REFERENCESBCONSGSET-CDRBASSOCTLF-NAME-BINDINGTOP-LEVEL-FORM-NAMEkDEFBvEnBB}SYMBOLPBBBB4EQBBBCDRCADDRLIST BQ-LISTCDDR4BCADRB BQ-LIST*EQLCARCONSPNOTBBB&0+DnBB}BBBBBmake-safe-for-tail-call-397B >y>NEPTJQRRU%URTUUUUUJQJQJQRU)EBCB>>>E%=