;"A(U*U*uORGETQUOTESHARPMVERSIONLOADLISPxPROGNU*U*UCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUT;LoadU+UjUing OPTDEF  pSETQ  xDEFPROPT+INTERNAL-STRING-MARKERu*U*U xALPHALESSPLISPV2071PUTPROPOPTDEFPUSHLAMBDAU:U*uXFILE-EXIT-FUNCTIONS     xANDFBOUNDPSPECIALOPTION-SETSxBOUNDPu*T x#-SYMBOLIC-CHARACTERS-TABLEASSQENTER-#-SYMBOLSUBR,8,8 @ ,84B g-,XC` g-, 1+ g g-, -, Bu*u/,xXopop MACROMACRO xoptioW;U.wnp x  xhas nop x  xPcERROR,8Z[-, 5B ,@,8 "-,ZgZ[-,  $-,,8Zg[,8",<u.U/,xp op GRINDMACROGRINDMACRO xL*PRINC  U`ZZ["`8+INTERNAL-DWIM-PREDICTFUNGRINDPREDICTu+T xop GRINDFLATSIZEGRINDFLATSIZE xFLATSIZE-, ..u*U-, ,xhNUMBER-OF-LEADING-ARGUMENTSNTHCDR*:AR2*:ARNU*U.whas option from outside set"##$$%p %%x % xPOPTIONS-CHECK,8[,8 $ `4B + ... g,< "p ,86@` @+'@@! *! J" g-,+5[`B,8(B{6 +2[`0B+2Z` 2[3Dg+2 ,2,8 g-, $%00-,,8,8g}",</Z` Z B`+#///.U*U+`OPTIONSis already defined as an W;U n for''(())p **x * xLENGTHENTER-OPTION-SYMBOL,8,8,8P7@`+D $&[`4BB[ Z2Jg@d+; ,B,8[g-, $*-,`,8,8g~",<Z` B`+8/ ` $& g* g,< $p `d `-, g-, $-, 0 $ ` $& g,X-, ``] && $,X/,x07MEMQU# SOURCE-TRANSSETUP-OPTIONS,8,8,8 +5BX H g-, B $, g $ "&P@2+5B` $, g $&-, &,  $ g && $ g & g@ g,X-,,8,87@`+j`[` $ g~+Z` B`+f/*U,X/,xH SP-READSTOP-CHARSNUMBER-OF-CHARSECHO-PU*U.xCOMPLETION-CHARCOMPLETION-ALISTCOMPLETION-QUERY-CHARCOMPLETION-QUERY-STREAMSTOP-FUNCTIONCHAR-TRANSLATION-FUNCTION,-!-..//0011x;