0.6.11.23:

[sbcl.git] / src / compiler / x86 / nlx.lisp

diff --git a/src/compiler/x86/nlx.lisp b/src/compiler/x86/nlx.lisp
index c15ba61..b098811 100644 (file)
--- a/src/compiler/x86/nlx.lisp
+++ b/src/compiler/x86/nlx.lisp
@@ -22,7 +22,7 @@
   (make-wired-tn *fixnum-primitive-type* any-reg-sc-number ebx-offset))
 
 (defun catch-block-ea (tn)
-  (assert (sc-is tn catch-block))
+  (aver (sc-is tn catch-block))
   (make-ea :dword :base ebp-tn
           :disp (- (* (+ (tn-offset tn) catch-block-size) word-bytes))))