anchor.diff:       (etypecase b
          (fixnum -1)
          (character -1)
  -       (string (cond ((string< a b) -1)
  -                     ((string> a b) 1)
  -                     (t 0)))
  +       (string (string-compare a b))
          (symbol 1)
          (tree-set 1)))
       (symbol
  
positive.code:            (not (string= lang "dot")))
        (output-dot-file program output function lang)
        (output-function function output)))
  
negative.code:   (etypecase a
      (fixnum
       (etypecase b
         (fixnum (fixnum-compare a b))
         (character 1)
         (string 1)
         (symbol 1)
  