X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fcodegen.lisp;h=5247e52508c61a21ed4abf865e2ef173ec6b95c1;hb=d19b5d61e75a24cb5ee6b53630d9ec01106bd641;hp=b32e837b99ba6654a945cede430bdb84aea165dd;hpb=b72391abab0319cf4abd2db441a47ea41ce93a67;p=jscl.git

diff --git a/src/compiler/codegen.lisp b/src/compiler/codegen.lisp
index b32e837..5247e52 100644
--- a/src/compiler/codegen.lisp
+++ b/src/compiler/codegen.lisp
@@ -201,6 +201,10 @@
          (case (length (cdr form))
            (1 `(unary- ,(cadr form)))
            (t (reduce (lambda (x y) `(- ,x ,y)) (cdr form)))))
+        (*
+         (case (length (cdr form))
+           (0 1)
+           (t (reduce (lambda (x y) `(* ,x ,y)) (cdr form)))))
         ((and or)
          (reduce (lambda (x y) `(,(car form) ,x ,y)) (cdr form)))
         ((progn comma)