[Ecls-list] compile-file :external-format

[Andy Hefner]

Presently external-format gets passed through to compile-file-pathname
by APPLY of the &rest args, causing an error. This appears to work:

--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -600,6 +600,7 @@ compiled successfully, returns the pathname of the
compiled file"
 ~%;;; Therefore, COMPILE-FILE without :SYSTEM-P T is unsupported.~
 ~%;;;"))

+  (remf args :external-format)
   (setq *compile-file-pathname* (pathname (merge-pathnames input-pathname)))
   (unless (probe-file *compile-file-pathname*)
     (if (pathname-type input-pathname)