next line.  (See PPRINT-INDENT.)"

   (declare (type (member :linear :miser :fill :mandatory) kind)

           (type (or stream (member t nil)) stream)

           (ext:check-arguments-type)

           #.+ecl-safe-declarations+)

   (let ((stream (case stream

   (declare (type (member :block :current) relative-to)

           (type real n)

           (type (or stream (member t nil)) stream)

           (ext:check-arguments-type)

           #.+ecl-safe-declarations+)

   (let ((stream (case stream

   (declare (type (member :line :section :line-relative :section-relative) kind)

           (type unsigned-byte colnum colinc)

           (type (or stream (member t nil)) stream)

           (ext:check-arguments-type)

           #.+ecl-safe-declarations+)

   (let ((stream (case stream