Clojure/Compojure/Hiccup空指针异常

Question

我手上的堆栈跟踪没有任何关于我的代码的参考。我不确定该如何开始查找可能出错的地方：

LazySeq.java:47 clojure.lang.LazySeq.sval
LazySeq.java:56 clojure.lang.LazySeq.seq
Cons.java:39    clojure.lang.Cons.next
RT.java:560 clojure.lang.RT.next
core.clj:61 clojure.core/next
core.clj:461    clojure.core/str$fn[fn]
core.clj:463    clojure.core/str
RestFn.java:140 clojure.lang.RestFn.applyTo
core.clj:540    clojure.core/apply
core.clj:90 hiccup.core/eval460$fn[fn]
MultiFn.java:163    clojure.lang.MultiFn.invoke
Var.java:365    clojure.lang.Var.invoke
stacktrace.clj:26   ring.middleware.stacktrace/html-ex-view
stacktrace.clj:40   ring.middleware.stacktrace/html-ex-response
stacktrace.clj:51   ring.middleware.stacktrace/ex-response
stacktrace.clj:61   ring.middleware.stacktrace/wrap-stacktrace$fn[fn]
reload_modified.clj:15  ring.middleware.reload-modified/wrap-reload-modified$fn[fn]
stacktrace.clj:59   ring.middleware.stacktrace/wrap-stacktrace$fn[fn]
jetty.clj:17    ring.adapter.jetty/proxy-handler$fn[fn]
(Unknown Source)        ring.adapter.jetty.proxy$org.mortbay.jetty.handler.AbstractHandler$0.handle
HandlerWrapper.java:152 org.mortbay.jetty.handler.HandlerWrapper.handle
Server.java:324 org.mortbay.jetty.Server.handle
HttpConnection.java:534 org.mortbay.jetty.HttpConnection.handleRequest
HttpConnection.java:879 org.mortbay.jetty.HttpConnection$RequestHandler.content
HttpParser.java:741 org.mortbay.jetty.HttpParser.parseNext
HttpParser.java:213 org.mortbay.jetty.HttpParser.parseAvailable
HttpConnection.java:403 org.mortbay.jetty.HttpConnection.handle
SocketConnector.java:228    org.mortbay.jetty.bio.SocketConnector$Connection.run
QueuedThreadPool.java:522   org.mortbay.thread.QueuedThreadPool$PoolThread.run

这发生在表单提交后——控制器将记录写入数据库并重定向到页面。

(defn create-submit [& m]
  (let [p (model/create m)]
      (response/redirect (str "/post/" (:id p)))))

我在堆栈跟踪中看到了问题，但这里没有页面渲染。而且浏览器仍然指向原始页面，而不是重定向页面，所以我认为重定向从未发生。

有什么想法吗？

编辑：

通过一些println的调试，我已经追踪到了model/create调用，它正在调用clojureql来conj!新记录。第一个println显示在控制台窗口中，而第二个则没有。

(defn create [m] 
    (let [p (new-post-from m)] 
        (println "about to add p to table " (:id p)) 
        (cql/conj! (cql/table :posts) p)
        (println "after adding p to table")
    p)) 

- Kevin

Answer 1

我的路由定义看起来像这样：

(POST "/post/create/submit" (params :params) (post/create-submit))

在create-submit调用中，我需要传递参数。因为create-submit参数的定义是[& m]，所以我猜测它没有抱怨参数数量不正确。

更正： 同时，model/create方法会抛出异常，因为我没有添加对db.clj文件的require，这是我的cql/open-global调用所在的位置。

堆栈跟踪完全不明显 - 我期望它指向cql/conj!下的某个位置，尝试建立连接。相反，它指向了hiccup，这根本没有任何意义。

- Kevin