|#
-(in-package metabang.graph)
+(in-package #:metabang.graph)
;; TODO these are hacks to be removed later,
;; the functionality should be provided by graph itself
: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)