    :current-server-time (.getCurrentServerPointInTime session)
    :content-source (.getContentSource session)
    :xaresource (.getXAResource session)
-   :user-object (.getUserObject session) 
+   :user-object (.getUserObject session)
    :user-credentials (user-credentials->map (.getUserCredentials session))
    :closed? (.isClosed session) ;; TODO maybe create (defn closed? [session] ...) ? Except it wouldn't be specific to Session in this ns, and ResultSequence also has isClosed, so it's ambiguous.
    :cached-transaction-timeout (.getCachedTxnTimeout session)

  [result-sequence & [type-mapping]]
  ;; TODO throw informative exception if type not found in types
  (map (fn [item] (((merge xml-type-str->conv-fn
                          (when (map? type-mapping)
                            type-mapping))
                   (.toString (.getValueType item))) item))
       (.toArray result-sequence)))



   :request-time-limit (.getRequestTimeLimit req-opts)
   :result-buffer-size (.getResultBufferSize req-opts)
   :timeout-millis (.getTimeoutMillis req-opts)
   :timezone (.getTimeZone req-opts)})


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
