www

commit beab137d542a381b02130287d932ff5b555b9809
parent 41dfb5f21d90f1d6f89e5b0353ca13028e8d9616
Author: Bertrand BRUN <bertrand.brun@me.com>
Date:   Mon, 15 Nov 2010 14:02:33 +0100

Correction du cas du progn dans meval

Diffstat:
M
meval.lisp
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/meval.lisp b/meval.lisp
@@ -154,7 +154,7 @@ d’arguments dans un certain environnement."
                (meval-lambda lambda (meval-args args env) env))
               ((:nil :call :func-name _ :body _*)
                (apply (symbol-function func-name) (meval-args body env)))
-              ((:nil :progn :body @.+)
+              ((:nil :progn :body _*)
                (meval-body body env))
               ((:nil :lclosure :size (? integerp) :rest (? integerp)? :body _*)
                (meval-body `(,body) env))