A short add-padding (missing the `newline` parameter): ;; (ql:quickload "str") (defun add-padding (txt &key padding) (with-output-to-string (s)

A short add-padding (missing the `newline` parameter): ;; (ql:quickload "str") (defun add-padding (txt &key padding) (with-output-to-string (s) (loop for line in (str:lines txt) do (format s "~a~a~&" (str:repeat padding " ") line))))