- (sdl:draw-rectangle-* (+ (x obj) *current-translation-x*)
- (+ (y obj) *current-translation-y*)
- (width obj) (height obj)
- :color sdl:*BLACK*))
+ ;; (sdl:draw-rectangle-* (+ (x obj) *current-translation-x*)
+ ;; (+ (y obj) *current-translation-y*)
+ ;; (width obj) (height obj)
+ ;; :color sdl:*BLACK*)
+)