From d19b5d61e75a24cb5ee6b53630d9ec01106bd641 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 31 Aug 2013 02:13:10 +0200 Subject: [PATCH] Fix variable-arity multiplication and so read-float --- src/compiler/codegen.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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) -- 1.7.10.4