Commit b8e32bcd authored by Nikodemus Siivola's avatar Nikodemus Siivola

Documentation and comment tweaks

parent 5ce466a9
......@@ -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:
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment