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

Changed "does not return" note to only be done when brevity is 0.

parent ec6f70dd
No related branches found
No related tags found
No related merge requests found
...@@ -48,7 +48,7 @@ ...@@ -48,7 +48,7 @@
(node (lambda-bind fun))) (node (lambda-bind fun)))
(setf (leaf-type f) dtype) (setf (leaf-type f) dtype)
(when (and (eq (function-type-returns dtype) *empty-type*) (when (and (eq (function-type-returns dtype) *empty-type*)
(policy node (>= safety brevity))) (policy node (zerop brevity)))
(let ((*compiler-error-context* node)) (let ((*compiler-error-context* node))
(compiler-note "Function does not return.")))))) (compiler-note "Function does not return."))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment