From 00fc386b5fcf67b9dacfe21cda01d595968a090a Mon Sep 17 00:00:00 2001
From: Vito Van <root@vitovan.com>
Date: Mon, 26 Jun 2023 10:25:37 +0800
Subject: [PATCH] fix wrong shortcut for `q`

---
 canvas.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/canvas.lisp b/canvas.lisp
index 2a5ddc0..f640573 100644
--- a/canvas.lisp
+++ b/canvas.lisp
@@ -226,7 +226,7 @@
       (if (window-is-on-top) sdl2-ffi:+false+ sdl2-ffi:+true+)))
     ((c:keq key :SCANCODE-R)
      (reset-all))
-    ((c:keq key :SCANCODE-SPACE :SCANCODE-Q)
+    ((c:keq key :SCANCODE-SPACE)
      (progn (setf *pause* (not *pause*)) (when *pause* (stop-timer))))
     ((c:keq key :SCANCODE-SLASH)
      (setf *show-help* t))