mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-11 15:30:36 -07:00
Code Issues Projects Releases Packages Wiki Activity

When system-p is T, the default is :object, not :fasl.

Browse source
This commit is contained in:
jgarcia 2008-05-19 09:25:49 +00:00
parent 2630eed983
commit b213c88975
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpmain.lsp
View file

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