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 49e4e96..711dc78 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 9f2e2d1..ce8f70b 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")