X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fppc%2Farith.lisp;h=5f99d5ab708ffbe4933d3f6486ef54039ea939ef;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=fd5fad9a338444e58d358ba02514ff127941788f;hpb=3a0f3612dc2bbf3e4e8e7395bcbbf8cd1791b963;p=sbcl.git

diff --git a/src/assembly/ppc/arith.lisp b/src/assembly/ppc/arith.lisp
index fd5fad9..5f99d5a 100644
--- a/src/assembly/ppc/arith.lisp
+++ b/src/assembly/ppc/arith.lisp
@@ -217,7 +217,7 @@
                           (:res quo any-reg nl2-offset)
                           (:res rem any-reg nl0-offset))
   (aver (location= rem dividend))
-  (let ((error (generate-error-code nil division-by-zero-error
+  (let ((error (generate-error-code nil 'division-by-zero-error
                                     dividend divisor)))
     (inst cmpwi divisor 0)
     (inst beq error))
@@ -242,7 +242,7 @@
                           (:res rem any-reg nl0-offset))
 
   (aver (location= rem dividend))
-  (let ((error (generate-error-code nil division-by-zero-error
+  (let ((error (generate-error-code nil 'division-by-zero-error
                                     dividend divisor)))
     (inst cmpwi divisor 0)
     (inst beq error))
@@ -267,7 +267,7 @@
                           (:res quo signed-reg nl2-offset)
                           (:res rem signed-reg nl0-offset))
 
-  (let ((error (generate-error-code nil division-by-zero-error
+  (let ((error (generate-error-code nil 'division-by-zero-error
                                     dividend divisor)))
     (inst cmpwi divisor 0)
     (inst beq error))