Make it easier to run and connect with the repl.

TatriX · Nov 10, 2020 · 04f602c · 04f602c
1 parent 52f8924
commit 04f602c
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/sdl2-tutorial.lisp b/sdl2-tutorial.lisp
@@ -0,0 +1,11 @@
+(defpackage :sdl2-tutorial
+  (:use cl bt)
+  (:export :main :create-swank-server))
+
+(in-package :sdl2-tutorial)
+
+(defun create-swank-server()
+  (bt:make-thread (lambda () (swank:create-server :port 4005 :dont-close t))))
+
+(defun main(fn)
+  (sdl2:make-this-thread-main fn))