COMPILE-FILE-PATHNAME accepts the same keyword arguments as COMPILE-FILE.

This commit is contained in:
jgarcia 2007-12-01 09:07:42 +00:00
parent a25fd87c76
commit 6129fbc4af

View file

@ -25,7 +25,9 @@
string result))
result))
(defun compile-file-pathname (name &key (output-file name) (type :fasl))
(defun compile-file-pathname (name &key (output-file name) (type :fasl)
verbose print c-file h-file data-file shared-data-file
system-p load)
(let ((format '())
(extension '()))
(case type