This file contains the stuff that does not depend on cl-graphviz.
|#
-(in-package metabang.graph)
+(in-package #:metabang.graph)
;;; ---------------------------------------------------------------------------
;
; 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)
(princ " [" stream)
(when (and directed? directed-edge-tag)
(princ directed-edge-tag stream))
- (when edge-key
+ (when edge-labeler
(princ "label=\"" stream)
(funcall edge-labeler e stream)
(princ "\"," stream))