/[cmucl]/src/hemlock/lispeval.lisp
ViewVC logotype

Diff of /src/hemlock/lispeval.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.5 by ram, Tue Oct 1 17:10:03 1991 UTC revision 1.1.1.6 by ram, Tue Oct 1 17:23:04 1991 UTC
# Line 42  Line 42 
42    error-file                  ; The file to dump errors into    error-file                  ; The file to dump errors into
43    load                        ; Load compiled file or not?    load                        ; Load compiled file or not?
44    (errors 0)                  ; Count of compiler errors.    (errors 0)                  ; Count of compiler errors.
45    (warnings 0))               ; Count of compiler warnings.    (warnings 0)                ; Count of compiler warnings.
46      (notes 0))                  ; Count of compiler notes.
47  ;;;  ;;;
48  (defun %print-note (note stream d)  (defun %print-note (note stream d)
49    (declare (ignore d))    (declare (ignore d))
# Line 171  Line 172 
172      (message "~A" message)      (message "~A" message)
173      (case severity      (case severity
174        (:error (incf (note-errors note)))        (:error (incf (note-errors note)))
175        (:warning (incf (note-warnings note))))        (:warning (incf (note-warnings note)))
176          (:note (incf (note-notes note))))
177      (let ((region (case (note-kind note)      (let ((region (case (note-kind note)
178                      (:compile                      (:compile
179                       (note-region note))                       (note-region note))
# Line 215  Line 217 
217      (setf (note-server note) nil)      (setf (note-server note) nil)
218    
219      (if abortp      (if abortp
220        (loud-message "The ~A aborted." (note-context note))          (loud-message "The ~A aborted." (note-context note))
221        (let ((errors (note-errors note))          (let ((errors (note-errors note))
222              (warnings (note-warnings note)))                (warnings (note-warnings note))
223          (message "The ~A complete.~@[ ~D error~:P~]~@[ ~D warning~:P~]"                (notes (note-notes note)))
224                   (note-context note)            (message "The ~A complete.~
225                   (and (plusp errors) errors)                      ~@[ ~D error~:P~]~@[ ~D warning~:P~]~@[ ~D note~:P~]"
226                   (and (plusp warnings) warnings))))                     (note-context note)
227                       (and (plusp errors) errors)
228                       (and (plusp warnings) warnings)
229                       (and (plusp notes) notes))))
230    
231      (let ((region (note-region note)))      (let ((region (note-region note)))
232        (when (regionp region)        (when (regionp region)
# Line 235  Line 240 
240                 file)                 file)
241        (if (> (file-write-date file)        (if (> (file-write-date file)
242               (note-output-date note))               (note-output-date note))
243          (let ((new-name (make-pathname :type "fasl"            (let ((new-name (make-pathname :type "fasl"
244                                         :defaults (note-input-file note))))                                           :defaults (note-input-file note))))
245            (rename-file file new-name)              (rename-file file new-name)
246            (mach:unix-chmod (namestring new-name) #o644))              (mach:unix-chmod (namestring new-name) #o644))
247          (delete-file file)))            (delete-file file)))
248      (maybe-send-next-note server))      (maybe-send-next-note server))
249    (values))    (values))
250    

Legend:
Removed from v.1.1.1.5  
changed lines
  Added in v.1.1.1.6

  ViewVC Help
Powered by ViewVC 1.1.5