X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-defstruct.lisp;h=8942ffc1051d45735e5172cfe7488466007b0ab7;hb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;hp=2fb05f88f02463bc0def64d6b8714173428b3fa9;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 2fb05f8..8942ffc 100644
--- 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")
 
 ;;;; 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")