From: Gary King Date: Sat, 15 Apr 2006 22:59:19 +0000 (-0400) Subject: correcting some typos X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-graph.git;a=commitdiff_plain;h=14757e858454ece368c302e921642c6933909107 correcting some typos darcs-hash:20060415225919-3cc5d-9c31acaa15fd7136abaab6c8d5d18435354802e2.gz --- diff --git a/dev/graph.lisp b/dev/graph.lisp index 34896e7..a8f782b 100644 --- a/dev/graph.lisp +++ b/dev/graph.lisp @@ -136,7 +136,7 @@ something is putting something on the vertexes plist's ;;; --------------------------------------------------------------------------- -(defclass* weighted-edge-mixin (#) +(defclass* weighted-edge-mixin () ((weight 1d0 ia "The value of the weight of this edge. Defaults to 1.0d0")) :export-slots (:export-p t) diff --git a/dev/graphviz/graphviz-support.lisp b/dev/graphviz/graphviz-support.lisp index f82f2b0..fd68bbb 100644 --- a/dev/graphviz/graphviz-support.lisp +++ b/dev/graphviz/graphviz-support.lisp @@ -19,7 +19,7 @@ This file contains the stuff that does not depend on cl-graphviz. ; For more information about DOT file format, search the web for "DOTTY" and ; "GRAPHVIZ". ; - graph->dot ((g basic-graph) (stream stream) +(defmethod graph->dot ((g basic-graph) (stream stream) &key (graph-formatter 'graph->dot-properties) (vertex-key 'vertex-id)