@@ -755,7 +755,8 @@
 (iterate (core/fn [[p b]]
 (if (core/== 2147483648 b)
 [(core/inc p) 1]
-[p (core/bit-shift-left b 1)]))
+[p #?(:clj (core/bit-shift-left b 1)
+:cljs (core/* 2 b))]))
 [0 1])))
 
 (def fast-path-protocol-partitions-count

@@ -1899,6 +1899,9 @@
 (defrecord C [a b c])
 (defrecord A' [x])
 (defrecord B' [x])
+(defrecord FooComparable [x]
+IComparable
+(-compare [_ o] (compare x (.-x o))))
 
 (deftest test-records
 (let [fred (Person. "Fred" "Mertz")
@@ -1939,7 +1942,8 @@
 (is (= (set (keys (dissoc more-letters :d))) #{:a :b :c :e :f}))
 (is (= (set (keys (dissoc more-letters :d :e))) #{:a :b :c :f}))
 (is (= (set (keys (dissoc more-letters :d :e :f))) #{:a :b :c}))
-(is (not= (A'. nil) (B'. nil))))))
+(is (not= (A'. nil) (B'. nil)))
+(is (satisfies? IComparable (->FooComparable 1))))))
 
 (deftype FnLike []
 IFn