(defmethod print-object ((graph basic-graph) stream)
(print-unreadable-object (graph stream :type t :identity t)
(format stream "[~A,~A]" (size graph) (edge-count graph))))
(defmethod print-object ((graph basic-graph) stream)
(print-unreadable-object (graph stream :type t :identity t)
(format stream "[~A,~A]" (size graph) (edge-count graph))))