# Pastebin MHJNDuJr
      (let ((new-player (make-instance 'trajectory-player :%view widget)))
        (unless new-player
          (warn "Set the Trajectoryplayer of widget ~a to ~a" widget new-player))
        (setf (player widget) new-player))