From b8e32bcd117bbf0c04a81799f459d74b3e926fd9 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola <nikodemus@random-state.net> Date: Sun, 1 Jul 2007 15:13:16 +0300 Subject: [PATCH] Documentation and comment tweaks --- binding.lisp | 7 +++---- functions.lisp | 5 +++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/binding.lisp b/binding.lisp index 8275c49..6a4cc05 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 9e9bbd1..ea5e39d 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 -- GitLab