anchor.diff:                      #'cont
                       (find-graph-type graph-type)
   		    nil
  -                    :hash-table (make-hash-table :test duplicate-test)
  -                    graph-options))))
  +		    ;; moved to local variable... [2005/07/25:rpg]
  +                    ;; :hash-table (make-hash-table :test duplicate-test)
  +		    graph-options 
  +		    ))))
         (setf (output-record-position graph-output-record)
               (values cursor-old-x cursor-old-y))
         (with-output-recording-options (stream :draw t :record nil)
  
positive.code:                                                        (:horizontal :vertical)
                                                         (:vertical :horizontal))))
            (generation-separation (parse-space stream generation-separation orientation)))
        (let ((generation-sizes (make-array 10 :adjustable t :initial-element 0)))
          (labels ((node-major-dimension (node)
                     (if (eq orientation :vertical)
  
negative.code:                    (if (eq orientation :vertical)
                         (bounding-rectangle-width node)
                         (bounding-rectangle-height node)))
  		 ;; WALK returns a node minor dimension for the node,
  		 ;; AFAICT, allowing space for that node's children
  		 ;; along the minor dimension. [2005/07/18:rpg]
                   (walk (node depth)
                     (unless (graph-node-minor-size node)
                       (when (>= depth (length generation-sizes))
  