From b1dab1dc4b3597ba5e565814cf16c4ee910fa71a Mon Sep 17 00:00:00 2001 From: Peter Taoussanis Date: Thu, 31 Oct 2013 13:15:22 +0700 Subject: [PATCH] Add debug-mode flag --- src/taoensso/nippy.clj | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/taoensso/nippy.clj b/src/taoensso/nippy.clj index 1d5cb58..32d3f08 100644 --- a/src/taoensso/nippy.clj +++ b/src/taoensso/nippy.clj @@ -28,6 +28,8 @@ (byte 2) {:version 1 :compressed? false :encrypted? true} (byte 3) {:version 1 :compressed? true :encrypted? true}}) +(def ^:private ^:const debug-mode? false) + ;;;; Data type IDs ;; **Negative ids reserved for user-defined types** @@ -187,13 +189,15 @@ (freeze-to-stream* [x ^DataOutputStream s] (if (instance? Serializable x) (do ;; Fallback #1: Java's Serializable interface - ;;(println (format "DEBUG - Serializable fallback: %s" (type x))) + (when debug-mode? + (println (format "DEBUG - Serializable fallback: %s" (type x)))) (write-id s id-serializable) (write-utf8 s (.getName (class x))) ; Reflect (.writeObject (java.io.ObjectOutputStream. s) x)) (do ;; Fallback #2: Clojure's Reader - ;;(println (format "DEBUG - Reader fallback: %s" (type x))) + (when debug-mode? + (println (format "DEBUG - Reader fallback: %s" (type x)))) (write-id s id-reader) (write-bytes s (.getBytes (pr-str x) "UTF-8"))))))