X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraphviz%2Fgraphviz-support.lisp;h=63cd048e5e59e8eaa593f1ca10909ba8ba10fc8e;hb=29f19f46a66f8f773af7e87760756c93d31717c0;hp=fe614aaa9438db28d5e626b00f2e666a3c858c0e;hpb=ca59f054a82701af97d9692576a5ce301980c60d;p=cl-graph.git

diff --git a/dev/graphviz/graphviz-support.lisp b/dev/graphviz/graphviz-support.lisp
index fe614aa..63cd048 100644
--- a/dev/graphviz/graphviz-support.lisp
+++ b/dev/graphviz/graphviz-support.lisp
@@ -17,13 +17,6 @@ This file contains the stuff that does not depend on cl-graphviz.
 |#
 (in-package metabang.graph)
 
-(export '(
-	  print-dot-key-value
-	  dot-attribute-value
-	  dot-attributes-mixin
-	  *dot-graph-attributes*
-	  ))
-
 ;;; ---------------------------------------------------------------------------
 ;
 ; This outputs the graph to string in accordance with the DOT file format.  
@@ -347,6 +340,7 @@ B--D []
 
 
 (defmethod (setf dot-attribute-value) :before (value (attr symbol) (thing dot-attributes-mixin))
+  (declare (ignore value))
   (ensure-valid-dot-attribute attr thing))
 
 (defmethod (setf dot-attribute-value) (value (attr symbol) (thing dot-attributes-mixin))