Extend Inst to org.joda.time.ReadableInstant on Clojure 1.9 (#248) (#249

)

src/clj_time/core.clj

@@ -781,3 +781,13 @@
   				(concat (take-while (partial not= dt-fn) dt-fns) [dt-fn])
   				(repeat [dt])))
       tz))))
+
+(defmacro ^:private when-available [sym & body]
+  (when (resolve sym)
+    `(do ~@body)))
+
+(when-available Inst
+  (extend-protocol Inst
+    org.joda.time.ReadableInstant
+    (inst-ms* [inst]
+      (.getMillis inst))))

test_clj_1.9/clj_time/inst_test.clj

@@ -0,0 +1,10 @@
+(ns clj-time.inst-test
+  (:refer-clojure :exclude [extend second])
+  (:require [clojure.test :refer :all]
+            [clj-time.core :refer :all])
+  (:import org.joda.time.DateTime))
+
+(deftest test-inst
+  (let [^DateTime n (now)]
+    (is (inst? n))
+    (is (= (inst-ms n) (.getMillis n)))))