0.pre7.50:

[sbcl.git] / src / compiler / dump.lisp

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index 927ea0f..62e6a9a 100644 (file)
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -251,7 +251,7 @@
 ;;; the source code is given by the string WHERE. If BYTE-P is true,
 ;;; this file will contain no native code, and is thus largely
 ;;; implementation independent.
-(defun open-fasl-output (name where &optional byte-p)
+(defun open-fasl-output (name where)
   (declare (type pathname name))
   (let* ((stream (open name
                       :direction :output
@@ -282,9 +282,7 @@
 
     ;; Finish the header by outputting fasl file implementation and
     ;; version in machine-readable form.
-    (let ((implementation (if byte-p
-                             (backend-byte-fasl-file-implementation)
-                             +backend-fasl-file-implementation+)))
+    (let ((implementation +backend-fasl-file-implementation+))
       (dump-unsigned-32 (length (symbol-name implementation)) res)
       (dotimes (i (length (symbol-name implementation)))
        (dump-byte (char-code (aref (symbol-name implementation) i)) res)))
@@ -1135,12 +1133,7 @@
     (dolist (entry (sb!c::ir2-component-entries 2comp))
       (let ((entry-handle (dump-one-entry entry code-handle file)))
        (setf (gethash entry (fasl-output-entry-table file)) entry-handle)
-
        (let ((old (gethash entry (fasl-output-patch-table file))))
-         ;; FIXME: All this code is shared with
-         ;; FASL-DUMP-BYTE-COMPONENT, and should probably be gathered
-         ;; up into a named function (DUMP-PATCHES?) called from both
-         ;; functions.
          (when old
            (dolist (patch old)
              (dump-alter-code-object (car patch)