From 4218392f90e86cdfa1858e090bf531e95a4e8f0d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 9 Apr 2021 23:17:22 +0100
Subject: cl-case with an eval-when-compile

---
 elisp/geiser-debug.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index a064589..cb557bf 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -12,6 +12,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl-macs))
+
 (require 'geiser-edit)
 (require 'geiser-autodoc)
 (require 'geiser-impl)
@@ -178,7 +180,7 @@ buffer.")
         (goto-char (point-max))
         (insert "\nExpression evaluated was:\n\n")
         (geiser-debug--display-error impl module nil what))
-      (case geiser-debug-treat-ansi-colors
+      (cl-case geiser-debug-treat-ansi-colors
         (colors (ansi-color-apply-on-region (point-min) (point)))
         (remove (ansi-color-filter-region (point-min) (point))))
       (goto-char (point-min)))
-- 
cgit v1.2.3