projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.28.65: fix compiling with *PROFILE-HASH-CACHE* set to T
[sbcl.git]
/
src
/
pcl
/
dfun.lisp
diff --git
a/src/pcl/dfun.lisp
b/src/pcl/dfun.lisp
index
c9bdfc3
..
37002f9
100644
(file)
--- a/
src/pcl/dfun.lisp
+++ b/
src/pcl/dfun.lisp
@@
-1235,13
+1235,8
@@
Except see also BREAK-VICIOUS-METACIRCLE. -- CSR, 2003-05-28
(class-precedence-list
accessor-class))
:test #'eq)
(class-precedence-list
accessor-class))
:test #'eq)
- (if early-p
- (not (eq *the-class-standard-method*
- (early-method-class meth)))
- (accessor-method-p meth))
- (if early-p
- (early-accessor-method-slot-name meth)
- (accessor-method-slot-name meth))))))
+ (accessor-method-p meth)
+ (accessor-method-slot-name meth)))))
(slotd (and accessor-class
(if early-p
(dolist (slot (early-class-slotds accessor-class) nil)
(slotd (and accessor-class
(if early-p
(dolist (slot (early-class-slotds accessor-class) nil)