From: David Vazquez <davazp@gmail.com>
Date: Sat, 26 Jan 2013 10:45:11 +0000 (+0000)
Subject: fix MULTIPLE-VALUE-BIND
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=405ed6112fbcd4790ed61bcaa2395e5edf8a8a58;p=jscl.git

fix MULTIPLE-VALUE-BIND
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index fb5cfff..b5606f7 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -701,7 +701,7 @@ function mv(){
     (values-list args))
 
   (defmacro multiple-value-bind (variables value-from &body body)
-    `(multiple-value-call (lambda (,@variables &rest ,(gensym))
+    `(multiple-value-call (lambda (&optional ,@variables &rest ,(gensym))
                             ,@body)
        ,value-from))