X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=62e6a9a72d9fc836c1aa6115b674b92bb15f930c;hb=667ec9d494530079bef28e8589dd0d3274b935ec;hp=927ea0f929d152eb106f439ee65b3f998c4076e3;hpb=772659782631839f87fe059a45ecb28b933e298b;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index 927ea0f..62e6a9a 100644
--- 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)