anchor.diff:                       with either other site offsets or values
            PATTERNP is always NIL."
     (let ((pattern-detected-p nil)
  +        (default-signal     '%%default)
           (sites              (map 'list #'identity (monomer-sites monomer-object))))
       (labels
           ((site-error (binding si msg &rest args)
  
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
  