Import des corrections apportées à implementation/divers.lisp dans ma branche de bidouilles.

2010-11-02 01:47:52 +01:00 · 2010-11-02 01:47:52 +01:00 · 5809570f57
commit 5809570f57
parent a71ac81634
1 changed files with 6 additions and 6 deletions
--- a/implementation/divers.lisp
+++ b/implementation/divers.lisp
@ -102,15 +102,15 @@

 (defmacro let (bindings &rest body)
  `((lambda ,(mapcar #'car bindings)
-	  ,body)
-	,(mapcar #'cdar bindings)))
+	  ,@body)
+	,@(mapcar #'cadr bindings)))

 (defmacro let* (bindings &rest body)
  (if (endp bindings)
-      body
-    `(let (,(car bindings))
-       (let* ,(cdr bindings)
-         ,body))))
+      `(progn ,@body)
+      `(let (,(car bindings))
+         (let* ,(cdr bindings)
+           ,@body))))

 (defmacro labels (f-bindings &rest body)
  ;; TODO