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

This commit was generated by cvs2svn to compensate for changes in r3764,

which included commits to RCS files with non-trunk default branches.
parents c6d8d6e2 7648bad0
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/hemlock/lispeval.lisp,v 1.1.1.5 1991/10/01 17:10:03 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.6 1991/10/01 17:23:04 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -42,7 +42,8 @@ ...@@ -42,7 +42,8 @@
error-file ; The file to dump errors into error-file ; The file to dump errors into
load ; Load compiled file or not? load ; Load compiled file or not?
(errors 0) ; Count of compiler errors. (errors 0) ; Count of compiler errors.
(warnings 0)) ; Count of compiler warnings. (warnings 0) ; Count of compiler warnings.
(notes 0)) ; Count of compiler notes.
;;; ;;;
(defun %print-note (note stream d) (defun %print-note (note stream d)
(declare (ignore d)) (declare (ignore d))
...@@ -171,7 +172,8 @@ ...@@ -171,7 +172,8 @@
(message "~A" message) (message "~A" message)
(case severity (case severity
(:error (incf (note-errors note))) (:error (incf (note-errors note)))
(:warning (incf (note-warnings note)))) (:warning (incf (note-warnings note)))
(:note (incf (note-notes note))))
(let ((region (case (note-kind note) (let ((region (case (note-kind note)
(:compile (:compile
(note-region note)) (note-region note))
...@@ -215,13 +217,16 @@ ...@@ -215,13 +217,16 @@
(setf (note-server note) nil) (setf (note-server note) nil)
(if abortp (if abortp
(loud-message "The ~A aborted." (note-context note)) (loud-message "The ~A aborted." (note-context note))
(let ((errors (note-errors note)) (let ((errors (note-errors note))
(warnings (note-warnings note))) (warnings (note-warnings note))
(message "The ~A complete.~@[ ~D error~:P~]~@[ ~D warning~:P~]" (notes (note-notes note)))
(note-context note) (message "The ~A complete.~
(and (plusp errors) errors) ~@[ ~D error~:P~]~@[ ~D warning~:P~]~@[ ~D note~:P~]"
(and (plusp warnings) warnings)))) (note-context note)
(and (plusp errors) errors)
(and (plusp warnings) warnings)
(and (plusp notes) notes))))
(let ((region (note-region note))) (let ((region (note-region note)))
(when (regionp region) (when (regionp region)
...@@ -235,11 +240,11 @@ ...@@ -235,11 +240,11 @@
file) file)
(if (> (file-write-date file) (if (> (file-write-date file)
(note-output-date note)) (note-output-date note))
(let ((new-name (make-pathname :type "fasl" (let ((new-name (make-pathname :type "fasl"
:defaults (note-input-file note)))) :defaults (note-input-file note))))
(rename-file file new-name) (rename-file file new-name)
(mach:unix-chmod (namestring new-name) #o644)) (mach:unix-chmod (namestring new-name) #o644))
(delete-file file))) (delete-file file)))
(maybe-send-next-note server)) (maybe-send-next-note server))
(values)) (values))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment