0.6.11.30:

[sbcl.git] / src / code / target-defstruct.lisp

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 2fb05f8..8942ffc 100644 (file)
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -9,8 +9,7 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
+(/show0 "target-defstruct.lisp 12")
 \f
 ;;;; structure frobbing primitives
 
@@ -387,3 +386,5 @@
                             (dsd-type dsd)
                             new-value))))
            (setf (%instance-ref structure (dsd-index dsd)) new-value)))))
+
+(/show0 "target-defstruct.lisp end of file")