Index: /branches/working-0711/ccl/lib/nfcomp.lisp
===================================================================
--- /branches/working-0711/ccl/lib/nfcomp.lisp	(revision 7735)
+++ /branches/working-0711/ccl/lib/nfcomp.lisp	(revision 7736)
@@ -1315,5 +1315,5 @@
       (let* ((nb (ash (+ n 7) -3)))
         (fasl-out-ivect v 0 nb))
-      (break "need to byte-swap ~a" v))))
+      (compiler-bug "need to byte-swap ~a" v))))
 
 (defun fasl-dump-8-bit-ivector (v op)
@@ -1358,5 +1358,5 @@
       (let* ((nb (ash n 3)))
         (fasl-out-ivect v 0 nb))
-      (break "need to byte-swap ~a" v))))
+      (compiler-bug "need to byte-swap ~a" v))))
 
 (defun fasl-dump-double-float-vector (v)
@@ -1368,5 +1368,5 @@
         (fasl-out-ivect v (- target::misc-dfloat-offset
                              target::misc-data-offset) nb))
-      (break "need to byte-swap ~a" v))))
+      (compiler-bug "need to byte-swap ~a" v))))
 
 ;;; This is used to dump functions and "xfunctions".
@@ -1378,5 +1378,5 @@
   (if (and (not (eq *fasl-backend* *host-backend*))
            (typep f 'function))
-    (break "Dumping a native function constant ~s during cross-compilation." f))
+    (compiler-bug "Dumping a native function constant ~s during cross-compilation." f))
   (if (and (= (typecode f) target::subtag-xfunction)
            (= (typecode (uvref f 0)) target::subtag-u8-vector))
@@ -1392,5 +1392,5 @@
   (if (and (not (eq *fasl-backend* *host-backend*))
            (typep f 'function))
-    (break "Dumping a native function constant ~s during cross-compilation." f))
+    (compiler-bug "Dumping a native function constant ~s during cross-compilation." f))
   (if (and (= (typecode f) target::subtag-xfunction)
            (= (typecode (uvref f 0)) target::subtag-u8-vector))
@@ -1441,5 +1441,5 @@
   (if (and (not (eq *fasl-backend* *host-backend*))
            (typep c 'code-vector))
-    (break "Dumping a native code-vector constant ~s during cross-compilation." c))
+    (compiler-bug "Dumping a native code-vector constant ~s during cross-compilation." c))
   (let* ((n (uvsize c)))
     (fasl-out-opcode $fasl-code-vector c)