Records

Author: chrisrink10

src/basilisp/pprint.lpy

@@ -673,6 +673,14 @@
   (print-meta obj)
   (print-map "{" "}" obj))
 
+(defmethod simple-dispatch basilisp.lang.interfaces/IRecord
+  [obj]
+  (print-meta obj)
+  (let [prefix (str "#" (.-__qualname__ (python/type obj)) "{")]
+    (print-map prefix "}" (into {} obj))))
+
+(prefer-method simple-dispatch basilisp.lang.interfaces/IRecord basilisp.lang.interfaces/IPersistentMap)
+
 (defmethod simple-dispatch python/dict
   [obj]
   (print-map "#py {" "}" (.items obj)))

tests/basilisp/test_pprint.lpy

@@ -216,6 +216,14 @@
 (deftest pprint-var-test
   (is (= "#'basilisp.core/map\n" (with-out-str (pprint/pprint #'map)))))
 
+(defrecord Point [x y z])
+
+(deftest pprint-record-test
+  (is (= "#Point{:x 1 :y 2 :z 3}\n"
+         (with-out-str
+           (binding [pprint/*print-sort-keys* true]
+             (pprint/pprint (->Point 1 2 3)))))))
+
 (deftest pprint-ideref-test
   (testing "delay"
     (let [d (delay :delayed)]