correcting some typos

darcs-hash:20060415225919-3cc5d-9c31acaa15fd7136abaab6c8d5d18435354802e2.gz

diff --git a/dev/graph.lisp b/dev/graph.lisp
index 34896e7..a8f782b 100644 (file)
--- 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 (file)
--- 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)