[fix] Msgpack: avoid StackOverflow when packing unsupported type

The fallback payload included a java.lang.Class value, which itself
isn't supported - so caused an infinite recursion.

Author: ptaoussanis

src/taoensso/msgpack/impl.clj

@@ -133,10 +133,10 @@
   (pack-bytes [x ^DataOutput out]
     (pack-bytes
       {:msgpack/unpackable
-       {:type (type x)
+       {:type (str (type x))
         :preview
         (try
-          (let [out (pr-str x)] (subs out 0 (min 16 (count out))))
+          (let [out (pr-str x)] (subs out 0 (min 32 (count out))))
           (catch Throwable _ :unprintable))}}
       out)))
 

src/taoensso/msgpack/impl.cljs

@@ -277,7 +277,7 @@
          {:type (enc/type-name x)
           :preview
           (try
-            (let [s (pr-str x)] (subs s 0 (min 16 (count s))))
+            (let [s (pr-str x)] (subs s 0 (min 32 (count s))))
             (catch :default _ :unprintable))}}
         out))))