diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-09 17:02:00 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-09 17:02:00 -0500 |
| commit | 7acea135015024506687fb63bfe4681dfe91ee5b (patch) | |
| tree | 4a9fdb35ab229cec6607bc3b0fcfdc18f4d392da /src/application.lisp | |
| parent | 8c86602ed04bf3731b39b6170176a7ebe4b89e3b (diff) | |
[refactor] use trival-garbage finalizers to clean up gl resources
Diffstat (limited to 'src/application.lisp')
| -rw-r--r-- | src/application.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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 |