+ (defun expire-resource (key &optional (now (SDL_GetTicks)))
+ (let ((time (get-rtime key)))
+ (cond ((and (numberp time) (> (- now time) expiration-time)) (free-resource key)))))
+
+ (defun expire-resources ()
+ (maphash (lambda (key res) (expire-resource key)) resources-table))
+