   [^BufferedReader reader & [key-fn array-coerce-fn]]
   (when reader
     (parsed-seq* (.createJsonParser ^JsonFactory
-                                    (or *json-factory* json-factory) reader)
+                                    (or factory/*json-factory*
+                                        factory/json-factory) reader)
                  key-fn array-coerce-fn)))
 
 (defn parsed-smile-seq

  ([obj opt-map]
     (let [sw (StringWriter.)
           generator (.createJsonGenerator
                      ^JsonFactory (or *json-factory* json-factory) sw)]
       (when (:pretty opt-map)
         (.useDefaultPrettyPrinter generator))
       (when (:escape-non-ascii opt-map)
         (.enable generator JsonGenerator$Feature/ESCAPE_NON_ASCII))
       (generate generator obj
                 (or (:date-format opt-map) default-date-format)
                 (:ex opt-map))
       (.flush generator)
       (.toString sw))))


  If laziness is needed, see parsed-seq."
  [^BufferedReader rdr & [key-fn array-coerce-fn]]
  (when rdr
    (parse/parse
     (.createJsonParser ^JsonFactory (or factory/*json-factory*
                                         factory/json-factory) rdr)
     key-fn nil array-coerce-fn)))

(defn parse-smile
