;"A(U*U*UPROG2CONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading UMLMAC 24pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPUMLMAC24U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS          xANDFEATUREU*U*UCOMPLREVALDEFMACROBIT-TESTYLISTNOTLIST*=U+TBOOLExSUBR,8,8 A U1Ng " /,x(BIT-SETp Ux G-, ,xxBIT-CLEARp Ux B-, ,xFLUSH-MACROMEMOSWHENW*]*UMACROEXPANDEDxWHEN MACROMACROxMACROFETCHLENGTHWrong number args for macroERRORP 0MACROMEMO,85B `0.+ ,@,8,8,8g",<Z`[Z* @2*-,-, $-, & ] $ `/,x0UNLESSu8xUNLESS MACROx,85B% `0.@ + ,,8,8&,8g",<Z`[HZ*-, $-, $-,0d-, $-, & $ ` :u/,xpMSETQ-CALLxMSETQ-CALL MACROub xMULTIPLE-VALUE,85B-Z`,8` Dg " 00-, & $,X/,x]:] 'MSETQ-RETURN!xMSETQ-RETURN MACRO!!xVALUES,85B4dZ`,8` Dg ""-, &! $,X.W/,x.DOLIST"xDOLIST MACRO"#xU*U*UDECLAREFIXNUM1+GENTEMP:LOCAL-VARCDRNULLCAR*APPENDP 0DO,85Bq `0.+; ,;@,8,8r,8g",<Z`Z[[Z [(Z([,8,8,8,84DHB [(B{6 +H[[0B#+H@Z Bg[Z+I ",84FS* 0-, $$-, $-, B``2 g-, $$-,-, $ -, g-,-, Bg7@` +V ` "#-,-, B` ,2% &% $ ,8 `-, $&@-,-, g}-, `-,0 0,8 g~-, g~-,,Xd-,,8 g-, $&-, @0-,*g-, $'-,-,0H g~-, $-, g}-,0` $*g' g-,,X-,2@d $(-,/ &" $ ` :u/,x05DOTIMES(xDOTIMES MACROu*U*P()x*RSETMust be a variable -- DOTIMESWRNG-TYPE-ARGMACROEXPANDconstant-p|Must be FIXNUM -- DOTIMES<,8@`5B> `0.+y ,y,8,8? ,8g",<Z`Z[[Z [ ( 4 ,8,8,85H ,% &% $ Bg0 7B)+ g4N (N{ 8`n@ + ,,8,8?,8g~,8@",< Bg + `+,8 Bg+4B7Bg H " (B{Z1B$+ ,,8,8@@`,8g~,8A",< Bg+ + ,%"` &% $ B` g-, `-,0-, ` B` Jg7@`+ g -,+ " g-, $$-,0 0,87@g~+)[g~(B{6 +) [g~[0B#+)Zg~,8g~[`Z Dg} /+* ",X-, $#-,0 @0,8 g~-, $$-,-,2@ $-, g~-, g-,0@ *g-, g~-, $,-,0`0-, $-,-, g~`*`-,,X-, g-,  @ $(-,/ &( $ `D%/,x**,*rU*U.xGETLLSUBRAUTOLOADLISPMACAIDFASL-%-.%.//.x;