anchor.diff:  	    (setf argument-precedence-order required))
   	(apply #'call-next-method
   	       generic-function
  +	       slot-names
   	       :documentation documentation
   	       :declarations declarations
   	       :argument-precedence-order argument-precedence-order
  
positive.code:        (method-class (find-class 'standard-method))
         name
       &allow-other-keys)
    (declare (ignore slot-names))
    (check-documentation documentation)
    (check-declarations declarations)
    (check-method-combination method-combination)
  
negative.code:                   so must lambda list")
  	(apply #'call-next-method
  	       generic-function
  	       slot-names
  	       :documentation documentation
  	       :declarations declarations
  	       :method-class method-class
  