Skip to content
Snippets Groups Projects
Commit d2d4922b authored by Alexander Fedorov's avatar Alexander Fedorov
Browse files

Add IGNORABLE declaration for the switch body

parent e5ad35f0
No related branches found
No related tags found
No related merge requests found
Pipeline #9302 failed
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment