From df7e04b49e8e364912d583bd155861bbfbac0655 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Sun, 1 Mar 2015 09:43:31 -0500 Subject: [PATCH] No reason to declare notinline a few calls to INFO --- src/compiler/globaldb.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/compiler/globaldb.lisp b/src/compiler/globaldb.lisp index fad6cfe0d..b5e63c601 100644 --- a/src/compiler/globaldb.lisp +++ b/src/compiler/globaldb.lisp @@ -606,8 +606,7 @@ :type-spec (member :primitive :defined :instance :forthcoming-defclass-type nil) :validate-function (lambda (name new-value) - (declare (ignore new-value) - (notinline info)) + (declare (ignore new-value)) (when (info :declaration :recognized name) (error 'declaration-type-conflict-error :format-arguments (list name))))) @@ -659,8 +658,7 @@ ;; There's no portable way to unproclaim that a symbol is a declaration, ;; but at the low-level permit new-value to be NIL. :validate-function (lambda (name new-value) - (declare (symbol name) - (notinline info)) + (declare (symbol name)) (cond (new-value (when (info :type :kind name) (error 'declaration-type-conflict-error -- 2.11.4.GIT