hg.stevelosh.com > cl-digraph

--- 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))
author	Steve Losh <steve@stevelosh.com>
date	Sun, 06 Nov 2016 16:16:09 +0000
parents	f5cdc0242ec0
children	1b9b79185f17
branches/tags	(none)
files	src/dot.lisp