From c44265c163c9bd9107c6ff8ce036dfa5745f1bd2 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 14 Oct 2012 11:09:14 +0200 Subject: [PATCH] The version of COMPILE-FILE in the bytecodes compiler did not support :EXTERNAL-FORMAT keyword --- contrib/bytecmp/bytecmp.lsp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/contrib/bytecmp/bytecmp.lsp b/contrib/bytecmp/bytecmp.lsp index 48febb41e..e4299ec1f 100755 --- a/contrib/bytecmp/bytecmp.lsp +++ b/contrib/bytecmp/bytecmp.lsp @@ -63,7 +63,7 @@ (defun bc-compile-file-pathname (name &key (output-file name) (type :fasl) verbose print c-file h-file data-file - shared-data-file system-p load) + shared-data-file system-p load external-format) (declare (ignore load c-file h-file data-file shared-data-file system-p verbose print)) (let ((extension "fasc")) (case type @@ -76,6 +76,7 @@ ((:verbose *compile-verbose*) *compile-verbose*) ((:print *compile-print*) *compile-print*) (load nil) + (external-format :default) (output-file nil output-file-p) &allow-other-keys &aux foo) (setf output-file (if output-file-p @@ -93,7 +94,8 @@ (error "COMPILE-FILE invoked with a stream input and no :OUTPUT-FILE")) (t (with-open-file (sout output-file :direction :output :if-exists :supersede - :if-does-not-exist :create) + :if-does-not-exist :create + :external-format external-format) (let ((binary (loop with *package* = *package* with ext:*bytecodes-compiler* = t for position = (file-position input)