X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=b296f48863b53eaff25423637afadfe36ba831e0;hb=b1de52969f584c63d43fb35da4a8a6a4e0e619f0;hp=b119f59b70d33153f371686a02f635c43084f0f1;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index b119f59..b296f48 100644
--- 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)
 
 ;;;; 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