anchor.diff:  
   (defun complex-graph-write-dot-file (cg file &rest args
                                       &key
  +                                    (size '(5 5))
                                       (site-style :filled)
                                       (site-color :white)
                                       (monomer-style :filled)
  
positive.code: ;;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  ;;;; THE SOFTWARE.
  
  ;;; $Id: species-type.lisp,v 1.24 2008/01/08 21:59:09 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  
negative.code:                           :direction :io)
      (pprint-logical-block (stream () :prefix "graph complex {" :suffix "}")
        (pprint-newline :mandatory stream)
        (if size (format stream "size=\"~A,~A\";~:@_" (first size) (second sizE)))
        (apply #'print-complex-graph-dot-script cg stream args))
      (fresh-line stream)))
  
  