From 7390c49a8f730405c048b4e79a6275322987315f Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Thu, 30 Jun 2022 06:22:02 -0500
Subject: [modify] moved *application* into wheelwork; should-listen-for-p

---
 src/wheelwork.lisp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/wheelwork.lisp')

diff --git a/src/wheelwork.lisp b/src/wheelwork.lisp
index 2932520..b6da6b9 100644
--- a/src/wheelwork.lisp
+++ b/src/wheelwork.lisp
@@ -2,6 +2,9 @@
 
 (in-package #:wheelwork)
 
+(defvar *application* nil
+  "current application")
+
 (defun start (app &key (x :centered) (y :centered))
   (sdl2:with-init (:everything)
     (sdl2:gl-set-attr :context-major-version 3)
-- 
cgit v1.2.3