(when (neq supplied-supers unsupplied)
(list :direct-superclasses (mapcar #'fix-super supplied-supers)))
(when (neq supplied-slots unsupplied)
- (list :direct-slots supplied-slots))))))
+ (list :direct-slots supplied-slots))
+ initargs))))
\f
(defmethod shared-initialize :after
((class std-class)
(wrapper-instance-slots-layout owrapper))
(setf (wrapper-class-slots nwrapper)
(wrapper-class-slots owrapper))
- (sb-sys:without-interrupts
+ (with-pcl-lock
(update-lisp-class-layout class nwrapper)
(setf (slot-value class 'wrapper) nwrapper)
(invalidate-wrapper owrapper :flush nwrapper))))))
(wrapper-instance-slots-layout owrapper))
(setf (wrapper-class-slots nwrapper)
(wrapper-class-slots owrapper))
- (sb-sys:without-interrupts
+ (with-pcl-lock
(update-lisp-class-layout class nwrapper)
(setf (slot-value class 'wrapper) nwrapper)
(invalidate-wrapper owrapper :obsolete nwrapper)