X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefbangmacro.lisp;h=c2572dc08a04389acfec613c9fb5f88f4d5f3b96;hb=93c8158fd4996e2a7184eb0f8d63812a7bc2562c;hp=f0e40e8883b3673e132367a4ae56a98ecf9561c3;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/code/defbangmacro.lisp b/src/code/defbangmacro.lisp
index f0e40e8..c2572dc 100644
--- a/src/code/defbangmacro.lisp
+++ b/src/code/defbangmacro.lisp
@@ -17,16 +17,13 @@
 
 (in-package "SB!IMPL")
 
-(file-comment
-  "$Header$")
-
 #+sb-xc-host
 (progn
   ;; 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