[Sbcl-commits] master: Optimize CACHED-TYPEP.

[stassats <sta...@us...>]

The branch "master" has been updated in SBCL:
       via  a978082a5fd7f29f3487b43b4ab9cbe436dafd09 (commit)
      from  a0e47f715207998bbaeab0c429c6454525eec48e (commit)

- Log -----------------------------------------------------------------
commit a978082a5fd7f29f3487b43b4ab9cbe436dafd09
Author: Stas Boukarev <sta...@gm...>
Date:   Sat Dec 3 03:29:00 2016 +0300

    Optimize CACHED-TYPEP.
    
    Declare the return type of the cached function.
---
 src/compiler/typetran.lisp |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/compiler/typetran.lisp b/src/compiler/typetran.lisp
index ac3b8a3..ede39ad 100644
--- a/src/compiler/typetran.lisp
+++ b/src/compiler/typetran.lisp
@@ -308,8 +308,9 @@
            `(let ((object ,object)
                   (cache (load-time-value (cons #'sb!kernel::cached-typep ',spec)
                                           t)))
-              (funcall (truly-the function (car (truly-the cons cache)))
-                       cache object)))
+              (truly-the (values t &optional)
+                         (funcall (truly-the function (car (truly-the cons cache)))
+                                  cache object))))
           (t
            (ecase (first spec)
              (satisfies

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


hooks/post-receive
-- 
SBCL