anchor.diff:           collect (list* i (set-difference (gtools:graph-vertex-outputs cg i)
                                             mverts)))
      :test (lambda (x y)
  -           (or (equalp x y)
  -               (and (= 2 (length x))
  -                    (equalp x (reverse y)))))))
  +           (= (length x)
  +              (length (intersection x y))))))
       
   (defun complex-graph-site-bonds (g mindex sindex)
     "For 0-based monomer MINDEX and 0-based site SINDEX, returns a list of 
  
positive.code: (defield complex-graph-concept.show (&key size)
    (complex-graph-show-image .id :size size))
  
  (defield complex-graph-concept.compute-dot-script ()
    (complex-graph-dot-script .id))
  
  (defun complex-graph-show-image (cg &rest args
                                      &key
  
negative.code: ;;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
  ;;;; THE SOFTWARE.
  
  ;;; $Id: species-type.lisp,v 1.26 2008/01/18 19:54:45 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  