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