 
 (defmethod canonize :default
   [value]
-  (illegal-when-strict value)
-  [:span
-   (color-doc :class-delimiter "#<")
-   (color-doc :class-name (.getName (class value)))
-   " " (str value)
-   (color-doc :class-delimiter ">")])
+  (unknown-doc value))
 
 
 

   (color-doc :symbol (subs (str value) 2))])


(defmethod canonize clojure.lang.IDeref
  [value]
  (illegal-when-strict value)
  [:span
   (color-doc :class-delimiter "#<")
   (color-doc :class-name (.getName (class value)))
   (color-doc :class-delimiter "@")
   (system-id value) " "
   (canonize @value)
   (color-doc :class-delimiter ">")])


(defmethod canonize clojure.lang.Atom
  [value]
  (illegal-when-strict value)
  [:span
   (color-doc :class-delimiter "#<")
   (color-doc :class-name "Atom")
   (color-doc :class-delimiter "@")
   (system-id value) " "
   (canonize @value)
   (color-doc :class-delimiter ">")])


(defmethod canonize clojure.lang.IPending
  [value]
  (illegal-when-strict value)
  [:span
   (color-doc :class-delimiter "#<")
   (color-doc :class-name (.getName (class value)))
   (color-doc :class-delimiter "@")
   (system-id value) " "
   (if (realized? value)
     (canonize @value)
     (color-doc :nil "pending"))
   (color-doc :class-delimiter ">")])


(defmethod canonize clojure.lang.Delay
  [value]
  (illegal-when-strict value)
  [:span
   (color-doc :class-delimiter "#<")
   (color-doc :class-name "Delay")
   (color-doc :class-delimiter "@")
   (system-id value) " "
   (if (realized? value)
     (canonize @value)
     (color-doc :nil "pending"))
   (color-doc :class-delimiter ">")])


(defmethod canonize java.util.concurrent.Future
  [value]
  (illegal-when-strict value)
  [:span
   (color-doc :class-delimiter "#<")
   (color-doc :class-name "Future")
   (color-doc :class-delimiter "@")
   (system-id value) " "
   (if (future-done? value)
     (canonize @value)
     (color-doc :nil "pending"))
   (color-doc :class-delimiter ">")])


(prefer-method canonize clojure.lang.ISeq clojure.lang.IPending)




;;;;; SPECIAL TYPES ;;;;;

(defmethod canonize :tagged-value
  [tagged-value]
