X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph.lisp;h=e0c5aeeff257562139cff75c8882f4aa67c7f928;hb=a196e72eb584440a594f0665ff5c97037ce4cf70;hp=8a7bd942a578f7c509c5e4a74f9194e889b4207c;hpb=29f19f46a66f8f773af7e87760756c93d31717c0;p=cl-graph.git

diff --git a/dev/graph.lisp b/dev/graph.lisp
index 8a7bd94..e0c5aee 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -198,7 +198,7 @@ something is putting something on the vertexes plist's
 
 (defmethod print-object ((graph basic-graph) stream)
   (print-unreadable-object (graph stream :type t :identity t)
-    (format stream "~A" (size graph))))
+    (format stream "[~A,~A]" (size graph) (edge-count graph))))
 
 
 ;;; ---------------------------------------------------------------------------