anchor.diff:      (cond
        ;; wildcard monomer
        ((wildcard-monomer-symbol-p monomer)
  -      (parse-wildcard-monomer-description 
  +      (parse-special-monomer-description 
          head
          bindings
          binding-table
          offset))
  +
  +     ((null monomer)
  +      (parse-nil-monomer-description head bindings binding-table offset))
   
        ;; not a wildcard monomer
        ((symbolp monomer)
  
positive.code: 
  
  ;;;
  ;;; PARSE-WILDCARD-MONOMER-DESCRIPTION for [* ...] monomers
  ;;;
  (defun parse-wildcard-monomer-description (monomer bindings binding-table offset)
    (flet ((make-label (i &optional site-test (value-test nil value-test-p))
               (let ((sindex      (- i offset 1))
                     (value-test  (normalize-test value-test 'or)))
  
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.34 2008/04/24 16:14:55 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  