X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fassemfile.lisp;h=a4e9faf5315383955b792095139a614bc66251cf;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=d17a5a3ca4549390dc0e60cb04ae2a46ceb40bed;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/assembly/assemfile.lisp b/src/assembly/assemfile.lisp
index d17a5a3..a4e9faf 100644
--- 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$")
 
 (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)