;0QU*] 0REMPROPQUOTEREAD-EMACS-TAGSAUTOLOADxLSUBR-0,8 1.+1n+ , ,81n+ # 7UToo few arguments supplied ",8 gLISTIFY $-,0*U%,8TAGS-FILE-NAMELTAGS-FILE-NAME&OPTIONALONLY-THESE-FILESzl 5,-, ,X-,,8,8U",ERROR<*EVAL@ ` +T1n+ Z(+ ",8 Z(,8Z(,8-,Q(@aINPUT-FILEOUTPUT-FILE-.+% FILEPJFQ5B SFAP4B CLOSE I"Q+7D+ARGUMENT-NOT-A-FILE-OBJECT $ *ONLY-FILES-IN-LET-FILES  *BREAK DF 5B! 4B"  +%PF7D+% $   ,x ,(,8,8gy(d,8V",OPEN< B ,,,8,8gx,8VH",< B7@gx+?,8 "`,8 gw-,,87@`+=[`,8 "Q@j CRUNIT Z[-,DSK $ -,5) `*> z A$f-, $,XMERGEF`` $  z]aR0 -,XCgZ` BgA@ D`+0/ g/+? " bQ,8END-OF-FILE " $R-. TYIPEEK-EOFQ,8,8 g1N+P READ-TAGS-FILE-NAME(b gx B`MEMBER5BI6@gx+K READ-LANGUAGE-NAME%#LISP1B+L SKIP-REST-OF-FILE+N `QJF#AUTOLOAD-NAME READ-DEFUN-LINES  Bg+C   "/+ /-.@`R,//,xToo many arguments supplied R)KPWRNG-NO-ARGSINOUTSUBR,8T0 ,],8-, EXPLODEN,8,8^Zg~@05[,8",APPEND</MAKNAM`b"xg$fW-, ,b,8(`S,8",READLINE< $  z]aR0 +XBp_-, ,h,8,8",READ@A#< ,j,8,8",TYI< ,m,8 01,8",<+d-, ,8,< ,r,8,85,8",< Np *p,8 (0N+" ,x,8,8i0 ",<AUTOLOAD-PROPERTY $GET,85B{ QDT1READ-TO-CR+ FLUSH-SPACES ,,8,86(`,8",TYIPEEK<0N+ ,,8,86 !,8",< ,,8,8,87",<`,8,<(B{ anc+ ` "9N  "+ ,,8,87,8",R< Np "p,8 9N $T "+ 1N+0N+ gFIX-FUNCTION-NAMEF Bg+  ,,8 g~-,0@R g}-, g-,DEFPROP $A#-,,8,8",PRINT</D//  g+40N@$+* ,&,8,88,8",< ,),8 b,88,8",<+40N+-  g@$+40N+0  g+4 "(Qi jASCII first letter is not rightz )!"|-,*PRINTBAD-TAGS-FILE?"  $ " //+"DX m,8 NREVERSE,86@`+= g-,+E[`,8 1n+A1.+C g 0IMPLODE /+E/Z`A@k B`+;/+@9-,)05 $ " READ-ENDING-WITH!+FJ-, $ "!THROW-AWAY-UNTIL" ,Nb,8,8",< ,Q,8,8",<, +I-,,8 ,V,8`,8`,8",<,< p3O`+^9NZ"B $ "+ ,],8,8`,8",`0< Np+V "//+2`b Q-,,8 ,<,8 ,f,8,8n,8",< Np2O`+j g `-,+l g@0-, -, Bg+c//0+a-, ,r@,8,8},8",<,< p0N+{@1 ,w,8,8},8",< ,z,8,8~ @0,8",< Np+s "/+2 n-,,<0@  ,,8,8 ,8",< Np *p,8 (5. $ "+ "(-,0 %//+h~x;