anchor.diff:  (in-package cl-dot)
   
   (defparameter *graph-attributes*
  -  '((:label label-text)
  +  '((:compound boolean)
  +    (:label label-text)
       (:size text)
       (:page text)
       (:ratio (:fill :compress :auto)) ;; Could actually be a float number too
  
positive.code:     (:constraint boolean)
      (:layer text)
      (:url text)
      (:target text)))
  
negative.code:     (:bgcolor text)
      (:url text)
      (:target text)
      (:stylesheet text)
      (:splines text)))
  
  (defparameter *node-shapes*
    '(:box :polygon :ellipse :oval
      :circle :point :egg :triangle
      :plaintext :plain :diamond :trapezium
      :parallelogram :house :pentagon :hexagon
      :septagon :octagon :doublecircle :doubleoctagon
      :tripleoctagon :invtriangle :invtrapezium :infhouse
      :Mdiamond :Msquare :Mcircle :rect
      :rectangle :square :star :none
      :underline :cylinder :note :tab
      :folder :box3d :component :promoter
      :cds :terminator :utr :primersite
      :restrictionsite :fivepoverhang :threepoverhang :noverhang
      :assembly :signature :insulator :ribosite
      :rnastab :proteasesite :proteinstab :rpromoter
      :rarrow :larrow :lpromoter :record))
  
  (defparameter *node-attributes*
    `((:height integer)
      (:width integer)
      (:fixed-size boolean)
      (:label label-text)
      (:shape ,*node-shapes*)
      (:fontsize integer)
      (:fontname text)
      (:color text)
  