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

diff --git a/src/assembly/ppc/arith.lisp b/src/assembly/ppc/arith.lisp
index ce82af9..13e998a 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)
@@ -422,7 +422,7 @@
   (lisp-return lra lip :offset 2)
 
   DO-STATIC-FN
-  (inst lwz lip null-tn (static-fun-offset 'two-arg-=))
+  (inst lwz lip null-tn (static-fun-offset 'two-arg-/=))
   (inst li nargs (fixnumize 2))
   (inst mr ocfp cfp-tn)
   (inst j lip 0)