anchor.diff:         (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)
  
positive.code: 	    (setf argument-precedence-order required))
  	(apply #'call-next-method
  	       generic-function
  	       :documentation documentation
  	       :declarations declarations
  	       :argument-precedence-order argument-precedence-order
  
negative.code:                   so must lambda list")
  	(apply #'call-next-method
  	       generic-function
  	       slot-names
  	       :documentation documentation
  	       :declarations declarations
  	       :method-class method-class
  