From 12989cc461f4cecd1b67b410a3d2b3a9f86c68a1 Mon Sep 17 00:00:00 2001 From: Philipp Marek <philipp@marek.priv.at> Date: Fri, 21 Aug 2020 18:43:41 +0200 Subject: [PATCH] =?UTF-8?q?Fix=20#18=20and=20a=20typo.=20Thanks,=20Micha?= =?UTF-8?q?=C5=82!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- alexandria-1/control-flow.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/alexandria-1/control-flow.lisp b/alexandria-1/control-flow.lisp index 3512d3c..98085c4 100644 --- a/alexandria-1/control-flow.lisp +++ b/alexandria-1/control-flow.lisp @@ -78,10 +78,11 @@ argument evaluates to a true value no further DATUMS are evaluated, and NIL is returned as both primary and secondary value. If exactly one argument evaluates to true, its value is returned as the primary value after all the arguments have been evaluated, and T is returned as the secondary value. If no -arguments evaluate to true NIL is retuned as primary, and T as secondary +arguments evaluate to true NIL is returned as primary, and T as secondary value." (with-gensyms (xor tmp true) `(let (,tmp ,true) + (declare (ignorable ,tmp)) (block ,xor ,@(mapcar (lambda (datum) `(if (setf ,tmp ,datum) -- GitLab