From 337209512cff9bc8f88e0dc5966340f62639cc72 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Thu, 18 Feb 2010 09:22:52 +0100
Subject: [PATCH] COMPILE-FILE-PATHNAME must also accept :EXTERNAL-FORMAT in
 src/new-cmp

---
 src/new-cmp/cmpmain.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/new-cmp/cmpmain.lsp b/src/new-cmp/cmpmain.lsp
index 331afc05a..f9deb9aac 100644
--- a/src/new-cmp/cmpmain.lsp
+++ b/src/new-cmp/cmpmain.lsp
@@ -30,7 +30,7 @@
 
 (defun compile-file-pathname (name &key (output-file T) (type nil type-supplied-p)
                               verbose print c-file h-file data-file shared-data-file
-                              system-p load)
+                              system-p load external-format)
   (let* ((format '())
          (extension '()))
     (unless type-supplied-p