(ql:quickload "sdl2")
(ql:quickload "sdl2-image")

(defun test ()
  (dotimes (_ 10)
    (let ((sdl-surf (sdl2-image:load-image #P"/home/Sora/Programming/2d-lisp-engine/test-player.png")))
      (sdl2:free-surface sdl-surf)
      (sb-ext:gc))))