0.6.9.13:

[sbcl.git] / src / code / defbangstruct.lisp

diff --git a/src/code/defbangstruct.lisp b/src/code/defbangstruct.lisp
index 2315186..e4d8a2e 100644 (file)
--- 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