X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraphviz-support.lisp;h=a47f66ca236e50f0022c92fc4e0f61014f799015;hb=c78963a693aac062da29f25641ace0430b6c1591;hp=65a4f5761de30aeea6f4dbb20d5f326a3fe3162c;hpb=16da51f4e670b9a4fca0b3f64b8786478ac94010;p=cl-graph.git

diff --git a/dev/graphviz-support.lisp b/dev/graphviz-support.lisp
index 65a4f57..a47f66c 100644
--- a/dev/graphviz-support.lisp
+++ b/dev/graphviz-support.lisp
@@ -315,22 +315,30 @@ B--D []
     (:layer text)))
 
 (defclass* dot-attributes-mixin ()
-   ((dot-attributes nil ia)))
+  ((dot-attributes nil ia))
+  (:export-p t))
 
-(defclass* dot-graph-mixin (dot-attributes-mixin) ())
-(defclass* dot-vertex-mixin (dot-attributes-mixin) ())
-(defclass* dot-edge-mixin (dot-attributes-mixin) ())
+(defclass* dot-graph-mixin (dot-attributes-mixin) ()
+  (:export-p t))
+(defclass* dot-vertex-mixin (dot-attributes-mixin) ()
+  (:export-p t))
+(defclass* dot-edge-mixin (dot-attributes-mixin) ()
+  (:export-p t))
 
 (defclass* dot-graph (graph-container dot-graph-mixin)
   ()
   (:default-initargs
     :vertex-class 'dot-vertex
-    :directed-edge-class 'dot-edge
-    :undirected-edge-class 'dot-edge))
-
-(defclass* dot-vertex (graph-container-vertex dot-vertex-mixin) ())
-(defclass* dot-edge (graph-container-edge dot-edge-mixin) ())
-(defclass* dot-directed-edge (directed-edge-mixin dot-edge) ())
+    :directed-edge-class 'dot-directed-edge
+    :undirected-edge-class 'dot-edge)
+  (:export-p t))
+
+(defclass* dot-vertex (graph-container-vertex dot-vertex-mixin) ()
+  (:export-p t))
+(defclass* dot-edge (graph-container-edge dot-edge-mixin) ()
+  (:export-p t))
+(defclass* dot-directed-edge (directed-edge-mixin dot-edge) ()
+  (:export-p t))
 
 (defmethod graph->dot-properties ((graph dot-graph) (stream t))
   (loop for (name value) on (dot-attributes graph) by #'cddr