0.6.11.23:

[sbcl.git] / src / compiler / trace-table.lisp

diff --git a/src/compiler/trace-table.lisp b/src/compiler/trace-table.lisp
index b25f0a1..1abbee4 100644 (file)
--- a/src/compiler/trace-table.lisp
+++ b/src/compiler/trace-table.lisp
@@ -59,7 +59,7 @@
                 (let* ((posn (label-position (car entry)))
                        (state (cdr entry)))
                   (declare (type index posn) (type tt-state state))
-                  (assert (<= last-posn posn))
+                  (aver (<= last-posn posn))
                   (do ((offset (- posn last-posn) (- offset tt-max-offset)))
                   ((< offset tt-max-offset)
                    (push-entry offset state))