0.pre7.50:

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

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index e81d381..62e6a9a 100644 (file)
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -1133,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)