anchor.diff:    (with-slots (cutoff-depth merge-duplicates) graph-output-record
       (let* ((hash-table (when (and merge-duplicates (member duplicate-test (list #'eq #'eql #'equal #'equalp)))
   			 (make-hash-table :test duplicate-test)))
  -	   node-list 
  +	   node-list
   	   (hashed hash-table))
         (labels
   	  ((previous-node (obj)
  
positive.code: 	  record))))
  
  (defun layout-edge-1 (graph major-node minor-node)
    (let ((edge-record (ensure-edge-record graph major-node minor-node)))    
      (with-slots (stream arc-drawer arc-drawing-options) edge-record
        (with-bounding-rectangle* (x1 y1 x2 y2) major-node
          (with-bounding-rectangle* (u1 v1 u2 v2) minor-node
  
negative.code:        (list (find-class 'standard-graph-output-record)
               ;;(find-class 'climi::basic-output-record)
               ;;(find-class 'climi::graph-output-record)
  
               )
         #'(lambda (x s)
             (with-text-style (s (make-text-style nil
  