gistfile1.clj

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