anchor.diff:  ||#
   
   #||
  +
  +;;; Testing --GB 2002-08-14
  +
   (define-application-frame graph-test ()
     ()
     (:panes
  
positive.code:     :initform nil)
     (generation-separation
      :initarg :generation-separation
      :initform 10)
     (within-generation-separation
      :initarg :within-generation-separation
      :initform 10)
     (hash-table
      :initarg :hash-table
      :initform nil)
     (root-nodes
      :initform nil
      :accessor graph-root-nodes) ))
  
  (defclass tree-graph-output-record (standard-graph-output-record)
    ())
  (defclass dag-graph-output-record (standard-graph-output-record)
    ())
  (defclass digraph-graph-output-record (standard-graph-output-record)
    ())
  
  
negative.code:            #'(lambda (node s)
                 (write-string (node-name node) s))
             #'node-children
             :arc-drawer #'arrow-arc-drawer
             :arc-drawing-options (list :ink +red+ :line-thickness 1)
             :orientation orientation
             :stream stream))))))
  
  (defun make-circ-list (list)
    (nconc list list))
  
  (define-graph-test-command test2 ()
    (let ((stream *query-io*)
          (orientation :vertical))
      (fresh-line stream)
      (format-graph-from-roots
       (list '(defun ncons (x) (cons x nil))
             (make-circ-list (list 1 2 3)))
       #'(lambda (node s)
           (if (consp node)
               (progn
                 (draw-circle* s 5 5 5 :filled nil))
               (princ node s)))
       #'(lambda (x) (if (consp x) (list (car x) (cdr x))))
       :cutoff-depth nil
       :graph-type :tree
       :merge-duplicates t
       :arc-drawer #'arrow-arc-drawer
       :arc-drawing-options (list :ink +red+ :line-thickness 1)
       :orientation orientation
       :stream stream)))
  ||#