;"I(U*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading EXTBAS 39pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071EXTBAS39VERSIONU*U.WPUSHFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS        xforget-macromemos|xU0SI:XREF SETF-X-ACCESSSUBR,8[*,8-,,X -, $-,/,x U`SI:XSETSI:XREF SETF-X-INVERT[ "-, $ -,`] $-, $-,,x (SI:XREFU:@SI:XREF SETF-XSETF-XxSETF-STRUCT,8-,[Z[Z [ (*,8-, $ -,0@1,X* & $ "/*]`0 SI:NON-NEG-FIXNUMP,8(B{ an+ `(5.g " + "/,xHP SI:MAX-EXTEND-SIZEP,8(B{ an+ `4. (0.g " + "/,xPU*U*WANDFEATURECOMPLRGETEXTHUKLOADLISPFASL xUSQUIDCXR ..*,< "p,%/0t,x0x(!RPLACX ..*,<A@[U "p,*/,x0x &CLASSPSI:CHECK-TYPERU*U FBOUNDPSI:MAKE-EXTENDBad args to SI:MAKE-EXTENDERRORMAKHUNK**SELF-EVAL**,8,8(B{  an+1 g4.10n+1 "PbD5B= "4B8 & $ g" & $ Bg ` B`+= ,=,8@,8D g-, g~-,,8",0< g..,< "p,8 g-,0XC` "QC`,X//.T,xH*SI:MAKE-RANDOM-EXTENDLSUBR-0,8 0 Z(,8 g1n+JZ(+J "0,8 g..,< "p,8 g-,0XC` "QC`,X//jUjU,xpEARGS  ! x*RSETEXTENDPSI:EXTEND-LENGTHUB1!Not an EXTENDHUNKSIZE,87D!+\"5B\ " 4BY &" $" ` B`+\ ,\,8`0,8_,8g",<,X#/.-, .U*U,x#(RPUTPROPEXTEND-LENGTHCADRCARGETLEXPRu@$$%%&"&xSI:EXTEND-0,8 /.,< A@1.+e Z(+e ",8 p`0..,< "p,8 g-,XC`  "QC`,X/,<,8 p@ 3.w+p `+v.. p.0.@0Z@ "-,* `-,:p x+m//,xp_;