common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Reduce consing during SUBTYPEP on classes.

Browse source 
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)
This commit is contained in:
Stas Boukarev 2013-10-26 18:42:22 +04:00
parent 69e6aef5e6
commit d0f65b07a3
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/pcl/std-class.lisp
View file

@ -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.