0.6.8.6: applied MNA megapatch (will be edited shortly)

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

diff --git a/src/code/class.lisp b/src/code/class.lisp
index bd6d361..b296f48 100644 (file)
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -1052,6 +1052,9 @@
      :inherits (sequence mutable-sequence mutable-collection
                generic-sequence collection))
     (cons
+     ;; MNA: cons compound-type patch
+     ;; FIXIT :all commented out
+     ; :translation cons
      :codes (#.sb!vm:list-pointer-type)
      :inherits (list sequence
                mutable-sequence mutable-collection