mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-10 11:12:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

Reactivate deletion of temporary files.

Browse source
This commit is contained in:
jjgarcia 2003-11-06 08:35:37 +00:00
parent 9292714179
commit 01cfc8dc8f
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/cmp/cmpmain.lsp
View file

@ -245,8 +245,8 @@ cl_object Cblock;
(si:system (format nil "cat ~A" (namestring c-name)))
(compiler-cc c-name o-name)
(apply #'shared-cc output-name o-name ld-flags)))
;(delete-file c-name)
;(delete-file o-name)
(delete-file c-name)
(delete-file o-name)
output-name))
(defun build-fasl (&rest args)
@ -396,12 +396,12 @@ Cannot compile ~a."
(print-compiler-info)
(format t "~&;;; Finished compiling ~a."
(namestring input-pathname))))
;(unless c-file (delete-file c-pathname))
;(unless h-file (delete-file h-pathname))
;(unless (or data-file shared-data-file)
; (delete-file data-pathname))
(unless c-file (delete-file c-pathname))
(unless h-file (delete-file h-pathname))
(unless (or data-file shared-data-file)
(delete-file data-pathname))
#+dlopen
;(unless system-p (delete-file o-pathname))
(unless system-p (delete-file o-pathname))
#+dlopen
(if system-p o-pathname so-pathname)
#-dlopen
@ -631,7 +631,7 @@ Cannot compile ~a."
(shared-cc tmp file)
(when (probe-file tmp)
(load tmp :verbose nil :print nil)
;(delete-file tmp)
(delete-file tmp)
nil)))
#+dlopen