Correction du cas du progn dans meval

2010-11-15 14:02:33 +01:00 · 2010-11-15 14:02:33 +01:00 · beab137d54
commit beab137d54
parent 41dfb5f21d
1 changed files with 1 additions and 1 deletions
--- 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))