(format t "NOTICE ME: ~s~%"
          (set-difference (mapcar #'car pattern)
                          (mapcar #'car target)))

        *features* (remove :fw.dump *features*)

        *features* (remove :fw.main (remove :fw.dump *features*))

    (format *error-output* "NOTICE ME: output to ~s" result)

(defsystem :tools/json-formatter
  :description "json formatter"
  :author "Ed L <el-l@elangley.org>"
  :license "MIT"
  :class fw-tool-system
  :build-pathname "json-formatter"
  :entry-point "fwoar.json-formatter:main"
  :depends-on (#:alexandria
               #:serapeum
               #:com.inuoe.jzon
               #:net.didierverna.clon)
  :serial t
  :components ((:file "json-formatter")))

                              (format *error-output* "NOTICE ME: output to ~s" result)

#+fw.dump
(eval-when (:compile-toplevel :load-toplevel :execute)
  (load "~/quicklisp/setup.lisp"))
#+fw.dump
(ql:quickload '(:net.didierverna.clon :alexandria :serapeum :com.inuoe.jzon))

  (:export ))

  (:export :main :prepare-dump :dump))

#+fw.dump

      (flag :short-name "h" :long-name "help")))

    (flag :short-name "h" :long-name "help")))

#+fw.dump

#+fw.dump
(defun dump ()

(defun prepare-dump ()

        *features* (remove :fw.dump *features*))

        *features* (remove :fw.main (remove :fw.dump *features*))))
(defun dump ()
  (prepare-dump)

        *features* (remove :fw.dump *features*)))

        *features* (remove :fw.main (remove :fw.dump *features*))))

        ];
    };
    mkJsonFormatter = mkTool {
      name = "json-formatter";
      lispDeps = ps:
        with ps; [
          net_dot_didierverna_dot_clon
          net_dot_didierverna_dot_clon_dot_termio
          alexandria
          serapeum
          com_dot_inuoe_dot_jzon

      json-formatter = mkJsonFormatter system;

  echo -n "NOTICE ME: "
  pwd
  ls -dl "$PWD"

installPhase() {

installPhase() (
  set -x

}

)