Skip to content
Snippets Groups Projects
Commit a80ca354 authored by ram's avatar ram
Browse files

In COMPILE-FILE use PATHNAME of the output stream rather than TRUENAME of the

output-file.  It seems that sometimes the file doesn't appear in the file
system until some time after we close the file.
parent 2c511516
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.49 1991/12/14 18:12:52 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.50 1991/12/22 02:00:36 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1592,9 +1592,9 @@ ...@@ -1592,9 +1592,9 @@
(when fasl-file (when fasl-file
(close-fasl-file fasl-file (not compile-won)) (close-fasl-file fasl-file (not compile-won))
(setq output-file-name (pathname (fasl-file-stream fasl-file)))
(when (and compile-won *compile-verbose*) (when (and compile-won *compile-verbose*)
(compiler-mumble "~2&~A written.~%" (compiler-mumble "~2&~A written.~%" (namestring output-file-name))))
(namestring (truename output-file-name)))))
(when *compile-verbose* (when *compile-verbose*
(finish-error-output source-info compile-won)) (finish-error-output source-info compile-won))
...@@ -1617,7 +1617,10 @@ ...@@ -1617,7 +1617,10 @@
(error "Can't :LOAD with no output file.")) (error "Can't :LOAD with no output file."))
(load output-file-name :verbose *compile-verbose*)) (load output-file-name :verbose *compile-verbose*))
(values (if output-file (truename output-file-name) nil) (values (if output-file
;; Hack around filesystem race condition...
(or (probe-file output-file-name) output-file-name)
nil)
(not (null error-severity)) (not (null error-severity))
(if (member error-severity '(:warning :error)) t nil)))) (if (member error-severity '(:warning :error)) t nil))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment