# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1478448969 0
# Node ID b786d38cb2aa1312b03d749188b11ac10d36416c
# Parent  f5cdc0242ec030b24d739d1da58988258ebea499
Unfuck the Graphviz labels

diff -r f5cdc0242ec0 -r b786d38cb2aa src/dot.lisp
--- a/src/dot.lisp	Sun Nov 06 15:57:26 2016 +0000
+++ b/src/dot.lisp	Sun Nov 06 16:16:09 2016 +0000
@@ -23,7 +23,7 @@
 
 (defmethod cl-dot:graph-object-node ((graph (eql 'digraph)) (vertex t))
   (make-instance 'cl-dot:node
-    :attributes `(:label ,vertex :shape :circle)))
+    :attributes `(:label ,(format nil "~A" vertex) :shape :circle)))
 
 (defmethod cl-dot:graph-object-points-to ((graph (eql 'digraph)) (vertex t))
   (successors *current-digraph* vertex))