0.8.16.25:

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

diff --git a/src/code/defbangmacro.lisp b/src/code/defbangmacro.lisp
index 7e7dba3..c2572dc 100644 (file)
--- a/src/code/defbangmacro.lisp
+++ b/src/code/defbangmacro.lisp
@@ -22,8 +22,8 @@
   ;; a description of the DEF!MACRO call to be stored until we get enough
   ;; of the system running to finish processing it
   (defstruct delayed-def!macro
-    (args (required-argument) :type cons)
-    (package *package* :type package))
+    (args (missing-arg) :type cons)
+    (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