X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=4d136f3c82ea1b2034cd85f0963efb9dae444ed0;hb=b43b6e70ce48d959d77f7f56be9d11aa101fdd7d;hp=cbf4323799c654fc9004558da5ad00cdf9ebb59f;hpb=cb254941e176badff31a16a11509e1ac288ae249;p=sbcl.git diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp index cbf4323..4d136f3 100644 --- a/src/compiler/dump.lisp +++ b/src/compiler/dump.lisp @@ -384,7 +384,7 @@ ;; take a little more care while dumping these. ;; So if better list coalescing is needed, start here. ;; -- WHN 2000-11-07 - (if (cyclic-list-p x) + (if (maybe-cyclic-p x) (progn (dump-list x file) (eq-save-object x file)) @@ -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)))