0.6.10.13:

[sbcl.git] / src / assembly / assemfile.lisp

diff --git a/src/assembly/assemfile.lisp b/src/assembly/assemfile.lisp
index d17a5a3..a4e9faf 100644 (file)
--- a/src/assembly/assemfile.lisp
+++ b/src/assembly/assemfile.lisp
@@ -11,9 +11,6 @@
 ;;;; files for more information.
 
 (in-package "SB!C")
-
-(file-comment
-  "$Header$")
 \f
 (defvar *do-assembly* nil
   #!+sb-doc "If non-NIL, emit assembly code. If NIL, emit VOP templates.")
@@ -51,7 +48,8 @@
        (let ((*features* (cons :sb-assembling *features*)))
          (init-assembler)
          (load (merge-pathnames name (make-pathname :type "lisp")))
-         (fasl-dump-cold-load-form `(in-package ,(package-name *package*))
+         (fasl-dump-cold-load-form `(in-package ,(package-name
+                                                  (sane-package)))
                                    *lap-output-file*)
          (sb!assem:append-segment *code-segment* *elsewhere*)
          (setf *elsewhere* nil)