X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=on-collision.lisp;fp=on-collision.lisp;h=68e284ef122bc2197961435231f6f2ebc3477cee;hp=8fbaf2a2ced3128b9deaea024e2fa11b090ca82e;hb=ab302d9ac8adefaf2bfe630e29c0847b0d372e16;hpb=741faf5a2e1b4a133807530778e507d674cc02b1

diff --git a/on-collision.lisp b/on-collision.lisp
index 8fbaf2a..68e284e 100755
--- a/on-collision.lisp
+++ b/on-collision.lisp
@@ -28,8 +28,7 @@
     ((moving-rectangle player)
      (standing-rectangle door)
      (collision collision))
-
-  (cond ((find (dungeon standing-rectangle) (keys moving-rectangle))
+  (cond ((find-if #'(lambda (x) (string= x (dungeon standing-rectangle))) (keys moving-rectangle))
 	 (setf (keys moving-rectangle) (delete (dungeon standing-rectangle) (keys moving-rectangle) :count 1))
 	 (setf (visible standing-rectangle) nil)
 	 (setf (active standing-rectangle) nil)