|#
(in-package metabang.graph)
-(export '(
- print-dot-key-value
- dot-attribute-value
- dot-attributes-mixin
- *dot-graph-attributes*
- ))
-
;;; ---------------------------------------------------------------------------
;
; This outputs the graph to string in accordance with the DOT file format.
(iterate-vertexes
g
(lambda (v)
+ ;(spy v)
(iterate-edges
v
(lambda (e)
+ ;(spy e (undirected-edge-p e) (item-at-1 edges e))
(when (and (undirected-edge-p e)
(not (item-at-1 edges e)))
(setf (item-at-1 edges e) t)
(defmethod (setf dot-attribute-value) :before (value (attr symbol) (thing dot-attributes-mixin))
+ (declare (ignore value))
(ensure-valid-dot-attribute attr thing))
(defmethod (setf dot-attribute-value) (value (attr symbol) (thing dot-attributes-mixin))