From 45c12d2ef967f4fda3c37a9e9594b243f6c879a9 Mon Sep 17 00:00:00 2001 From: Gary King Date: Tue, 26 Jun 2007 12:57:48 -0400 Subject: [PATCH] Fixed a buglet with invalid declare ignores darcs-hash:20070626165748-3cc5d-79a2dbd3ea4a9e908a677c07caef1212b48c9d46.gz --- dev/graphviz/graphviz-support.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/dev/graphviz/graphviz-support.lisp b/dev/graphviz/graphviz-support.lisp index aec3b99..df13254 100644 --- a/dev/graphviz/graphviz-support.lisp +++ b/dev/graphviz/graphviz-support.lisp @@ -497,9 +497,10 @@ B--D [] (defmethod graph->dot-external ((g basic-graph) file-name &key (type :ps)) "Generate an external represenation of a graph to a file, by running the program in *dot-path*." + (declare (ignorable file-name)) (let ((dot-string (graph->dot g nil)) (dot-type (concatenate 'string "-T" (string-downcase (symbol-name type))))) - (declare (ignorable dot-string dot-type file-name)) + (declare (ignorable dot-string dot-type)) #+lispworks (with-open-stream (s (sys:open-pipe (concatenate 'string *dot-path* " -Tpng -o" file-name) :direction :input)) -- 1.7.10.4