X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fx86%2Fnlx.lisp;h=b098811d6bf731f47c1c7d38bd1b3896d4480119;hb=d147d512602d761a2dcdfded506dd1a8f9a140dc;hp=c15ba615cae40eae56e4f9734557ea53b9be06c6;hpb=77360ee4a1f94c41b807be7ad0e8687199fceef1;p=sbcl.git

diff --git a/src/compiler/x86/nlx.lisp b/src/compiler/x86/nlx.lisp
index c15ba61..b098811 100644
--- 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))))