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

diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp
index 92932cf..8942ffc 100644
--- a/src/code/target-defstruct.lisp
+++ b/src/code/target-defstruct.lisp
@@ -8,6 +8,8 @@
 ;;;; files for more information.
 
 (in-package "SB!KERNEL")
+
+(/show0 "target-defstruct.lisp 12")
 
 ;;;; structure frobbing primitives
 
@@ -384,3 +386,5 @@
 			     (dsd-type dsd)
 			     new-value))))
 	    (setf (%instance-ref structure (dsd-index dsd)) new-value)))))
+
+(/show0 "target-defstruct.lisp end of file")