anchor.diff:        (record-monomer offset (length sites) binding-table)
         (loop ;; connect the monomer node to the site nodes:
               for i from (1+ offset) to (+ offset (length sites))
  -            for rest-bindings = (or bindings '(%%default)) 
  -                           then (or (rest rest-bindings) '(%%default))
  +            for rest-bindings = (or bindings default-signal) 
  +                           then (or (rest rest-bindings) default-signal)
               for binding = (first rest-bindings)   
               for site-label = (record-binding  binding i)
               when site-label 
  
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.12 2007/11/21 07:10:56 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  
negative.code:          (record-binding2 (si binding i)
             (when (eq binding '%%default)
               (setf binding (default-site-binding monomer (site-info-index si))))
             (when (eq binding '**)
               (setf default-signal '(**)
                     binding '*))
             (when (wildcard-binding-p binding) (setf pattern-detected-p t))
             (etypecase si
               (bond-site-info
  