4 (u:defclass* vertex-iterator (containers::forward-iterator)
8 (defmethod initialize-instance :after ((object vertex-iterator) &key)
12 (defmethod reset ((iterator vertex-iterator))
13 (let ((vertex (containers::initial-container iterator)))
14 (setf (slot-value iterator 'containers::iterating-container)
15 (make-iterator (edges vertex)
16 :transform (lambda (e) (other-vertex e vertex)))))
20 (defmethod containers::base-class-for-iteratee ((container basic-vertex))
24 (defmethod containers::base-class-for-iteratee ((container basic-vertex))
25 (containers::base-class-for-iteratee (vertex-edges container)))
27 (u:add-parameter->dynamic-class :iterator :children nil )