projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cleanup DESCRIBE of symbols naming type specifiers a bit
[sbcl.git]
/
src
/
pcl
/
std-class.lisp
diff --git
a/src/pcl/std-class.lisp
b/src/pcl/std-class.lisp
index
ab7cb21
..
a07cf93
100644
(file)
--- a/
src/pcl/std-class.lisp
+++ b/
src/pcl/std-class.lisp
@@
-968,9
+968,8
@@
(cond ((null owrapper)
(make-wrapper nslots class))
((and (equal nlayout olayout)
(cond ((null owrapper)
(make-wrapper nslots class))
((and (equal nlayout olayout)
- (loop for o in owrapper-class-slots
- for n in nwrapper-class-slots
- always (eq (car o) (car n)))
+ (equal (mapcar #'car owrapper-class-slots)
+ (mapcar #'car nwrapper-class-slots))
(slotd-classes-eq (slot-value class 'slots) eslotds))
owrapper)
(t
(slotd-classes-eq (slot-value class 'slots) eslotds))
owrapper)
(t