- (sdl:with-init (sdl:sdl-init-video sdl:sdl-init-audio)
- (sdl:window +screen-width+ +screen-height+
- :title-caption "Uxul World"
- :icon-caption "Uxul World"
- :flags (logior sdl:sdl-hw-accel)
- #| :flags (logior sdl:sdl-hw-surface sdl:sdl-fullscreen )|# )
- (let ((*graphics-table*
- #-ecl (trivial-garbage:make-weak-hash-table
- :weakness :value
- :test #'equal)
- #+ecl (make-hash-table :test #'equal)
- )
- (my-anim (apply #'make-animation frameskip images))
- )
+;; (sdl:with-init (sdl:sdl-init-video sdl:sdl-init-audio)
+;; (sdl:window +screen-width+ +screen-height+
+;; :title-caption "Uxul World"
+;; :icon-caption "Uxul World"
+;; :flags (logior sdl:sdl-hw-accel)
+;; #| :flags (logior sdl:sdl-hw-surface sdl:sdl-fullscreen )|# )
+;; (let ((*graphics-table*
+;; #-ecl (trivial-garbage:make-weak-hash-table
+;; :weakness :value
+;; :test #'equal)
+;; #+ecl (make-hash-table :test #'equal)
+;; )
+;; (my-anim (apply #'make-animation frameskip images))
+;; )