X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=45352389ab6a95477b4878bb1c40cf2ede620bf6;hb=b29b99561100c81e3fc90b7f05462a1fa8d0903d;hp=a296451d2683561355cb09692fcace8e66107757;hpb=a0c5831b3a74118cf41a848300200a1acdb48dcf;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index a296451..4535238 100644
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -293,11 +293,9 @@
                        :if-exists :supersede
                        :element-type 'sb!assem:assembly-unit))
          (res (make-fasl-output :stream stream)))
-
     ;; Begin the header with the constant machine-readable (and
     ;; semi-human-readable) string which is used to identify fasl files.
     (fasl-write-string *fasl-header-string-start-string* stream)
-
     ;; The constant string which begins the header is followed by
     ;; arbitrary human-readable text, terminated by a special
     ;; character code.
@@ -311,14 +309,13 @@
                   at ~A~%  ~
                   on ~A~%  ~
                   using ~A version ~A~%"
-         where
+                 where
                  (format-universal-time nil (get-universal-time))
                  (machine-instance)
                  (sb!xc:lisp-implementation-type)
                  (sb!xc:lisp-implementation-version))))
      stream)
     (dump-byte +fasl-header-string-stop-char-code+ res)
-
     ;; Finish the header by outputting fasl file implementation,
     ;; version, and key *FEATURES*.
     (flet ((dump-counted-string (string)
@@ -332,8 +329,8 @@
                (dump-byte (char-code (aref string i)) res))))
       (dump-counted-string (symbol-name +backend-fasl-file-implementation+))
       (dump-word +fasl-file-version+ res)
+      (dump-counted-string (sb!xc:lisp-implementation-version))
       (dump-counted-string *features-affecting-fasl-format*))
-
     res))
 
 ;;; Close the specified FASL-OUTPUT, aborting the write if ABORT-P.
@@ -1218,6 +1215,7 @@
     (dump-object name file)
     (dump-object (sb!c::entry-info-arguments entry) file)
     (dump-object (sb!c::entry-info-type entry) file)
+    (dump-object (sb!c::entry-info-xref entry) file)
     (dump-fop 'fop-fun-entry file)
     (dump-word (label-position (sb!c::entry-info-offset entry)) file)
     (dump-pop file)))