(!fix-ensure-accessor-specializers)
(compute-standard-slot-locations)
(dolist (s '(condition structure-object))
- (dohash (k v (classoid-subclasses (find-classoid s)))
+ (dohash ((k v) (classoid-subclasses (find-classoid s)))
(find-class (classoid-name k))))
(setq *boot-state* 'complete)
(declare (ignore depth))
(print-object instance stream))
-;;; Access the slot-vector created by MAKE-SLOT-VECTOR.
-(defun find-slot-definition (class slot-name)
- (declare (symbol slot-name) (inline getf))
- (let* ((vector (class-slot-vector class))
- (index (rem (sxhash slot-name) (length vector))))
- (declare (simple-vector vector) (index index))
- (do ((plist (svref vector index) (cdr plist)))
- ((not plist))
- (let ((key (car plist)))
- (setf plist (cdr plist))
- (when (eq key slot-name)
- (return (car plist)))))))