X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraph-algorithms.lisp;h=6230047d46266aad5ba6f19a952dabdc997bbd75;hb=a196e72eb584440a594f0665ff5c97037ce4cf70;hp=9ee37a87b34b33a4c849d452a2e900db632370d6;hpb=29f19f46a66f8f773af7e87760756c93d31717c0;p=cl-graph.git

diff --git a/dev/graph-algorithms.lisp b/dev/graph-algorithms.lisp
index 9ee37a8..6230047 100644
--- a/dev/graph-algorithms.lisp
+++ b/dev/graph-algorithms.lisp
@@ -4,7 +4,7 @@
 ;;;
 ;;; ---------------------------------------------------------------------------
 
-(defstruct (vertex-datum (:conc-name "NODE-") (:type list))
+(defstruct (vertex-datum (:conc-name node-) (:type list))
   (color nil)
   (depth most-positive-fixnum)
   (parent nil))