1.0.4.11: trivial hash-table cleanup / optimization

[sbcl.git] / src / code / class.lisp

diff --git a/src/code/class.lisp b/src/code/class.lisp
index c3af80d..4629a86 100644 (file)
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -1096,7 +1096,9 @@ NIL is returned when no such class exists."
       :inherits (array)
       :prototype-form (make-array nil))
      (sequence
-      :translation (or cons (member nil) vector))
+      :translation (or cons (member nil) vector extended-sequence)
+      :state :read-only
+      :depth 2)
      (vector
       :translation vector :codes (#.sb!vm:complex-vector-widetag)
       :direct-superclasses (array sequence)