anchor.diff:           (record-binding2 (si binding i)
              (when (eq binding '%%default)
                (setf binding (default-site-binding monomer (site-info-index si))))
  -           (when (eq binding '**)
  -             (setf default-rest-args '(**)
  -                   binding '*))
  +           (case binding 
  +             (** (setf default-rest-args '(**)
  +                       binding '*))
  +             (__ (setf default-rest-args '(__)
  +                       binding (default-site-binding monomer (site-info-index si)))))                
              (when (wildcard-binding-p binding) 
                (setf pattern-detected-p t
                      binding (default-site-binding monomer (site-info-index si) '*)))
  
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: ;;;
  (in-package #I@library/biochem)
  
  (include-declaration :expose-symbols __)
  ;;;
  ;;; MONOMER concept - main role is to hold sites
  ;;;
  