Eliminate some reflection via adding type hints, and correcting one

This commit is contained in:
Andy Fingerhut 2013-04-13 16:18:22 -07:00
parent d5b0e2c8be
commit 0bd3ef12ab

View file

@ -26,7 +26,7 @@
(defrecord ClojureReaderBasedMongoDBSessionStore [^String collection-name]) (defrecord ClojureReaderBasedMongoDBSessionStore [^String collection-name])
(defmethod print-dup java.util.Date (defmethod print-dup java.util.Date
[^java.util.Date d ^java.io.OutputStream out] [^java.util.Date d ^java.io.Writer out]
(.write out (.write out
(str "#=" (str "#="
`(java.util.Date. ~(.getYear d) `(java.util.Date. ~(.getYear d)
@ -37,7 +37,7 @@
~(.getSeconds d))))) ~(.getSeconds d)))))
(defmethod print-dup org.bson.types.ObjectId (defmethod print-dup org.bson.types.ObjectId
[oid out] [oid ^java.io.Writer out]
(.write out (.write out
(str "#=" (str "#="
`(org.bson.types.ObjectId. ~(str oid))))) `(org.bson.types.ObjectId. ~(str oid)))))