-#|(defun load-png-image (filename)
- (sdl-image:load-image (gethash filename *file-table*) :image-type :PNG :alpha 1 )) ;; :alpha t))
-
-(defun hashed-load-image (filename)
- "loads an image by its filename, if it wasnt loaded yet. returns a
-reference, if the current filename already exists."
- (let ((ret (gethash filename *graphics-table* nil)))
- (cond
- (ret ret)
- (T
- (setf ret (load-png-image filename))
- (setf (gethash filename *graphics-table*) ret)
- ret))))|#
-