mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 06:42:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

In compile-file, ensure that :output-file is appended the proper file extension

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-05-31 01:50:21 +02:00
parent 461e418543
commit 1823c67d1b
3 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/CHANGELOG
View file

@ -234,6 +234,9 @@ ECL 0.9k:
- Garbage collection statistics was broken for libraries other than the one
shipped with ECL.
- When COMPILE-FILE is provided a value of :OUTPUT-FILE, the file extension
".fas" was not automatically appended.
* Optimization and performance:
- TYPEP now can be optimized if the type argument is a constant.

3
src/cmp/cmpmain.lsp
View file

@ -500,7 +500,8 @@ static cl_object VV[VM];
(setq *compile-file-truename* (truename *compile-file-pathname*))
(when (eq output-file 'T)
(setf output-file (compile-file-pathname *compile-file-truename* :type (if system-p :object :fasl))))
(setf output-file *compile-file-truename*))
(setf output-file (compile-file-pathname output-file :type (if system-p :object :fasl)))
#+PDE (setq sys:*source-pathname* *compile-file-truename*)

10
src/lsp/config.lsp.in
View file

@ -46,15 +46,7 @@ Returns, as a string, the location of the machine on which ECL runs."
(defun lisp-implementation-version ()
"Args:()
Returns the version of your ECL as a string."
<<<<<<< HEAD:src/lsp/config.lsp.in
<<<<<<< HEAD:src/lsp/config.lsp.in
"@PACKAGE_VERSION@ (CVS 2008-05-29 20:53)")
=======
"@PACKAGE_VERSION@ (CVS 2008-05-30 15:21)")
>>>>>>> 510929fe4fe845e539f661d00860e084248060a4:src/lsp/config.lsp.in
=======
"@PACKAGE_VERSION@ (CVS 2008-05-30 19:03)")
>>>>>>> 263c837285a673bf4d38ad60aab4a8d59443a475:src/lsp/config.lsp.in
"@PACKAGE_VERSION@ (CVS 2008-05-31 01:49)")
(defun machine-type ()
"Args: ()