kyle
/
kutils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

A few mixed up let/let*s.

This commit is contained in:
Kyle 2015-09-02 17:41:00 -07:00
parent 3819dd7002
commit 5aa19630ad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
macros.lisp
View File

@ -40,7 +40,7 @@ evaluate @c(body), which is wrapped in an implicit @c(progn)."
"Evaluate @c(bindings) in a @c(let) form; if they are all T, execute "Evaluate @c(bindings) in a @c(let) form; if they are all T, execute
the @c(then) form. Otherwise, execute the @c(else) form." the @c(then) form. Otherwise, execute the @c(else) form."
(let ((bindings (if (listp (first bindings)) bindings (list bindings)))) (let ((bindings (if (listp (first bindings)) bindings (list bindings))))
`(let* (,@bindings) `(let (,@bindings)
(if (and ,@(mapcar #'first bindings)) (if (and ,@(mapcar #'first bindings))
(progn ,then) (progn ,then)
(progn ,else))))) (progn ,else)))))
@ -64,7 +64,7 @@ a @c(cond)."
(defmacro condlet* (bindings &body forms) (defmacro condlet* (bindings &body forms)
"Evaluate @c(bindings) in a @c(let*) form, then evaluate @c(forms) in "Evaluate @c(bindings) in a @c(let*) form, then evaluate @c(forms) in
a @c(cond)." a @c(cond)."
(let ((bindings (if (listp (first bindings)) bindings (list bindings)))) (let* ((bindings (if (listp (first bindings)) bindings (list bindings))))
`(let (,@bindings) `(let (,@bindings)
(cond ,@forms)))) (cond ,@forms))))