From 7acea135015024506687fb63bfe4681dfe91ee5b Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 9 Jul 2022 17:02:00 -0500 Subject: [refactor] use trival-garbage finalizers to clean up gl resources --- src/application.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/application.lisp') diff --git a/src/application.lisp b/src/application.lisp index c4ad9b0..e9a41dc 100644 --- a/src/application.lisp +++ b/src/application.lisp @@ -91,7 +91,8 @@ (let ((listener (listener app))) (dolist (table +listener-table-slot-names+) (setf (slot-value listener table) (make-hash-table :synchronized t)))) - (call-next-method)) + (call-next-method) + (trivial-garbage:gc :full t)) (defun run-perframe (app) "Runs all of the handlers objects listening for perframe events, if -- cgit v1.2.3