anchor.diff:       2))
   
   (define-graph-test-command bar ()
  -  (with-text-style (*query-io* (make-text-style :sans-serif nil 12))
  +  (with-text-style (*query-io* (make-text-style :sans-serif nil 10))
       (let ((*print-case* :downcase))
         (format-graph-from-roots
          (list (clim-mop:find-class 'climi::basic-output-record))
          #'(lambda (x s)
  -           (with-text-style (s (make-text-style nil
  -                                                (if (external-symbol-p (class-name x))
  -                                                    :bold
  -                                                    nil)
  -                                                nil))
  -             (prin1 (class-name x) s)))
  +           (surrounding-output-with-border (s :shape :oval)
  +             (with-text-style (s (make-text-style nil
  +                                                  (if (external-symbol-p (class-name x))
  +                                                      :bold
  +                                                      nil)
  +                                                  nil))
  +               (prin1 (class-name x) s))))
          #'(lambda (x)
              (clim-mop:class-direct-subclasses x))
          :stream *query-io*
  
positive.code:                    (dolist (k (graph-node-children node))
                       (with-bounding-rectangle* (x1 y1 x2 y2) node
                         (with-bounding-rectangle* (u1 v1 u2 v2) k
                           (case orientation
                             (:horizontal
                              (draw-line* stream (+ x2 2) (/ (+ y1 y2) 2)
                               (- u1 2) (/ (+ v1 v2) 2)
                               :line-thickness 0))
                             (:vertical
                              (draw-line* stream (/ (+ x1 x2) 2) y2
                               (/ (+ u1 u2) 2) v1)))))
                       ;;
                       (walk k)))))
          (map nil #'walk root-nodes)))))
  
  #||
  ;; Experimental version for rectangular graphs
  (defmethod layout-graph-edges ((graph-output-record tree-graph-output-record)
                                 stream arc-drawer arc-drawing-options)
    (with-slots (root-nodes orientation) graph-output-record
  
negative.code: ;;   restricted to the set of hash test functions? --GB 2002-08-13
  
  ;; - What is the purpose of (SETFGRAPH-NODE-CHILDREN) and
  ;;   (SETFGRAPH-NODE-PARENTS)? --GB 2002-08-14
  
  ;; - FORMAT-GRAPH-FROM-ROOTS passes the various options on to the
  ;;   instantiation of the graph-output-record class, so that the
  ;;   individual classes can choose appropriate defaults. --GB 2002-08-14
  
  ;; - In the same spirit, a non given ARC-DRAWER option is passed as it
  ;;   is, that is being NIL, to LAYOUT-GRAPH-EDGES so that the concrete
  ;;   graph-output-record can choose a default. --GB 2002-08-14
  
  ;;;; Declarations
  
  