diff --git a/binding.lisp b/binding.lisp index 681623c7c237ef02747ab3830c0be52f3c66a556..37a3d52fb9f0e5f101bdcf3853e58fa46cb4b4b3 100644 --- a/binding.lisp +++ b/binding.lisp @@ -83,11 +83,8 @@ PROGN." bindings))) (labels ((bind (bindings body) (if bindings - `((let (,(car bindings)) - (when ,(caar bindings) - ,@(bind (cdr bindings) body)))) - body))) - `(let (,(car binding-list)) - (when ,(caar binding-list) - ,@(bind (cdr binding-list) body)))))) - + `(let (,(car bindings)) + (when ,(caar bindings) + ,(bind (cdr bindings) body))) + `(progn ,@body)))) + (bind binding-list body))))