0.7.1.3:

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

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index eaa958e..183e2b1 100644 (file)
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -893,14 +893,12 @@
   (declare (type sb!assem:segment segment)
           (type fasl-output fasl-output))
   (let* ((stream (fasl-output-stream fasl-output))
-        (nwritten (write-segment-contents segment stream)))
+        (n-written (write-segment-contents segment stream)))
     ;; In CMU CL there was no enforced connection between the CODE-LENGTH
     ;; argument and the number of bytes actually written. I added this
     ;; assertion while trying to debug portable genesis. -- WHN 19990902
-    (unless (= code-length nwritten)
-      (error "internal error, code-length=~W, nwritten=~W"
-            code-length
-            nwritten)))
+    (unless (= code-length n-written)
+      (bug "code-length=~W, n-written=~W" code-length n-written)))
   (values))
 
 ;;; Dump all the fixups. Currently there are three flavors of fixup: