X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefbangstruct.lisp;h=e4d8a2ee7a7d7d2949a9228199cbbb4703f97c57;hb=2abf77f6c4c559a3e5b7fc351a4743305381feb6;hp=2315186229887a527135700a6c724c1694465b13;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/defbangstruct.lisp b/src/code/defbangstruct.lisp
index 2315186..e4d8a2e 100644
--- a/src/code/defbangstruct.lisp
+++ b/src/code/defbangstruct.lisp
@@ -17,9 +17,6 @@
 
 (in-package "SB!KERNEL")
 
-(file-comment
-  "$Header$")
-
 ;;; A bootstrap MAKE-LOAD-FORM method can be a function or the name
 ;;; of a function.
 (deftype def!struct-type-make-load-form-fun () '(or function symbol))
@@ -101,7 +98,7 @@
   ;; enough of the system running to finish processing it
   (defstruct delayed-def!struct
     (args (required-argument) :type cons)
-    (package *package* :type package))
+    (package (sane-package) :type package))
   ;; a list of DELAYED-DEF!STRUCTs stored until we get DEF!STRUCT
   ;; working fully so that we can apply it to them then. After
   ;; DEF!STRUCT is made to work fully, this list is processed, then