removed ;;; -+ lines

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

diff --git a/dev/graph-matrix.lisp b/dev/graph-matrix.lisp
index 8f5bb4d..ccafdf0 100644 (file)
--- a/dev/graph-matrix.lisp
+++ b/dev/graph-matrix.lisp
@@ -18,7 +18,6 @@ I think I'd like a numeric class and then a object one... maybe someday
 |#
 (in-package #:metabang.graph)
 
-;;; ---------------------------------------------------------------------------
 
 (defclass* graph-matrix (basic-graph)
   ((adjencency-matrix nil r))
@@ -28,25 +27,21 @@ I think I'd like a numeric class and then a object one... maybe someday
   (:export-p t)
   (:documentation "Stub for matrix based graph. Not implemented."))
 
-;;; ---------------------------------------------------------------------------
 
 (defmethod initialize-instance :after ((object graph-matrix) &key)
   (setf (slot-value object 'adjencency-matrix) 
         nil))
 
-;;; ---------------------------------------------------------------------------
 
 (defmethod make-vertex-container ((graph graph-matrix) initial-size) 
   (make-container 'vector-container :initial-size initial-size
                   :fill-pointer 0))
 
-;;; ---------------------------------------------------------------------------
 
 (defmethod make-edge-container ((graph graph-matrix) initial-size) 
   (make-container 'vector-container :initial-size initial-size
                   :fill-pointer 0))
 
-;;; ---------------------------------------------------------------------------
 
 (defclass* graph-matrix-edge (basic-edge)
   ()
@@ -54,12 +49,10 @@ I think I'd like a numeric class and then a object one... maybe someday
   (:export-p t)
   (:documentation "Stub for matrix based graph. Not implemented."))
 
-;;; ---------------------------------------------------------------------------
 
 (defclass* graph-matrix-vertex (basic-vertex)
   ()
   (:export-p t)
   (:documentation "Stub for matrix based graph. Not implemented."))
 
-;;; ---------------------------------------------------------------------------