Removes all non-important whitespace from a JSON file.

gistfile1.lisp

(require 'st-json)

(defun squish-json-file (filename)
  (let ((parsed-json (with-open-file (stream filename)
                       (st-json:read-json stream))))
    (with-open-file (stream (concatenate 'string filename ".squished")
                            :direction :output
                            :if-exists :supersede)
      (st-json:write-json parsed-json stream))))