Some style and performance changes.

- Using (map nil ...) instead of (mapcar) when result of map is not
  important
- Using (lambda) instead of #'(lambda)
- Using (push object scene-objects) instead of the verbose (setf
  scene-objects (concatenate 'list (list object) scene-objects))