diff --git a/hemlock/lispeval.lisp b/hemlock/lispeval.lisp index 3d27b6652a4ae4b5d92fc835c9f6ad8463ca8970..bc3ef3f84308c32192409b8e564365f5421ffce0 100644 --- a/hemlock/lispeval.lisp +++ b/hemlock/lispeval.lisp @@ -166,6 +166,9 @@ :message message :line line))) (message "~A" message) + (case severity + (:error (incf (note-errors note))) + (:warning (incf (note-warnings note)))) (let ((region (case (note-kind note) (:compile (note-region note))