Correction d'une recursion infini dans le let*

2010-11-01 19:09:08 +01:00 · 2010-11-01 19:09:08 +01:00 · 213c0fcfc0
commit 213c0fcfc0
parent aecdddc985
1 changed files with 5 additions and 3 deletions
--- a/implementation/divers.lisp
+++ b/implementation/divers.lisp
@ -106,9 +106,11 @@
 	,(mapcar #'cdar bindings)))

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

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