ACL checker after optimization

after-opt.clj

(defn self-is-active?
  [{{:keys [uid]} :params :as req}]
  (when-not (nil? uid)
    (let [user-id (u/->int uid)
          user (*get-user-by-id* user-id)]
      (when-not (nil? user)
        (not (:inactive user))))))

(defn self-belongs-to-team?
  [{{:keys [uid subdomain]} :params :as req}]
  (when-not (nil? uid)
    (let [user-id (u/->int uid)
          user (*get-user-by-id* user-id)
          team (*get-team-by-subdomain* subdomain)]
      (when-not (some nil? [user team])
        (= (:team_id user) (:id team))))))

(defn check-permission [checkers handler]
  (fn [req]
    (binding [*get-user-by-id*        (memoize users/get-user-by-id)
              *get-team-by-subdomain* (memoize teams/get-team-by-subdomain)]
      ; loop checkers
      )))