Разовые экземпляры, созданные с помощью reify, приводят к возникновению NPE.

Question

Я пытаюсь написать слой Clojure вокруг Java API, который выглядит следующим образом:

public class Executor {

  public interface ExecutorJob<Result> {
    public Result execute () throws Exception;
  }

  public static <R> R executeAsUser(RunAsWork<R> executorJob, String uid) {
    try {
      //...
      R result = executorJob.execute();
      return result;
    }
    finally {
      //...
    }
  }

}

Моя цель - создать API Clojure, который позволяет выполнять fn в качестве тела execute метода ExecutorJob. Вот что я придумал:

(defmacro execute-as
  "Runs the form f while impersonating the given user"
  [user f]
  `(let [work# (reify Executor$ExecutorJob
                     (~'execute [~'this]
                               (~f)))]
     (Executor/executeAsUser work# ~user)))

К сожалению, учитывая этот вызов:

user> (macroexpand '(run-as "admin" (.println System/out "test")))
(let* [work__2928__auto__ (clojure.core/reify package.to.Executor$ExecutorJob (execute [this] ((.println System/out "test"))))] (package.to.Executor/executeAsUser work__2928__auto__ "admin"))

вызывает NPE:

user> (execute-as "admin" (.println System/out "test"))

No message.
  [Thrown class java.lang.NullPointerException]

Restarts:
 0: [QUIT] Quit to the SLIME top level

Backtrace:
  0: user$eval2936$reify__2937.doWork(NO_SOURCE_FILE:1)
  1: package.to.Executor.executeAsUser(Executor.java:508)
  2: user$eval2936.invoke(NO_SOURCE_FILE:1)
  3: clojure.lang.Compiler.eval(Compiler.java:5424)
  4: clojure.lang.Compiler.eval(Compiler.java:5391)
  5: clojure.core$eval.invoke(core.clj:2382)
 --more--

Я пытался поместить некоторые значимые вызовы Java во вторые параметры execute-as, которые, как я вижу, выполняются с отладчиком очень хорошо.

Что не так с этим макросом?

Answer 1

Неважно, я понял: я неправильно использовал параметр макроса и пытался на самом деле вызвать результат выполнения формы f. И это дало ноль, отсюда и NPE.

Исправленная версия:

(defmacro execute-as
  "Runs the form f while impersonating the given user"
  [user f]
  `(let [work# (reify Executor$ExecutorJob
                     (~'execute [~'this]
                               ~f))]
     (Executor/executeAsUser work# ~user)))