A version of loop that iterates at most *print-length* times. This is designed for use in pretty-printer dispatch functions.