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

diff --git a/src/code/defbangmacro.lisp b/src/code/defbangmacro.lisp
index 7e7dba3..c243552 100644
--- a/src/code/defbangmacro.lisp
+++ b/src/code/defbangmacro.lisp
@@ -23,7 +23,7 @@
   ;; of the system running to finish processing it
   (defstruct delayed-def!macro
     (args (required-argument) :type cons)
-    (package *package* :type package))
+    (package (sane-package) :type package))
   ;; a list of DELAYED-DEF!MACROs stored until we get DEF!MACRO working fully
   ;; so that we can apply it to them. After DEF!MACRO is made to work, this
   ;; list is processed, and then should no longer be used; it's made unbound in