2 files changed, 2 insertions(+), 4 deletions(-)

M fairy.lisp
M tiled.lisp

@@ 113,9 113,7 @@
       (cdr (assoc key (children el)))))
 
 (defmethod (setf get-child) (value (el layer) key &key test)
-  (setf (if test
-            (cdr (assoc key (children el) :test test))
-            (cdr (assoc key (children el))))
+  (setf (cdr (assoc key (children el) :test (if test test 'eq)))
         value))
 
 (defmethod update ((el layer) dt)

@@ 28,7 28,7 @@
 (cl:in-package :fairy/tiled)
 
 (defun resource-key (path)
-  (alexandria:make-keyword (namestring path)))
+  (alexandria:make-keyword (file-namestring path)))
 
 (defclass tile (fairy:element)
   ((path :initarg :path