From: David Vázquez Date: Sat, 31 Aug 2013 00:13:10 +0000 (+0200) Subject: Fix variable-arity multiplication and so read-float X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=d19b5d61e75a24cb5ee6b53630d9ec01106bd641;p=jscl.git Fix variable-arity multiplication and so read-float --- 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)