Pretty-printing function for config-like plists

pprint-plist.lisp

(defun pprint-plist (*standard-output* list)
  "Pretty-prints a plist with newlines after each key-value pair.
This will break if not called at toplevel, but works well enough for my use case."
  (pprint-logical-block (*standard-output* list :prefix "(" :suffix ")")
    (loop for cell on list by #'cddr
          do (write (first cell))
             (write-char #\Space)
             (write (second cell))
             (when (cddr cell)
               (terpri *standard-output*)
               (write-char #\Space)))
    (terpri *standard-output*)))

#|
Example of printed output:

(:DB-NAME "gateway"
 :DB-USER "secret"
 :DB-PASS "supersecret"
 :DB-HOST "secret.ksi.ii.uj.edu.pl"
 :DB-PORT 54321
 :DB-USE-SSL :NO
 :TEST-DB-NAME "gateway-test"
 :TEST-DB-USER "secret"
 :TEST-DB-PASS "supersecret"
 :TEST-DB-HOST "secret.ksi.ii.uj.edu.pl"
 :TEST-DB-PORT 54321
 :TEST-DB-USE-SSL :NO
)
|#