external-format in compile-file1 - gcl.git - GNU Common Lisp

diff --git a/gcl/cmpnew/gcl_cmpmain.lsp b/gcl/cmpnew/gcl_cmpmain.lsp
index bfc9d3941..78635bbab 100755
--- a/gcl/cmpnew/gcl_cmpmain.lsp
+++ b/gcl/cmpnew/gcl_cmpmain.lsp

@@ -184,6 +184,7 @@

#+aosvs (ob-file nil)

(system-p *default-system-p*)

(print *compile-print*)

+ (external-format :default)

(verbose *compile-verbose*)

(load nil)

&aux (*standard-output* *standard-output*)

@@ -197,6 +198,7 @@

(*data* (list (make-array 50 :fill-pointer 0 :adjustable t) nil nil nil))

(*fasd-data* *fasd-data*)

(*error-count* 0))

+ (declare (ignore external-format))

; (declare (special *c-debug* system-p))

(when input-pathname