defnil.clj

(defmacro defn-nil
  [fname args body]
  `(defn ~fname ~args (if (nil? ~(first args)) nil ~body)))

(defn-nil f
  [x y] 
    (+ x y))

(f 1 2) ;; => 3
(f nil 2) ;; => nil