CLJS-1292: Add IPrintWithWriter implementation for TaggedLiteral

Author: bronsa

src/main/cljs/cljs/core.cljs

@@ -9645,6 +9645,9 @@ Maps become Objects. Arbitrary keys are encoded to by key->js."
 
 
 (deftype TaggedLiteral [tag form]
+  Object
+  (toString [coll]
+    (pr-str* coll))
 
   IEquiv
   (-equiv [this other]
@@ -9666,7 +9669,10 @@ Maps become Objects. Arbitrary keys are encoded to by key->js."
       :form form
       not-found))
 
-  )
+  IPrintWithWriter
+  (-pr-writer [o writer opts]
+    (-write writer (str "#" tag " "))
+    (pr-writer form writer opts)))
 
 (defn tagged-literal?
   "Return true if the value is the data representation of a tagged literal"

src/test/cljs/cljs/core_test.cljs

@@ -2812,7 +2812,8 @@
     (is (= tl (tagged-literal 'x "y")))
     (is (not= tl (tagged-literal 'z "y")))
     (is (not= tl (tagged-literal 'x "z")))
-    (is (= (hash tl) (hash (tagged-literal 'x "y"))))))
+    (is (= (hash tl) (hash (tagged-literal 'x "y"))))
+    (is (= "#foo [1]" (str (tagged-literal 'foo [1]))))))
 
 (defn- incme []
   (let [incme (fn [a queue & args] (inc a))]