From 2c87167d61f5e705353aa61bb008687c51a51b8b Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 17 Jul 2022 13:32:29 -0500
Subject: [add] path drawing

---
 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 8b1e534..41157e6 100644
--- a/src/wheelwork.lisp
+++ b/src/wheelwork.lisp
@@ -33,6 +33,9 @@
                  (shutdown app))
             (cleanup app)))))))
 
+(defun stop ()
+  (sdl2:push-event :quit))
+
 
 (defun refocus-on (target &optional (app *application*))
   "Sets focus of application to TARGET. This works whether or not
-- 
cgit v1.2.3