f.clj

(defmacro s-expr->semantic-whitespace "Convert a list of expressions in Clojure to semantic-whitespace form." ([l] (apply str (macroexpand-1 `(s-expr->semantic-whitespace ~l 1)))) ([l n] (map (fn [x] (if (list? x) (apply str "\n" (apply str (repeat n "\t")) (interpose " "(macroexpand-1 `(s-expr->semantic-whitespace ~x ~(+ n 1)))) ) x)) l)))

(print (macroexpand-1 '(s-expr->semantic-whitespace (defn 
                                          tabs->parens [c] (map add-parens (rest
                                                                            
                                                                             (split-on-newlines 
                                                                                  c)) (list-deltas (code->numtabs c)))))))

;=>
;defntabs->parens[c]
;	map add-parens 
;		rest 
;			split-on-newlines c 
;		list-deltas 
;			code->numtabs c