clojure - 奇怪的 super war 行为

Question

我正在为我的测试 web 应用程序执行 lein uberwar ，但收到以下奇怪的错误:

Exception in thread "main" java.lang.ClassCastException: java.lang.Boolean cannot be cast to clojure.lang.Symbol (servlet.clj:1)

servlet.clj 包含以下内容:

(ns test.servlet
  (:use ring.util.servlet)
  (:require test.routes :as routes)
  (:gen-class :extends javax.servlet.http.HttpServlet))

(defservice routes/app-routes)

test.routes 文件包含:

(ns test.routes
  (:use compojure.core)
  (:require [compojure.route :as route]
            [compojure.handler :as handler]))


(defroutes app-routes
  (GET "/" [] {:status 200
               :headers {"Content-Type" "text/html"}
               :body "<h1>Hello World</h1>"})
  (route/files "/" {:root "static"})
  (ANY "/:s" [s] (str "page-not-found" s)

;; For lein ring-server
;(def test-handler
;  (handler/site app-routes))

奇怪的是，如果我替换该行

(:require test.routes :as routes)

与:

(:require test.routes)

然后打电话

 (defservice test.routes/app-routes)

在 servlet.clj 中，WAR 编译良好，并且在 tomcat 中完美运行。我的代码中是否存在一些我看不到的错误？为什么我需要调用 test.routes/... 而不仅仅是 paths/...？

Answer 1

您需要将其放入向量中:

(:require [test.routes :as routes])