0.6.10.21:

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

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