X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fclass.lisp;h=5ccc7ac58e801ce745a7e9ef4efdffe851b2951a;hb=6a8fb906ba96395f2a60f821b2ec7649a2a3ae46;hp=91fb725380288a0c7571a3ff4eab1a772a9dd90a;hpb=68612b8227bdd1a9e70962201f54231c82affa17;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 91fb725..5ccc7ac 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -485,19 +485,18 @@
 	(setf (layout-invalid layout) nil
 	      (classoid-layout classoid) layout))
 
-    (let ((inherits (layout-inherits layout)))
-      (dotimes (i (length inherits)) ; FIXME: should be DOVECTOR
-	(let* ((super (layout-classoid (svref inherits i)))
-	       (subclasses (or (classoid-subclasses super)
-			       (setf (classoid-subclasses super)
-				     (make-hash-table :test 'eq)))))
-	  (when (and (eq (classoid-state super) :sealed)
-		     (not (gethash classoid subclasses)))
-	    (warn "unsealing sealed class ~S in order to subclass it"
-		  (classoid-name super))
-	    (setf (classoid-state super) :read-only))
-	  (setf (gethash classoid subclasses)
-		(or destruct-layout layout))))))
+    (dovector (super-layout (layout-inherits layout))
+      (let* ((super (layout-classoid super-layout))
+             (subclasses (or (classoid-subclasses super)
+                             (setf (classoid-subclasses super)
+                                   (make-hash-table :test 'eq)))))
+        (when (and (eq (classoid-state super) :sealed)
+                   (not (gethash classoid subclasses)))
+          (warn "unsealing sealed class ~S in order to subclass it"
+                (classoid-name super))
+          (setf (classoid-state super) :read-only))
+        (setf (gethash classoid subclasses)
+              (or destruct-layout layout)))))
 
   (values))
 ); EVAL-WHEN
@@ -1282,9 +1281,8 @@
   (let ((inherits (layout-inherits layout))
 	(classoid (layout-classoid layout)))
     (modify-classoid classoid)
-    (dotimes (i (length inherits)) ; FIXME: DOVECTOR
-      (let* ((super (svref inherits i))
-	     (subs (classoid-subclasses (layout-classoid super))))
+    (dovector (super inherits)
+      (let ((subs (classoid-subclasses (layout-classoid super))))
 	(when subs
 	  (remhash classoid subs)))))
   (values))