anchor.diff:  ;;;; 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 $
  +;;; $Id: species-type.lisp,v 1.13 2007/12/06 01:29:20 amallavarapu Exp $
   ;;; $Name:  $
   
   ;;; File: complex-species-type.lisp
  
positive.code:          (record-binding2 (si binding i)
             (when (eq binding '%%default)
               (setf binding (default-site-binding monomer (site-info-index si))))
             (when (wildcard-binding-p binding) (setf pattern-detected-p t))
             (etypecase si
               (bond-site-info
  
negative.code:                      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)
  