COMPILE-FILE-PATHNAME must also accept :EXTERNAL-FORMAT in src/new-cmp

This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-18 09:22:52 +01:00
parent 6a550ec8ab
commit 337209512c

View file

@ -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