X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fmove.lisp;h=0286e9a0e3385cc0b6c52b8b76db4da5093a4afa;hb=d147d512602d761a2dcdfded506dd1a8f9a140dc;hp=a8f47e121e76bab5a9a064a77e016cfdd453f49f;hpb=5470bfd1ed062203f4ab009f6ec19e81f8f32066;p=sbcl.git

diff --git a/src/compiler/x86/move.lisp b/src/compiler/x86/move.lisp
index a8f47e1..0286e9a 100644
--- a/src/compiler/x86/move.lisp
+++ b/src/compiler/x86/move.lisp
@@ -280,7 +280,7 @@
   (:note "signed word to integer coercion")
   (:node-var node)
   (:generator 20
-     (assert (not (location= x y)))
+     (aver (not (location= x y)))
      (let ((bignum (gen-label))
 	   (done (gen-label)))
        (inst mov y x)
@@ -341,9 +341,9 @@
   (:node-var node)
   (:note "unsigned word to integer coercion")
   (:generator 20
-    (assert (not (location= x y)))
-    (assert (not (location= x alloc)))
-    (assert (not (location= y alloc)))
+    (aver (not (location= x y)))
+    (aver (not (location= x alloc)))
+    (aver (not (location= y alloc)))
     (let ((bignum (gen-label))
 	  (done (gen-label))
 	  (one-word-bignum (gen-label))