X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=dev%2Fgraphviz%2Fgraphviz-support-optional.lisp;h=2d65b62f35381dbc4d0739294c9504f061e72f6b;hb=64273bb2bd2c48860e33dc1945c49eb867a32d19;hp=f2815765977f92dc28d7b5af93b5e5917603c6ee;hpb=dfe1ca9987337cf9e8ad32aa44d6a55c0d8a7c75;p=cl-graph.git

diff --git a/dev/graphviz/graphviz-support-optional.lisp b/dev/graphviz/graphviz-support-optional.lisp
index f281576..2d65b62 100644
--- a/dev/graphviz/graphviz-support-optional.lisp
+++ b/dev/graphviz/graphviz-support-optional.lisp
@@ -13,7 +13,7 @@ loaded when cl-graphviz is available.
 
 |#
 
-(in-package metabang.graph)
+(in-package #:metabang.graph)
 
 ;; TODO these are hacks to be removed later,
 ;; the functionality should be provided by graph itself
@@ -31,7 +31,7 @@ loaded when cl-graphviz is available.
                      :graph-visitor
                      (lambda (dot-graph)
                        (setf (dot-attribute-value :bb g)
-                             (graphviz:graph-bounding-box dot-graph)))
+                               (graphviz:graph-bounding-box dot-graph)))
 
                      :node-visitor
                      (lambda (node)
@@ -58,7 +58,7 @@ loaded when cl-graphviz is available.
                                 (to-vertex (find-vertex-by-id g (graphviz:node-name to)))
                                 (real-edge (find-edge-between-vertexes g from-vertex to-vertex))
                                 (bezier-points '()))
-                           (graphviz:edge-iterate-beziers
+                           (graphviz:iterate-edge-beziers
                             edge
                             (lambda (bezier)
                               ;;(format t "  Bezier: ~a~%"