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
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(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 @@
(when fasl-file
(close-fasl-file fasl-file (not compile-won))
(setq output-file-name (pathname (fasl-file-stream fasl-file)))
(when (and compile-won *compile-verbose*)
(compiler-mumble "~2&~A written.~%"
(namestring (truename output-file-name)))))
(compiler-mumble "~2&~A written.~%" (namestring output-file-name))))
(when *compile-verbose*
(finish-error-output source-info compile-won))
......@@ -1617,7 +1617,10 @@
(error "Can't :LOAD with no output file."))
(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))
(if (member error-severity '(:warning :error)) t nil))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment