anchor.diff:                                     ((:test this-test) '(function eql))
                                      ((:copy this-copy) '(function identity))
                                      &allow-other-keys) this
  +      (declare (ignore this-role this-copy))
         (multiple-value-bind (this-min this-max) (multiplicity this-multiplicity)
  +        (declare (ignore this-min))
           (let ((this-implementation (or this-implementation
                                          (if (equal 1 this-max) 'reference 'list))))
             (assert (member this-implementation  '(list reference))
  
positive.code:               :test ,test))
  
    (defun generate-getter (accessor slot copier object value)
      (if (eq copier 'identity)
          (if accessor
              `(,accessor ,object)
  
negative.code: 
    
    (defun generate-contains-p (association-name value object this)
      (declare (ignore association-name))
      (destructuring-bind (this-role &key
                                     ((:slot this-slot))
                                     ((:accessor this-accessor))
  