From b213c88975b7dc56e2901d0408da55e6487fc7bc Mon Sep 17 00:00:00 2001 From: jgarcia Date: Mon, 19 May 2008 09:25:49 +0000 Subject: [PATCH] When system-p is T, the default is :object, not :fasl. --- 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 e6098b0ce..1acde5164 100644 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -28,11 +28,13 @@ string result)) result)) -(defun compile-file-pathname (name &key (output-file name) (type :fasl) +(defun compile-file-pathname (name &key (output-file name) (type nil type-supplied-p) verbose print c-file h-file data-file shared-data-file system-p load) (let ((format '()) (extension '())) + (unless type-supplied-p + (setf type (if system-p :object :fasl))) (case type ((:shared-library :dll) (setf format +shared-library-format+)) ((:static-library :library :lib) (setf format +static-library-format+))