anchor.diff:  				       :angle 180
   				       :shooter player))))
         (dolist (lazor lazors) (attach lazor *game*))
  -      (sdl-mixer:play-sample (pew player))
         (setf (frames-since-last-shot player) 0))))
  
positive.code:   (setf (player level) nil))
  (defmethod attach ((player player) (game game))
    (attach player (current-level game)))
  (defmethod detath ((player player) (game game))
    (detach player (current-level game)))
  
  (defmethod update ((player player))
  
negative.code:   ((x :initform (/ *screen-width* 2))
     (y :initform (- *screen-height* 80))
     (image :initform (load-image "sweet-ship"))
     (score :initform 0 :accessor score)
     (hitbox-x-offset :initform 24)
     (hitbox-y-offset :initform 35)
  