From 5aa19630add9723e5d84e1ba1ed582901bd990c3 Mon Sep 17 00:00:00 2001 From: Kyle Date: Wed, 2 Sep 2015 17:41:00 -0700 Subject: [PATCH] A few mixed up let/let*s. --- macros.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/macros.lisp b/macros.lisp index 1547f5b..8940d15 100644 --- a/macros.lisp +++ b/macros.lisp @@ -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 the @c(then) form. Otherwise, execute the @c(else) form." (let ((bindings (if (listp (first bindings)) bindings (list bindings)))) - `(let* (,@bindings) + `(let (,@bindings) (if (and ,@(mapcar #'first bindings)) (progn ,then) (progn ,else))))) @@ -64,7 +64,7 @@ a @c(cond)." (defmacro condlet* (bindings &body forms) "Evaluate @c(bindings) in a @c(let*) form, then evaluate @c(forms) in a @c(cond)." - (let ((bindings (if (listp (first bindings)) bindings (list bindings)))) + (let* ((bindings (if (listp (first bindings)) bindings (list bindings)))) `(let (,@bindings) (cond ,@forms))))