Don't signal a note on NOTINLINE non-toplevel functions.

When a function was declared NOTINLINE, and later defined not at the
toplevel, SBCL signaled a note saying that it can't inline it.

Fixes lp#963530.

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 385402e..778a7ab 100644 (file)
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -181,8 +181,10 @@ evaluated as a PROGN."
            (lambda `(lambda ,@lambda-guts))
            #-sb-xc-host
            (named-lambda `(named-lambda ,name ,@lambda-guts))
+           (inline-type (inline-fun-name-p name))
            (inline-lambda
-            (when (inline-fun-name-p name)
+            (when (and inline-type
+                       (neq inline-type :notinline))
               ;; we want to attempt to inline, so complain if we can't
               (or (sb!c:maybe-inline-syntactic-closure lambda env)
                   (progn