removed ;;; -+ lines

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

diff --git a/dev/graph-iterators.lisp b/dev/graph-iterators.lisp
index 5cf3b3c..6f0b535 100644 (file)
--- a/dev/graph-iterators.lisp
+++ b/dev/graph-iterators.lisp
@@ -1,17 +1,13 @@
 
-;;; ---------------------------------------------------------------------------
 ;;; vertex-iterator
-;;; ---------------------------------------------------------------------------
 
 (u:defclass* vertex-iterator (containers::forward-iterator)
   ())
 
-;;; ---------------------------------------------------------------------------
 
 (defmethod initialize-instance :after ((object vertex-iterator) &key)
   (reset object))
 
-;;; ---------------------------------------------------------------------------
 
 (defmethod reset ((iterator vertex-iterator))
   (let ((vertex (containers::initial-container iterator)))
@@ -20,12 +16,10 @@
                          :transform (lambda (e) (other-vertex e vertex)))))
   iterator)
 
-;;; ---------------------------------------------------------------------------
 
 (defmethod containers::base-class-for-iteratee ((container basic-vertex))
   'vertex-iterator)
 
-;;; ---------------------------------------------------------------------------
 
 (defmethod containers::base-class-for-iteratee ((container basic-vertex))
   (containers::base-class-for-iteratee (vertex-edges container)))