I think I'd like a numeric class and then a object one... maybe someday
|#
-(in-package metabang.graph)
+(in-package #:metabang.graph)
-;;; ---------------------------------------------------------------------------
(defclass* graph-matrix (basic-graph)
((adjencency-matrix nil r))
(: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)
()
(: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."))
-;;; ---------------------------------------------------------------------------