it doesnt really make sense anymore.
;:flags (logior sdl:sdl-hw-surface) #| sdl:sdl-fullscreen )|#
)
;;(if music (sdl-mixer:OPEN-AUDIO :frequency 44100))
- (let ((*graphics-table*
- #-ecl (trivial-garbage:make-weak-hash-table
- :weakness :value
- :test #'equal)
- #+ecl (make-hash-table :test #'equal)
- ))
+ (let ((*graphics-table* (make-hash-table :test #'equal)))
(if 15-fps
(setf (sdl:frame-rate) 15)
(setf (sdl:frame-rate) 30))
;#:asdf
#:ltk
#:lisp-magick
- #:lispbuilder-sdl-image
- #:trivial-garbage)
+ #:lispbuilder-sdl-image)
:components ((:file "package")
(:file "macros")
(:file "constants")