mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-28 13:21:33 -08:00
Code Issues Projects Releases Packages Wiki Activity

A empty file was created by COMPILE and not deleted

Browse source
This commit is contained in:
jjgarcia 2008-09-14 09:17:53 +00:00
parent b05ef138e7
commit 30282ef0e0
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/CHANGELOG
View file

@ -96,6 +96,9 @@ ECL 8.9.0:
- In FTYPE proclamations and declarations, the type may now be a user defined
function type (Josh Elsasser).
- COMPILE would create an extra empty file which would not get deleted after
finishing compilation (Josh Elsasser).
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

2
src/cmp/cmpmain.lsp
View file

@ -662,8 +662,6 @@ the environment variable TMPDIR to a different value." template)
(return-from compile (values nil t t))))
(let*((*load-time-values* 'values) ;; Only the value is kept
(template (format nil "TMP:ECL~3,'0x" (incf *gazonk-counter*)))
(data-pathname (or (si::mkstemp template) "foo"))
(c-pathname (compile-file-pathname data-pathname :type :c))
(h-pathname (compile-file-pathname data-pathname :type :h))
(o-pathname (compile-file-pathname data-pathname :type :object))