Plaster
New
List
Login
common-lisp
default
anonymous
2021.05.13 06:01:07
(defun re-indent (string &optional n) (let ((code (ignore-errors (read-from-string string)))) (if code (with-output-to-string (str) (let ((*print-case* :downcase)) (if n (pprint-logical-block (str code :prefix (format nil "~v,,,' a" n #\space)) (write code :stream str)) (pprint code str)))) string)))
Raw
Annotate
Repaste
Edit