))
(draw-background *current-translation-x* *current-translation-y*)
(dolist (image (get-objects obj 'uxul-world::game-object))
))
(draw-background *current-translation-x* *current-translation-y*)
(dolist (image (get-objects obj 'uxul-world::game-object))