A Shaped Pupil Lyot Coronagraph for WFIRST-AFTA