 
 #_(set! *warn-on-reflection* true)
 
-#_(defn spy*
+(defn spy*
   [msg expr]
   `(let [expr# ~expr]
      (do
        (println (str "::::spying[" ~msg "]:::: " '~expr ":::: '" expr# "'"))
        expr#)))
 
-#_(defmacro spy 
+(defmacro spy 
   ([expr] (spy* "" expr))
   ([msg expr] (spy* msg expr)))
 

                        (update-in t [:offset] + (max to-add (- line-start offset)))))))))
    t))

(defn test-command [title-prefix command]
  (testing (str title-prefix " " (second command) " (\"" (first command) "\")")
    (doseq [[input expected] (get command 2)]

                 "|",
                "(foo \"|bar baz\"\n     quux)"
                 "(foo \"|\"\n     quux)"}]]
    
    ["Depth-Changing Commands"
     ["M-("       :paredit-wrap-round
      {"(foo |bar baz)" "(foo (|bar) baz)",
       ";hel|lo" ";hel|lo",
       "a |\"hi\"" "a (|\"hi\")"}]
     ;["M-s"       :paredit-splice-sexp
     ;           {"(foo (bar| baz) quux)"
     ;            "(foo bar| baz quux)"}]
     ;[("M-<up>" "ESC <up>")
     ;           paredit-splice-sexp-killing-backward
     ;           ("(foo (let ((x 5)) |(sqrt n)) bar)"
     ;            "(foo (sqrt n) bar)")]
     ;(("M-<down>" "ESC <down>")
     ;           paredit-splice-sexp-killing-forward
     ;           ("(a (b c| d e) f)"
     ;            "(a b c f)"))
     ;("M-r"       paredit-raise-sexp
     ;           ("(dynamic-wind in (lambda () |body) out)"
     ;            "(dynamic-wind in |body out)"
     ;            "|body"))
     ]
    
    
    ["Miscellaneous"             
      ["Tab"     :paredit-indent-line
                {"[a\n|b]"  "[a\n |b]"
