[Sbcl-commits] master: No reason to declare notinline a few calls to INFO

[Douglas K. <sn...@us...>]

The branch "master" has been updated in SBCL:
       via  df7e04b49e8e364912d583bd155861bbfbac0655 (commit)
      from  1e2e54294c61550f75b7725fb182c573d2769e28 (commit)

- Log -----------------------------------------------------------------
commit df7e04b49e8e364912d583bd155861bbfbac0655
Author: Douglas Katzman <do...@go...>
Date:   Sun Mar 1 09:43:31 2015 -0500

    No reason to declare notinline a few calls to INFO
---
 src/compiler/globaldb.lisp |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/compiler/globaldb.lisp b/src/compiler/globaldb.lisp
index fad6cfe..b5e63c6 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

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL