|#
(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.
(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))