X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Farith.lisp;h=9004b6daf2ac410cafdb2eac7e434b81f94588dd;hb=1d46d379bb7a6424524b978f213ef69be5f1ad69;hp=fd098de7d228e06d5bd66efe77970eef729f7028;hpb=01a561adb042813a8464d07b3b03b08cbb8486e4;p=sbcl.git

diff --git a/src/compiler/ppc/arith.lisp b/src/compiler/ppc/arith.lisp
index fd098de..9004b6d 100644
--- a/src/compiler/ppc/arith.lisp
+++ b/src/compiler/ppc/arith.lisp
@@ -491,6 +491,7 @@
 		    (:translate ,mfun-name))))))))
   (define-modular-backend + t)
   (define-modular-backend - t)
+  (define-modular-backend * t)
   (define-modular-backend logxor t)
   (define-modular-backend logeqv)
   (define-modular-backend lognand)