1MAINGET-COMMAND-STRING	PARSE-COMMAND-STRINGLISPSCANTABLE*FASTBINDCURRENTREADMACROINDICATOR*CURRENTSCANTABLE**USERMODE*REDEFMSGCOMPILE-FILESCOPYDFASTUNBINDORIGINAL-MAINLISPREADMACROPRINTFATTEMPT-TO-COMPILE-FILEQUITLIST2*BREAKERRORSET*WRITINGFASLFILEFASLENDCOMPILE-FILEPATHNAME-SET-TYPENAMESTRINGPATHNAME-SET-DEFAULT-TYPE*QUIET_FASLOUTFILEP
PATHNAME-WITHOUT-TYPEFASLOUTDSKINPATHNAMEXCOMPILEREVLOADFLUID1FUNBOUNDPPUTENTRYEXPRi,, 
    -4*"
 ,  ,-4,,~xxxUsage: PSLCOMP source-file ...%nPortable Standard Lisp Compiler%n> Bx2B+ +, *>~+  B x L6)0V+  +  B6)1V+" +( ,   B6*0V+' +'  B+>~+>>%n ***** Error during compilation of %w.%n> Bx  A, B -4
	  * ,	6@1V+:0v+=3@
+;,
 x @,+> -4>,~>+x%nDone compiling %w%n%n
%n----- Compiling %w%nUnable to open source file: %w%nSLB> Bx e,, B d x,,   * D F~-4

 ,
2B+Z ~ d+`  ~ c, ,,, ~,,
 ~ c,-4>~,~ADGKLx$fx$gx$hxx@ , , , , , , , ~,3B+t ~ ~,Z& } ~,Z& } },Z&1 } |,Z&N } |+xxxxxxx
x
xxxx$e (UD?(@"`(EU
DpTEE
E
@~UU*U
QQ(T*x