;;; ---------------------------------------------------------------------------
-
(defmethod find-edge ((graph graph-container) (edge graph-container-edge)
&optional error-if-not-found?)
(find-edge-between-vertexes
(values nil))
+;;; ---------------------------------------------------------------------------
+
+(defmethod edge-count ((graph graph-container))
+ (size (graph-edges graph)))
-;;; ***************************************************************************
-;;; * End of File *
-;;; ***************************************************************************
\ No newline at end of file
;;; ---------------------------------------------------------------------------
(defmethod edge-count ((graph basic-graph))
- (length (edges graph)))
+ (count-using #'iterate-edges nil graph))
;;; ---------------------------------------------------------------------------