; RHQU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*UjuQUOTE;Loading EXTBAS 38   pSETQxDEFPROPU:U*UT+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071PUTPROPEXTBAS38U*U.UVERSIONPUSHLAMBDAXORFILE-EXIT-FUNCTIONS     xSI:NON-NEG-FIXNUMPSUBR@ an+ `5. P P " ` ",x!SI:MAX-EXTEND-SIZEP an+ `4. 0. P U " ` ",x! ANDFEATUREU*U.UCOMPLRGETEXTHUKLOADLISPFASL#%')'xSQUIDCXRPSI:XREF ..A "p@#nT,x!0x! RPLACXSI:XSET ..AA@[U "p,,x!0x! CLASSPSI:CHECK-TYPERU*U FBOUNDPSI:MAKE-EXTENDBad args to SI:MAKE-EXTENDERRORMAKHUNK**SELF-EVAL**,8  an+4.0n "1D5B)14B$ 3 $a1" 3 $ `a1 B`+) ,),8@a g-,3-,7",0o5.. "p-,0XC`7QC`/.T,x! -SI:MAKE-RANDOM-EXTENDLSUBR-0 0 @;+6Z(`m "0.. "p-,0XC`7QC`jUjU,x91ARGS;x*RSETEXTENDPSI:EXTEND-LENGTH!1CNot an EXTENDHUNKSIZE=`1  ? $ `a1 B`` ,8`0,8K,8g",o5A/.-,.U*W,x !}EXTEND-LENGTHCADRCARGETLEXPR!C"E?#!xPSI:EXTEND-0  +@+Q @` " p..  "p-,XC`7@`QC`,< pk0+\ `+b.. p.0.Z@ "-,A `-,/:p`A?/,x9;