-(in-package metabang.graph)
+(in-package #:metabang.graph)
;;; ---------------------------------------------------------------------------
;;;
;;; ---------------------------------------------------------------------------
-(defstruct (vertex-datum (:conc-name "NODE-") (:type list))
+(defstruct (vertex-datum (:conc-name node-) (:type list))
(color nil)
(depth most-positive-fixnum)
(parent nil))
(collect-elements
(make-iterator (connected-components graph) :unique t :transform #'parent))))
-;;; ---------------------------------------------------------------------------
-
(defmethod find-connected-components ((graph basic-graph))
(collect-elements
(make-iterator (connected-components graph) :unique t :transform #'parent)
:transform
(lambda (component)
(subgraph-containing graph (element component)
- most-positive-fixnum))))
+ :depth most-positive-fixnum))))
#+Alternate
(defmethod find-connected-components ((graph basic-graph))