From 7f538649678d542789d4abaa81f1d2873860938b Mon Sep 17 00:00:00 2001 From: "levente.meszaros" Date: Mon, 31 Jan 2011 06:12:05 +0100 Subject: [PATCH] Pass down other keys in graph->dot-external. --- dev/graphviz/graphviz-support.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dev/graphviz/graphviz-support.lisp b/dev/graphviz/graphviz-support.lisp index 1ea586a..bdfb52e 100644 --- a/dev/graphviz/graphviz-support.lisp +++ b/dev/graphviz/graphviz-support.lisp @@ -496,11 +496,11 @@ B--D [] #+(or linux unix) (defvar *dot-path* "/usr/bin/dot" "Path to `dot`") -(defmethod graph->dot-external ((g basic-graph) file-name &key (type :ps)) +(defmethod graph->dot-external ((g basic-graph) file-name &rest args &key (type :ps) &allow-other-keys) "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)) + (let ((dot-string (apply #'graph->dot g nil args)) (dot-type (concatenate 'string "-T" (string-downcase (symbol-name type))))) (declare (ignorable dot-string dot-type)) #+lispworks (with-open-stream -- 1.7.10.4