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