-(defun load-texture (filename &key (min-filter GL_LINEAR) (mag-filter GL_LINEAR) static)
- (let ((key (make-resource-texture :filename filename :min-filter min-filter :mag-filter mag-filter)))
- (cond ((get-resource key) key)
- (t (true-load-texture filename min-filter mag-filter static)))))
-
-(defun true-load-texture (filename min-filter mag-filter static)
- (let ((key (make-resource-texture :filename filename :min-filter min-filter :mag-filter mag-filter)))
- (progn-textures
- (multiple-value-bind
- (image real-w real-h) (load-image-for-texture filename)
- (cond (image
- (let ((width (surface-w image)) (height (surface-h image))
- (byteorder (if (= (SDL_ByteOrder) SDL_LIL_ENDIAN)
+(define* (load-texture filename #:key (min-filter GL_LINEAR) (mag-filter GL_LINEAR))
+ (progn-textures
+ (receive
+ (image real-w real-h) (load-image-for-texture filename)
+ (cond (image
+ (let ((width (get-surface-width image)) (height (get-surface-height image))
+ (byteorder (if (= (SDL_ByteOrder) SDL_LIL_ENDIAN)