projects
/
cl-graph.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f20d0ef
)
Fixed a buglet with invalid declare ignores
author
Gary King
<gwking@metabang.com>
Tue, 26 Jun 2007 16:57:48 +0000
(12:57 -0400)
committer
Gary King
<gwking@metabang.com>
Tue, 26 Jun 2007 16:57:48 +0000
(12:57 -0400)
darcs-hash:
20070626165748
-3cc5d-
79a2dbd3ea4a9e908a677c07caef1212b48c9d46
.gz
dev/graphviz/graphviz-support.lisp
patch
|
blob
|
history
diff --git
a/dev/graphviz/graphviz-support.lisp
b/dev/graphviz/graphviz-support.lisp
index
aec3b99
..
df13254
100644
(file)
--- 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*."
(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)))))
(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))
#+lispworks (with-open-stream
(s (sys:open-pipe (concatenate 'string *dot-path* " -Tpng -o" file-name)
:direction :input))