dropped the explicit dependency of trivial-garbage
authorchristoph <christoph@christoph-PC.lan>
Mon, 3 Aug 2009 23:47:07 +0000 (01:47 +0200)
committerchristoph <christoph@christoph-PC.lan>
Mon, 3 Aug 2009 23:47:07 +0000 (01:47 +0200)
it doesnt really make sense anymore.

game.lisp
uxul-world.asd

index 49e4e968321325f1aea332b6c58a62b8490cf86e..711dc787088f8cb4dc3182a6f65a490dfc51bae5 100755 (executable)
--- a/game.lisp
+++ b/game.lisp
@@ -16,12 +16,7 @@ drawn (for very slow computers)"
                   ;: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))
index 9f2e2d12f4605105f05e94ac6c0949564ac169b9..ce8f70b80e8607fc15500cff45b6e616f71c8bbb 100755 (executable)
@@ -12,8 +12,7 @@
                                 ;#:asdf
                                 #:ltk
                                 #:lisp-magick
-                                 #:lispbuilder-sdl-image
-                                 #:trivial-garbage)
+                                 #:lispbuilder-sdl-image)
   :components ((:file "package")
                (:file "macros")
                (:file "constants")