X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=1b51237c6857b2a228685d96749106420fd24ad7;hb=e3113504fca73ebd1b992930315386d9d3ae5d18;hp=c6c5eb1500d239125303199c0f6cd88439dc5d8b;hpb=ee5d2cb7fe619a5b5439e512b665d59d4dfb1f40;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index c6c5eb1..1b51237 100644
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -339,15 +339,15 @@
 (defun close-fasl-output (fasl-output abort-p)
   (declare (type fasl-output fasl-output))
 
-  ;; sanity checks
-  (aver (zerop (hash-table-count (fasl-output-patch-table fasl-output))))
-
-  ;; End the group.
-  (dump-fop 'fop-verify-empty-stack fasl-output)
-  (dump-fop 'fop-verify-table-size fasl-output)
-  (dump-word (fasl-output-table-free fasl-output)
-                    fasl-output)
-  (dump-fop 'fop-end-group fasl-output)
+  (unless abort-p
+    ;; sanity checks
+    (aver (zerop (hash-table-count (fasl-output-patch-table fasl-output))))
+    ;; End the group.
+    (dump-fop 'fop-verify-empty-stack fasl-output)
+    (dump-fop 'fop-verify-table-size fasl-output)
+    (dump-word (fasl-output-table-free fasl-output)
+               fasl-output)
+    (dump-fop 'fop-end-group fasl-output))
 
   ;; That's all, folks.
   (close (fasl-output-stream fasl-output) :abort abort-p)