From: levente.meszaros <levente.meszaros@gmail.com>
Date: Mon, 31 Jan 2011 05:12:05 +0000 (+0100)
Subject: Pass down other keys in graph->dot-external.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7f538649678d542789d4abaa81f1d2873860938b;p=cl-graph.git

Pass down other keys in graph->dot-external.
---

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