suzanne.soy/2010-m1s1-compilation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Georges Dupéron 2010-11-02 01:47:52 +01:00
parent a71ac81634
commit 5809570f57
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
implementation/divers.lisp
View File

@ -102,15 +102,15 @@
(defmacro let (bindings &rest body) (defmacro let (bindings &rest body)
`((lambda ,(mapcar #'car bindings) `((lambda ,(mapcar #'car bindings)
,body) ,@body)
,(mapcar #'cdar bindings))) ,@(mapcar #'cadr bindings)))
(defmacro let* (bindings &rest body) (defmacro let* (bindings &rest body)
(if (endp bindings) (if (endp bindings)
body `(progn ,@body)
`(let (,(car bindings)) `(let (,(car bindings))
(let* ,(cdr bindings) (let* ,(cdr bindings)
,body)))) ,@body))))
(defmacro labels (f-bindings &rest body) (defmacro labels (f-bindings &rest body)
;; TODO ;; TODO