gistfile1.clj

(defn test-create-label [request]
  (let [spring-ctx 
	 (WebApplicationContextUtils/getWebApplicationContext (request :servlet-context))
	label-dao (.getBean spring-ctx "labelDao")
	new-label (Label.)]
    (doto new-label
      (.setName "Label 1")
      (.setDescription "testing"))
    (.create label-dao new-label)
    (.read label-dao (.getId new-label))))