From 405ed6112fbcd4790ed61bcaa2395e5edf8a8a58 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sat, 26 Jan 2013 10:45:11 +0000 Subject: [PATCH] fix MULTIPLE-VALUE-BIND --- ecmalisp.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4