clojure - 怪异的莱伯·乌瓦尔行为

我正在为测试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 / ...而不是路由/ ...？

最佳答案

您需要将其放入向量中：

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