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