From d2d4922bd38be1150f9ef9bdc72057e06d45aacd Mon Sep 17 00:00:00 2001
From: Gleefre <varedif.a.s@gmail.com>
Date: Tue, 17 Oct 2023 16:06:34 +0200
Subject: [PATCH] Add IGNORABLE declaration for the switch body

---
 alexandria-1/control-flow.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/alexandria-1/control-flow.lisp b/alexandria-1/control-flow.lisp
index 98085c4..7da82ed 100644
--- a/alexandria-1/control-flow.lisp
+++ b/alexandria-1/control-flow.lisp
@@ -17,6 +17,7 @@ like #'eq and 'eq."
       (setf default `(,@default "No keys match in SWITCH. Testing against ~S with ~S."
                       ,value ',test)))
     `(let ((,value (,key ,object)))
+      (declare (ignorable ,value))
       (cond ,@(mapcar (lambda (clause)
                         (if (member (first clause) '(t otherwise))
                             (progn
-- 
GitLab