 
 (defmethod canonize :default
   [value]
-  (if *strict-mode*
-    (throw (IllegalArgumentException.
-             (str "No canonical representation for " (class value) ": " value)))
-    [:span
-     (color-doc :class-delimiter "#<")
-     (color-doc :class-name (.getName (class value)))
-     " " (str value)
-     (color-doc :class-delimiter ">")]))
+  (illegal-when-strict value)
+  [:span
+   (color-doc :class-delimiter "#<")
+   (color-doc :class-name (.getName (class value)))
+   " " (str value)
+   (color-doc :class-delimiter ">")])
 
 
 

   :function-symbol [:bold :blue]
   :class-delimiter [:blue]
   :class-name      [:bold :blue]})


(defmacro with-color



(defmethod canonize clojure.lang.IRecord
  [record]
  (illegal-when-strict record)
  [:span
   (color-doc :delimiter "#")
   (.getName (class record))
   (canonize-map record)])


(prefer-method canonize clojure.lang.IRecord clojure.lang.IPersistentMap)
