MAINGET-COMMAND-STRING	PARSE-COMMAND-STRINGLISPSCANTABLE*FASTBIND*REDEFMSG*USERMODECURRENTSCANTABLE*CURRENTREADMACROINDICATOR*COMPILE-FILESCOPYDFASTUNBINDORIGINAL-MAINLISPREADMACROPRINTFATTEMPT-TO-COMPILE-FILEQUITLIST2*BREAKERRORSET*WRITINGFASLFILEFASLENDCOMPILE-FILEPATHNAME-SET-DEFAULT-TYPENAMESTRINGPATHNAME-SET-TYPE*QUIET_FASLOUTFILEP
PATHNAME-WITHOUT-TYPEFASLOUTDSKINPATHNAMEXCOMPILEREVLOADFLUID1FUNBOUNDPPUTENTRYEXPRi,, 
    -4*"
 ,  ,-4,,~<<<Usage: 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>,~<+<%nDone compiling %w%n%n
%n----- Compiling %w%nUnable to open source file: %w%nBSL> Bx d,, B d x,, *   B D~-4
,
2B+Y  c+` ~  c, ~,,, ,,
  b,-4>~,~ADGKL<f<g<h<<@ , , , , , , ~, ~,3B+s } ~,Z& } },Z& } |,Z&1 } |,Z&N } {+<<<<<<<
<
<<<<eU(UD?(@"`(EU
DpTE "**zUU*T*EE"Q+`