diff options
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 |