diff --git a/code/class.lisp b/code/class.lisp
index 2a609f98a1ae361d92fbd8bd4ca38f4b031af28a..6e77475c05612ffa7a6925d01e19e3c54b6e834e 100644
--- a/code/class.lisp
+++ b/code/class.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.32 1993/08/30 14:53:51 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.33 1994/02/10 20:06:21 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -550,75 +550,75 @@
 		      collection))
 	  (vector
 	   :translation vector  :codes (#.vm:complex-vector-type)
-	   :direct-superclasses (generic-vector array sequence)
-	   :inherits (generic-vector array generic-array sequence
+	   :direct-superclasses (array sequence generic-vector)
+	   :inherits (array sequence generic-vector generic-array
 		      mutable-sequence mutable-collection generic-sequence
 		      collection))
 	  (simple-vector
 	   :translation simple-vector  :codes (#.vm:simple-vector-type)
 	   :direct-superclasses (vector simple-array)
-	   :inherits (vector generic-vector simple-array array generic-array
-		      sequence mutable-sequence mutable-collection
+	   :inherits (vector simple-array array sequence generic-vector
+		      generic-array mutable-sequence mutable-collection
 		      generic-sequence collection))
 	  (bit-vector
 	   :translation bit-vector  :codes (#.vm:complex-bit-vector-type)
-	   :inherits (vector generic-vector array generic-array sequence
+	   :inherits (vector array sequence generic-vector generic-array
 		      mutable-sequence mutable-collection generic-sequence
 		      collection))
 	  (simple-bit-vector
 	   :translation simple-bit-vector  :codes (#.vm:simple-bit-vector-type)
 	   :direct-superclasses (bit-vector simple-array)
-	   :inherits (bit-vector vector generic-vector simple-array array
-		      generic-array sequence mutable-sequence
+	   :inherits (bit-vector vector simple-array array sequence
+		      generic-vector generic-array mutable-sequence
 		      mutable-collection generic-sequence collection))
 	  (simple-array-unsigned-byte-2
 	   :translation (simple-array (unsigned-byte 2) (*))
 	   :codes (#.vm:simple-array-unsigned-byte-2-type)
 	   :direct-superclasses (vector simple-array)
-	   :inherits (vector generic-vector simple-array array generic-array
-		      sequence mutable-sequence mutable-collection
+	   :inherits (vector simple-array array sequence generic-vector
+		      generic-array mutable-sequence mutable-collection
 		      generic-sequence collection))
 	  (simple-array-unsigned-byte-4
 	   :translation (simple-array (unsigned-byte 4) (*))
 	   :codes (#.vm:simple-array-unsigned-byte-4-type)
 	   :direct-superclasses (vector simple-array)
-	   :inherits (vector generic-vector simple-array array generic-array
-		      sequence mutable-sequence mutable-collection
+	   :inherits (vector simple-array array sequence generic-vector
+		      generic-array mutable-sequence mutable-collection
 		      generic-sequence collection))
 	  (simple-array-unsigned-byte-8
 	   :translation (simple-array (unsigned-byte 8) (*))
 	   :codes (#.vm:simple-array-unsigned-byte-8-type)
 	   :direct-superclasses (vector simple-array)
-	   :inherits (vector generic-vector simple-array array generic-array
-		      sequence mutable-sequence mutable-collection
+	   :inherits (vector simple-array array sequence generic-vector
+		      generic-array mutable-sequence mutable-collection
 		      generic-sequence collection))
 	  (simple-array-unsigned-byte-16
 	   :translation (simple-array (unsigned-byte 16) (*))
 	   :codes (#.vm:simple-array-unsigned-byte-16-type)
 	   :direct-superclasses (vector simple-array)
-	   :inherits (vector generic-vector simple-array array generic-array
-		      sequence mutable-sequence mutable-collection
+	   :inherits (vector simple-array array sequence generic-vector
+		      generic-array mutable-sequence mutable-collection
 		      generic-sequence collection))
 	  (simple-array-unsigned-byte-32
 	   :translation (simple-array (unsigned-byte 32) (*))
 	   :codes (#.vm:simple-array-unsigned-byte-32-type)
 	   :direct-superclasses (vector simple-array)
-	   :inherits (vector generic-vector simple-array array generic-array
-		      sequence mutable-sequence mutable-collection
+	   :inherits (vector simple-array array sequence generic-vector
+		      generic-array mutable-sequence mutable-collection
 		      generic-sequence collection))
 	  (simple-array-single-float
 	   :translation (simple-array single-float (*))
 	   :codes (#.vm:simple-array-single-float-type)
 	   :direct-superclasses (vector simple-array)
-	   :inherits (vector generic-vector simple-array array generic-array
-		      sequence mutable-sequence mutable-collection
+	   :inherits (vector simple-array array sequence generic-vector
+		      generic-array mutable-sequence mutable-collection
 		      generic-sequence collection))
 	  (simple-array-double-float
 	   :translation (simple-array double-float (*))
 	   :codes (#.vm:simple-array-double-float-type)
 	   :direct-superclasses (vector simple-array)
-	   :inherits (vector generic-vector simple-array array generic-array
-		      sequence mutable-sequence mutable-collection
+	   :inherits (vector simple-array array sequence generic-vector
+		      generic-array mutable-sequence mutable-collection
 		      generic-sequence collection))
 	  (generic-string
 	   :state :read-only
@@ -627,14 +627,14 @@
 	  (string
 	   :translation string  :codes (#.vm:complex-string-type)
 	   :direct-superclasses (vector generic-string)
-	   :inherits (vector generic-vector array generic-array sequence
+	   :inherits (vector array sequence generic-vector generic-array
 		      generic-string mutable-sequence mutable-collection
 		      generic-sequence collection))
 	  (simple-string
 	   :translation simple-string  :codes (#.vm:simple-string-type)
 	   :direct-superclasses (string simple-array)
-	   :inherits (vector generic-vector simple-array array generic-array
-		      sequence generic-string mutable-sequence
+	   :inherits (string vector generic-string simple-array array sequence
+		      generic-vector generic-array mutable-sequence
 		      mutable-collection generic-sequence collection))
 
 	  (generic-number :state :read-only)