MAINGET-COMMAND-STRINGG	PARSE-COMMAND-STRINGCTIOLISPSCANTABLE*FASTBIND*REDEFMSG*USERMODECURRENTSCANTABLE*CURRENTREADMACROINDICATOR*PERFORM-PROGRAM-COMMANDRCOPYDFASTUNBINDORIGINAL-MAINLLISPREADMACROSTRING-UPCASEMINTERNGETFASTAPPLYPROGRAM-COMMANDCOMMCOMPILE-PROGRAM-COMMANDRLIST2*BREAKERRORSET*WRITINGFASLFILEFASLENDPRINTFQUITCOMPILE-FILETSTRING-CONCAT*QUIET_FASLOUTFILEPFASLOUTDSKINCOMMONESCOMPILEREVLOADFLUID1FUNBOUNDPPUTENTRYPUTCOMPILEEXPRd,, 
    -4*"
 ,  ,-4,,~<<<,>3B+ 60V+,, ,3B+  x ,+ + + >,~<<	%n ***** Error during compilation of %w.%n o>  Bx  x L6<0V+&  +&  B6<1V+) +;  >,
 B~ -4

  * ~,6=1V+10v+43@+3,  =,-4   B6=0V+9 +:  B+',
>~,~<<<
%nDone compiling %w%n%nl
%n----- Compiling %w%nilUnable to open source file: %w%n o.BE-.SL-> Bx _, B _ x, *   B D~-4,2B+U  ^+[ ~  ^, x, ,,  ],-4>~,~>ADHI<b<<@<c<<@ , , , , , ~, ~,3B+m } ~,Z& } },Z&
 } |, | { {, z, z,Z&  } |,Z&K } y+<
<<<<	<	<<<<<<<<`aU(UD?UDD A
""P""@P(E}*U*QT**UE"W