Clojure魔改definline支持重载

definline_plus.clj

(defmacro definline+
  [name & decl]
  (let [body (map (fn [[args# expr#]]
                    (let [f# (apply (eval (list `fn (list args# expr#))) args#)]
                      `(~args# ~f#))) decl)
        alt-body (map (fn [[args# expr#]]
                        `(~args# ~expr#)) decl)]
    `(do
       (defn ~name ~@body)
       (alter-meta! (var ~name) assoc :inline (fn ~name ~@alt-body))
       (var ~name))))
      

;; 使用方法
(definline+ foo ([x] x)
([x y] (+ x y)))