         (.bar r 2)
         :verbose))))
 
+(deftest defrecord-benchmark-1
+  (println "\nRunning: defrecord-benchmark-1")
+  (let [r (MyRec. 1)]
+    (cc/with-progress-reporting
+      (cc/quick-bench
+        (r 2)
+        :verbose))))
+
 (deftype MyType
   [res]
   MyProt
-  (foo [_] 0)
-  (bar [_ arg] (+ res arg)))
+    (foo [_] 0)
+    (bar [_ arg] (+ res arg))
+  IFn
+    (invoke [this arg] (.bar this arg)))
 
 (deftest deftype-benchmark-0
   (println "\nRunning: deftype-benchmark-0")

        (.bar t 2)
        :verbose))))


(defrecord MyRec
  [res]
  MyProt
    (foo [_] 0)
    (bar [_ arg] (+ res arg))
  IFn
    (invoke [this arg] (.bar this arg)))

(deftest defrecord-benchmark-0
  (println "\nRunning: defrecord-benchmark-0")
