0.pre7.127:

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

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index 3ec6377..4946783 100644 (file)
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -1013,14 +1013,6 @@
                   (handle
                    (dump-push handle fasl-output))
                   (t
-
-                   ;; REMOVEME after fixing bug 138b.
-                   #|
-                   (unless (member info (sb!c::ir2-component-entries 2comp))
-                     (format t "~&i=~S~%" i)
-                     (error "bogus FASL-OUTPUT-PATCH-TABLE value ~S" info))
-                    |#
-
                    (patches (cons info i))
                    (dump-fop 'fop-misc-trap fasl-output)))))
               (:load-time-value
@@ -1094,7 +1086,7 @@
     (dump-object name file)
     (dump-object (sb!c::entry-info-arguments entry) file)
     (dump-object (sb!c::entry-info-type entry) file)
-    (dump-fop 'fop-function-entry file)
+    (dump-fop 'fop-fun-entry file)
     (dump-unsigned-32 (label-position (sb!c::entry-info-offset entry)) file)
     (dump-pop file)))