anchor.diff:             (not (string= lang "dot")))
         (output-dot-file program output function lang)
         (output-function function output)))
  -
  -;;;;;;;;;;;;;;;;
  -;;; Comparisions
  -;;;;;;;;;;;;;;;;
  -
  -(defmacro compare-op (a b)
  -  "The monoid for comparisions"
  -  `(cond ((> 0.0 ,a) -1)
  -        ((< 0.0 ,a) 1)
  -        (t ,b)
  -        ))
  -
  -(defmacro compare-nest (&rest vals)
  -  (if vals
  -  `(compare-op ,(car vals) (compare-nest ,@(cdr vals))
  -  ) 0))
  -
  -(defun string-compare (a b)
  -  (cond ((string< a b) -1)
  -        ((string> a b) 1)
  -        (t 0)))
  -
  -(defun fixnum-compare (a b)
  -  (cond ((< a b) -1)
  -        ((> a b) 1)
  -        (t 0)))
  -
  -;;;;;;;;;;;
  -;;; Strings
  -;;;;;;;;;;;
  -
  -(defun string-upcase-p (str)
  -  (string= str (string-upcase str)))
  -
  -(defun string-downcase-p (str)
  -  (string= str (string-downcase str)))
  
positive.code:   "A lambda with no arguments."
    `(lambda () ,@body))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; GENERALIZED SYMBOLS ;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code:     (cons
       (etypecase b
         (atom 1)
         (list (or-compare (gsymbol-compare (car a) (car b))
                           (gsymbol-compare (cdr a) (cdr b))))))))
  
  
  
  ;; (defun gsymbol-compare (a b)
  