         :verbose))))
 
 (deftest record-ext-fn
-  (println "\nBenchmarking: record-ext-fn")
+  (println "\nBenchmarking: record-4-ext-fn")
   (let [r (->MyRec 1)]
     (cc/with-progress-reporting
       (cc/quick-bench

        :verbose))))

(deftest type-fn
  (println "\nBenchmarking: type-fn")
  (let [t (->MyType 1)]
    (cc/with-progress-reporting
      (cc/quick-bench

        :verbose))))

(deftest record-fn
  (println "\nBenchmarking: record-0-fn")
  (let [r (->MyRec 1)]
    (cc/with-progress-reporting
      (cc/quick-bench
