X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=a5d750c10833f9b40f895f5ab3b5515985abc99b;hb=ef5bc526202b95f6a1bf92fe88d2fa778a827190;hp=cbf4323799c654fc9004558da5ad00cdf9ebb59f;hpb=cb254941e176badff31a16a11509e1ac288ae249;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index cbf4323..a5d750c 100644
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -1241,7 +1241,6 @@
   (declare (type component component) (list trace-table))
   (declare (type fasl-output file))
 
-  (dump-fop 'fop-verify-empty-stack file)
   (dump-fop 'fop-verify-table-size file)
   (dump-word (fasl-output-table-free file) file)
 
@@ -1257,7 +1256,6 @@
                                        fixups
                                        file))
         (2comp (component-info component)))
-    (dump-fop 'fop-verify-empty-stack file)
 
     (dolist (entry (sb!c::ir2-component-entries 2comp))
       (let ((entry-handle (dump-one-entry entry code-handle file)))