(defn
pos-int?
"Return true if x satisfies int? and is positive."
[x]
(cond
(integer? x)
(pos? x)
(instance? goog.math.Integer x)
(and (not (.isNegative x)) (not (.isZero x)))
(instance? goog.math.Long x)
(and (not (.isNegative x)) (not (.isZero x)))
:else
false))