0.6.10:

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

diff --git a/src/code/defbangstruct.lisp b/src/code/defbangstruct.lisp
index 55cff76..e4d8a2e 100644 (file)
--- a/src/code/defbangstruct.lisp
+++ b/src/code/defbangstruct.lisp
@@ -98,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