X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fppc%2Farith.lisp;h=ea9fc110e877b08a20c505b0fdbf645b594f1a55;hb=b6094d5640a59f36d2f727df08b271c422aa9e1c;hp=0abf90299c71f5e3505b6e721273858ddc61f456;hpb=935cb138f2973da3293564c57c47e2194ce27cf5;p=sbcl.git

diff --git a/src/assembly/ppc/arith.lisp b/src/assembly/ppc/arith.lisp
index 0abf902..ea9fc11 100644
--- a/src/assembly/ppc/arith.lisp
+++ b/src/assembly/ppc/arith.lisp
@@ -199,7 +199,7 @@
               `((inst srawi x x 2)))
           (inst mullw res x y))))
   (frob unsigned-* "unsigned *" 40 unsigned-num unsigned-reg)
-  (frob signed-* "unsigned *" 41 signed-num signed-reg)
+  (frob signed-* "signed *" 41 signed-num signed-reg)
   (frob fixnum-* "fixnum *" 30 tagged-num any-reg))