anchor.diff:      (cons
        (etypecase b
          (atom 1)
  -       (list (let ((c (gsymbol-compare (car a) (car b))))
  -               (declare (type fixnum c))
  -               (if (zerop c)
  -                   (gsymbol-compare (cdr a) (cdr b))
  -                   c)))))))
  +       (list (or-compare (gsymbol-compare (car a) (car b))
  +                         (gsymbol-compare (cdr a) (cdr b))))))))
  +
   
   
   ;; (defun gsymbol-compare (a b)
  
positive.code:   "A lambda with no arguments."
    `(lambda () ,@body))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; GENERALIZED SYMBOLS ;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code:            (not (string= lang "dot")))
        (output-dot-file program output function lang)
        (output-function function output)))
  