bugfix: clean the screen when the program closes

[rulp/rulp.git] / graphics / view.lisp

diff --git a/graphics/view.lisp b/graphics/view.lisp
index 1553351..5f10a21 100644 (file)
--- a/graphics/view.lisp
+++ b/graphics/view.lisp
@@ -235,5 +235,10 @@ DEBUG-INFO can be used to display the content on screen for test and debug purpo
                    (setf *changep* t)
                    (setf *framerule* 20))))
         (setf *changep* t)              ; useful in the repl where parameters are not reset
-        )))
-  )
+        ))
+    ;; sdl2 kills all textures when the session ends. on normal execution this
+    ;; is not a problem but on emacs because the editor will not delete its
+    ;; variables. Therefore the flyweight would be filled with screens with no
+    ;; textures that will fail the second execution.
+    (rulp.layers:empty-screen-list)
+    ))