[Sbcl-commits] master: Reduce consing during SUBTYPEP on classes.

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

The branch "master" has been updated in SBCL:
       via  d0f65b07a30adc989e36a82ddc0ed54d135d638e (commit)
      from  69e6aef5e6fb3bd682c7a2cbf774034d2ea58ee8 (commit)

- Log -----------------------------------------------------------------
commit d0f65b07a30adc989e36a82ddc0ed54d135d638e
Author: Stas Boukarev <sta...@gm...>
Date:   Sat Oct 26 18:42:22 2013 +0400

    Reduce consing during SUBTYPEP on classes.
    
    sb-pcl::class-has-a-forward-referenced-superclass-p, used in the
    implementation of subtypep on classes, conses because SOME can't
    perform the required inlining when used on the sequences of unknown
    type. (See lp#1070635)
---
 src/pcl/std-class.lisp |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index 975acc4..37e3c75 100644
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -852,7 +852,8 @@
   (or (when (forward-referenced-class-p class)
         class)
       (some #'class-has-a-forward-referenced-superclass-p
-            (class-direct-superclasses class))))
+            ;; KLUDGE: SOME conses without knowing the type
+            (the list (class-direct-superclasses class)))))
 
 ;;; This is called by :after shared-initialize whenever a class is initialized
 ;;; or reinitialized. The class may or may not be finalized.

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


hooks/post-receive
-- 
SBCL