add-text-padding.lisp

(defun add-text-padding (str &key padding newline)
  "Add padding to text STR. Every line except for the first one, will be                                                                
prefixed with PADDING spaces. If NEWLINE is non-NIL, newline character will                                                             
be prepended to the text making it start on the next line with padding                                                                  
applied to every single line."
  (with-output-to-string (out-stream)
    (with-input-from-string (in-stream str)
      (loop initially (format out-stream "~A~:[~;~%~]" (read-line in-stream nil nil) newline)
	    for line = (read-line in-stream nil nil)
            while line
            do (format out-stream "~v@{ ~}~A~:[~;~%~]" padding line newline)))))