Gnp -> gnp; Gnm -> gnm, etc for mlisp happiness

[cl-graph.git] / dev / graph.lisp

diff --git a/dev/graph.lisp b/dev/graph.lisp
index 8a7bd94..e0c5aee 100644 (file)
--- 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))))
 
 
 ;;; ---------------------------------------------------------------------------