From 6129fbc4af3d8ba75e57e746fda79d8b8dc9eef3 Mon Sep 17 00:00:00 2001 From: jgarcia Date: Sat, 1 Dec 2007 09:07:42 +0000 Subject: [PATCH] COMPILE-FILE-PATHNAME accepts the same keyword arguments as COMPILE-FILE. --- src/cmp/cmpmain.lsp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index 7dd060c28..4cbcecf61 100644 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -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