defn-lru.clj

(require '[clojure.core.memoize :as memo]) ; もちろんここは一度きり

(def func-a-lrufn (memo/lru (fn [some-params] (some-proc some-params))))
(defn func-a
  [some-params]
  (func-a-lrufn some-params))

(defmacro defn-lru
  [name [& params*] threshold-val & body] ;; <- ん？
  (let [private-fn (symbol (str name "-lrufn"))]
    `(do
       (def ~(with-meta private-fn {:private true})
         (memo/lru (fn [~@params*] ~@body) :lru/threshold ~threshold-val))
       (defn ~name [~@params*] (~private-fn ~@params*)))))