X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-iterators.lisp;h=6f0b5358b7050e00c2b57a244654a809c726e272;hb=80af22e39e0787769c4c9f455bb1d2c95e2343b5;hp=5cf3b3c4ad36f5e19ab2ef65a847344100523845;hpb=438d1e0593dc62fe7b975a5865ec27955afcb7a1;p=cl-graph.git

diff --git a/dev/graph-iterators.lisp b/dev/graph-iterators.lisp
index 5cf3b3c..6f0b535 100644
--- 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)))