From b04168702f7617b988ea032718b1254ed3ef5ccb Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sat, 24 Mar 2012 17:28:30 +0400 Subject: [PATCH] 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. --- src/code/defboot.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp index 385402e..778a7ab 100644 --- 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 -- 1.7.10.4