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

diff --git a/src/code/defbangstruct.lisp b/src/code/defbangstruct.lisp
index 55cff76..e4d8a2e 100644
--- 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