0.6.8.12:

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

diff --git a/src/code/class.lisp b/src/code/class.lisp
index b119f59..b296f48 100644 (file)
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -14,9 +14,6 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
-
 (!begin-collecting-cold-init-forms)
 \f
 ;;;; the CLASS structure
@@ -342,7 +339,7 @@
     (unless name
       (compiler-error "can't dump anonymous LAYOUT: ~S" layout))
     ;; Since LAYOUT refers to a class which refers back to the LAYOUT,
-    ;; we have to do this in two stages, a la the TREE-WITH-PARENT
+    ;; we have to do this in two stages, like the TREE-WITH-PARENT
     ;; example in the MAKE-LOAD-FORM entry in the ANSI spec.
     (values
      ;; "creation" form (which actually doesn't create a new LAYOUT if
@@ -1055,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