Expose *truncated-print-length*, move truncation to core, cleanup

Organize the inputs (print-methods and recordclasses) into a single (let ...) rather than having it spread out.