[#93] Pickup record redefinitions at REPL, etc. (@smee)

src/taoensso/nippy.clj

@@ -1097,7 +1097,7 @@
 (defn- read-record [in class-name]
   (let [content (thaw-from-in! in)]
     (try
-      (let [class  (Class/forName class-name)
+      (let [class  (clojure.lang.RT/classForName class-name)
             method (.getMethod class "create" class-method-sig)]
         (.invoke method class (into-array Object [content])))
       (catch Exception e

test/taoensso/nippy/tests/main.clj

@@ -232,6 +232,15 @@
             (range 50))]
       (every? deref futures))))
 
+;;;; Redefs
+
+(defrecord MyFoo [] Object (toString [_] "v1"))
+(str (thaw (freeze (MyFoo.))))
+(defrecord MyFoo [] Object (toString [_] "v2"))
+
+(deftest _redefs
+  (is (= (str (thaw (freeze (MyFoo.)))) "v2")))
+
 ;;;; Benchmarks
 
 (deftest _benchmarks