projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.41.37: ppc: allocation fixes for threaded builds.
[sbcl.git]
/
src
/
pcl
/
defs.lisp
diff --git
a/src/pcl/defs.lisp
b/src/pcl/defs.lisp
index
777338a
..
f057b9f
100644
(file)
--- a/
src/pcl/defs.lisp
+++ b/
src/pcl/defs.lisp
@@
-155,16
+155,14
@@
;;;
;;; FIXME: SB-KERNEL has fast-and-not-quite-precise type code for use
;;; in the compiler. Could we share some of it here?
;;;
;;; FIXME: SB-KERNEL has fast-and-not-quite-precise type code for use
;;; in the compiler. Could we share some of it here?
+(defvar *in-*subtypep* nil)
+
(defun *subtypep (type1 type2)
(if (equal type1 type2)
(values t t)
(if (eq **boot-state** 'early)
(values (eq type1 type2) t)
(defun *subtypep (type1 type2)
(if (equal type1 type2)
(values t t)
(if (eq **boot-state** 'early)
(values (eq type1 type2) t)
- (let ((*in-precompute-effective-methods-p* t))
- (declare (special *in-precompute-effective-methods-p*))
- ;; FIXME: *IN-PRECOMPUTE-EFFECTIVE-METHODS-P* is not a
- ;; good name. It changes the way
- ;; CLASS-APPLICABLE-USING-CLASS-P works.
+ (let ((*in-*subtypep* t))
(setq type1 (*normalize-type type1))
(setq type2 (*normalize-type type2))
(case (car type2)
(setq type1 (*normalize-type type1))
(setq type2 (*normalize-type type2))
(case (car type2)