X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fdump.lisp;h=52bddb4c20bd8c66052eeca8fa840233e196e775;hb=7044d862b9d82dc086b2ccb59dc4b372cd731b4e;hp=fa44379d4056e6f4d844d93c5717d70942898d9a;hpb=01488e5ddb6c8c10bc01bc9c502be1fe9de8e370;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index fa44379..52bddb4 100644
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -260,18 +260,6 @@
       (aver (not (gethash x circ)))
       (setf (gethash x circ) x)))
   (values))
-
-;;; Dump FORM to a fasl file so that it evaluated at load time in normal
-;;; load and at cold-load time in cold load. This is used to dump package
-;;; frobbing forms.
-(defun fasl-dump-cold-load-form (form fasl-output)
-  (declare (type fasl-output fasl-output))
-  (dump-fop 'fop-normal-load fasl-output)
-  (let ((*cold-load-dump* t))
-    (dump-object form fasl-output))
-  (dump-fop 'fop-eval-for-effect fasl-output)
-  (dump-fop 'fop-maybe-cold-load fasl-output)
-  (values))
 
 ;;;; opening and closing fasl files
 
@@ -318,14 +306,8 @@
            (format nil
                    "~%  ~
                     compiled from ~S~%  ~
-                    at ~A~%  ~
-                    on ~A~%  ~
                     using ~A version ~A~%"
                    where
-                   #+sb-xc-host "cross-compile time"
-                   #-sb-xc-host (format-universal-time nil (get-universal-time))
-                   #+sb-xc-host "cross-compile host"
-                   #-sb-xc-host (machine-instance)
                    (sb!xc:lisp-implementation-type)
                    (sb!xc:lisp-implementation-version))))
        stream)