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

diff --git a/src/assembly/assemfile.lisp b/src/assembly/assemfile.lisp
index 6578aa2..a4e9faf 100644
--- a/src/assembly/assemfile.lisp
+++ b/src/assembly/assemfile.lisp
@@ -48,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)