%%LanguageLevel defines
/_GSsetalpha { pop } bind def

/setalpha where
    {pop /GSsetalpha /setalpha load def}
    {/GSsetalpha /_GSsetalpha load def}
  ifelse