From 14757e858454ece368c302e921642c6933909107 Mon Sep 17 00:00:00 2001 From: Gary King Date: Sat, 15 Apr 2006 18:59:19 -0400 Subject: [PATCH] correcting some typos darcs-hash:20060415225919-3cc5d-9c31acaa15fd7136abaab6c8d5d18435354802e2.gz --- dev/graph.lisp | 2 +- dev/graphviz/graphviz-support.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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) -- 1.7.10.4