X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fassembly%2Fppc%2Farith.lisp;h=c19a9015833b210583f95b91bb132255508e334f;hb=5da5805594423a2d2a841b88617fd2c87fc05750;hp=ce82af99e58b01fe5ff6fcea0549e10af0c7c764;hpb=35b5e97163c45e89659dbd75c91d653b49c758d3;p=sbcl.git

diff --git a/src/assembly/ppc/arith.lisp b/src/assembly/ppc/arith.lisp
index ce82af9..c19a901 100644
--- a/src/assembly/ppc/arith.lisp
+++ b/src/assembly/ppc/arith.lisp
@@ -219,7 +219,7 @@
 
 			  (:res quo any-reg nl2-offset)
 			  (:res rem any-reg nl0-offset))
-  (assert (location= rem dividend))
+  (aver (location= rem dividend))
   (let ((error (generate-error-code nil division-by-zero-error
 				    dividend divisor)))
     (inst cmpwi divisor 0)
@@ -244,7 +244,7 @@
 			  (:res quo any-reg nl2-offset)
 			  (:res rem any-reg nl0-offset))
   
-  (assert (location= rem dividend))
+  (aver (location= rem dividend))
   (let ((error (generate-error-code nil division-by-zero-error
 				    dividend divisor)))
     (inst cmpwi divisor 0)