X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fassemfile.lisp;h=0e54b8cb5b2b887c69ef815e5b60705611283dc7;hb=04c2366ba81081d3f19d8818f7366e280f11e7f2;hp=837b239bbb578b351026edfd2e6ab2c5f3fe95bc;hpb=903f4432362a1e7764dfed46d35894625cc085d8;p=sbcl.git

diff --git a/src/assembly/assemfile.lisp b/src/assembly/assemfile.lisp
index 837b239..0e54b8c 100644
--- a/src/assembly/assemfile.lisp
+++ b/src/assembly/assemfile.lisp
@@ -45,9 +45,6 @@
         (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
-                                                   (sane-package)))
-                                    lap-fasl-output)
           (sb!assem:append-segment *code-segment* *elsewhere*)
           (setf *elsewhere* nil)
           (let ((length (sb!assem:finalize-segment *code-segment*)))