Wall slip in the capillary flow of molten polymers subject to viscous heating