diff --git a/binding.lisp b/binding.lisp index 8275c496b36ca9509d8556c7b61964b94d1589e1..6a4cc0575512c15a31b975b17d3782f347cd35d6 100644 --- a/binding.lisp +++ b/binding.lisp @@ -2,7 +2,7 @@ (defmacro if-let (bindings then-form &optional else-form) "Creates new variable bindings, and conditionally executes either -THEN-FORM or ELSE-FORM (defaulting to NIL). +THEN-FORM or ELSE-FORM. ELSE-FORM defaults to NIL. BINDINGS must be either single binding of the form: @@ -32,7 +32,7 @@ effect." (defmacro if-let* (bindings then-form &optional else-form) "Creates new variable bindings, and conditionally executes either THEN-FORM -or ELSE-FORM (defaulting to NIL). +or ELSE-FORM. ELSE-FORM defaults to NIL. BINDINGS must be either single binding of the form: @@ -89,8 +89,7 @@ implicit PROGN." ,@forms)))) (defmacro when-let* (bindings &body forms) - "Creates new variable bindings, and conditionally executes either THEN-FORM -or ELSE-FORM (defaulting to NIL). + "Creates new variable bindings, and conditionally executes FORMS. BINDINGS must be either single binding of the form: diff --git a/functions.lisp b/functions.lisp index 9e9bbd17b36083e603401f39dd06f6a96cfda06a..ea5e39d181d8635626289c4f308448f2d07e55e5 100644 --- a/functions.lisp +++ b/functions.lisp @@ -82,7 +82,8 @@ the last." it is called with to FUNCTION." (declare (optimize (speed 3) (safety 1) (debug 1))) (lambda (&rest more) - (declare (dynamic-extent more)) + (declare (dynamic-extent more)) + ;; Using M-V-C we don't need to append the arguments. (multiple-value-call function (values-list arguments) (values-list more)))) (define-compiler-macro curry (function &rest arguments) @@ -102,7 +103,7 @@ with and ARGUMENTS to FUNCTION." (defmacro named-lambda (name lambda-list &body body) "Expands into a lambda-expression within whose BODY NAME denotes the -function corresponding function." +corresponding function." (let ((simplep (not (intersection lambda-list-keywords lambda-list)))) (if simplep ;; Required arguments only, no need for APPLY