X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=graphics%2Fview.lisp;fp=graphics%2Fview.lisp;h=5f10a2162ed085a8b7456552820863825baf0106;hb=29b3ae2f20906731db39c132cf88c848486fe26c;hp=15533511bb21afd6475a28ef757a0a9d2f0ab343;hpb=f97dac6c6b72e4fbab92b1daa2a750c6a168f429;p=rulp%2Frulp.git

diff --git a/graphics/view.lisp b/graphics/view.lisp
index 1553351..5f10a21 100644
--- 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)
+    ))