Changeset 7717

Timestamp:

Nov 24, 2007, 6:23:44 PM (17 years ago)

Author:

Gary Byers

Message:

break->compiler-bug.

File:

• branches/working-0711/ccl/compiler/X86/x86-lap.lisp (modified) (1 diff)

branches/working-0711/ccl/compiler/X86/x86-lap.lisp

@@ -32 +32 @@
        (progn
          (when (null (list-length data))
-           (break "frag-vector freelist is circular"))
+           (compiler-bug "frag-vector freelist is circular"))
          (setf (pool.data *x86-lap-frag-vector-freelist*) (cdr data))
          (rplacd data nil))