; P@QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading UMLMAC 35   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPUMLMAC35U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xFLUSH-MACROMEMOSMSETQ-CALLW*]*UMACROEXPANDED!xMSETQ-CALL MACROMACRO!#xMACROFETCHMULTIPLE-VALUEMACROMEMOSUBRD`%5BZ`,8`3 "-,3 ``] ! $a',xMSETQ-RETURNu:@1)xMSETQ-RETURN MACRO)xVALUES`%5BZ`,8`H3+-,3 ) $a'0.U*U,xPANDFEATURECOMPLREVALDEFMACROBIT-TESTU*U*WYLISTNOTLIST*=BOOLE-/135379x,8 A1N " /j\,xBIT-SET-/37;x G-,j\,xP %BIT-CLEAR-/37=x B-,kUjU,x` )WHENxWHEN MACRO?xLENGTHWrong number args for macroERRORD`%G ` 0.+ ,,8`I,8g",<!Z`[ZA@H -,-,1 $-, & $A@KW `a',xAx-UNLESSCx1UNLESS MACROC"x`%g ` 0.`W0 W,8i,8g",<!Z`[Z`*-,1 $-, $-,d@-,1 $-, C $ `a'*U,xA %FBOUNDPGENTEMPGETAUTOLOADU+UjWLISPMACAIDFASLE#G#$#I%K$xSYMBOLCONCE&G&$&I%K$xSPECIALSI:SELECTQ-TYPE-TESTERS-M'xU*].UBOUNDPFIXNUMBIGNUMEQUALO''(Q)xSI:SELECTQ-PREDICATES-MSxFIXNUMPBIGPu:UjuOSS(*QUxSI:SELECTQ-OTHERWISE-KEYWORDS-M+xOTHERWISE:OTHERWISEO++ W,xSI:SELECTQ-TYPEP-ALIST-MYxSI:SELECTQ-VARu:]*U-M-xSELECTQ[xSELECTQ MACRO[.xMEMQASSQ*NCONCSelecW;Ttor 0ap11x1 xSELECTQ-COMPILE-1`% ` 0.`w w,8,8g",<! Z`[Z,84FC[[ +[(Z (0F `[`Z d "-,3-, -, +,8,8,8`[ Bg3 +a]@@`a7 8+Q-,1`,80@,83``As Bg  " Z3 '/[b D`3 `a]5B^3 `-,`3 `/ Bg| `-,1@03 Bg|-, g-,1 $D  g|a_+SZg `-,3-,@5BIB7 8+o` ,8 ,8K<#-,-[`Z3@ g~ac g2B-+x `+-`-,1-,1,X-,  $-,-,1,X-,0  , [ $A@D] `a',xA1`5:LOCAL-VARP1SELECTQ-ONE-HAIRY-PREDICATESELECTQ-HAIRY-PREDICATE,8z :w@)@`@@`-,Y-,~@'as 4D6@g~`'as4DS`/` --,1Z`-,`0`],8 g}-,,8@7@`+.[`Z` D`4B ,,8K<# &2 $ Bga g -,Y-,Y g} "-,0b3 Bg} g-,S 0/ --,1Z`-,-,0H13-, $-,3-,0B+,8 ,8 g|-,,87@`!`{[`Z` D`рY`o[[@`(`e`q[3Zguz:w,X`-, g-, Bg`c7@g|+BP`` g| zZu-,3-,1 $ ga_@` g "-,3+Id `-,13-, $-, B`Zg g "-, Bg` 0[g Dg-,13-, g 0-, $-,3-,0t0+ NREVERSE,8,80 -,,87@``[` Z` D`[Y@/Z 0@`e-,1,X-, g -, Bg``3```e-,1 g-, BgZg4Bj4 g`g $-,`[gZB[g "-,`[g[,x0EQ '[/Z5Bs 0 "4@,8,8 "`7@g`[gZg Dg-,1  0 $-,-,1 --, g~``-,-,1XC` B``@B03 "-,+`/,x]:]*U(DOLISTixDOLIST MACROi5xDECLARE1+CDRNULLU(CAR*APPENDDO`%5B@ ` 0.@ ` ,8,8A,8g",<!Z`Z[[Z [(Z([,8@a,8/[6 `/[[ @ k`/Z Bg[Z+ "H4F"@-,1 $(-, $-,0 @0 B` g-,1 $6-,-,2@1 9-, g-,-,1 Bg7@``K `k-,-,1 B` ,# &2 $ a `-,2@`1 m-,-,13-, `-,-,1 g~-,0@2,X-,-,1 $7@ -,-,1@-,1 o-,0d-,13-, $-,03-, $*g83-,`2,X-, q-,/ i ] $ `a',xAPDOTIMESu:U*U9xDOTIMES MACRO9sx*RSETMust be a variable -- DOTIMESWRNG-TYPE-ARGMACROEXPANDconstant-p|Must be FIXNUM -- DOTIMES0<`%5B ` 0.+H ,H@,8,8,8g",<!Z`Z[[Z [ (,8,85HP ,# &2 B $ a7B:` 80 `n` ,83,8K<!+Q ``w,8<d " Z1B(+c ,b0,83,8K<!``Q0 ,# &2 $ B`a-,1 `-,-,1 ` B`7@`B@+m-,1` " g-,  $(-,7@g~`[g~6 0@`[g~[k`Zg~,8g~[`B@Z3+y ",X-,  k-,-,1 $6-,0`-,1 9-,3-,`3-,*g-,13-,  @0 $=-,-,1 $-,-,0 01 g~*`-,,X-,3  -, q-,/ &9 $A@D" `a',xAu;y%j].U;STRUCT-LETdefvst-construction|{>xSTRUCT-LET MACRO{}x-LETD`%5B: ` + ,,8`,8;,8g",<!Z`[[Z[ Z [(Z(,8,8,8 "`,8g|7@`+4[` 7 `K `-,1 `-,0 B`[`Z`[ Bg~35D)  Y,83w,8g|K<& Bg} -,1 g}-,-,1 g~-,0 -,1Z` D```?/3-,@ -, { $ `a' :u,xA?h!STRUCT-SETF@>xSTRUCT-SETF MACRO1@xSETF`%5Bd ` 0.`0 ,8,8e,8g",<!Z`Z[ [Z [ (,8,8,80 "`,87@`+_[``7 ` `-,1 `-, B`[`Z`[ Dg| ,8,8g}`0K<& g~-,13`-,-,1,X-,   $A-,-,1Z` 2 D``/ H-,/ &@ $ `a'0p,xA?<;