anchor.diff:     (%description :initarg :description :reader method-group-specifier-description)
      (%order-form :initarg :order-form :reader method-group-specifier-order-form)
      (%required :initarg :required :reader method-group-specifier-required)))
  -
  -(defstruct method-group-specifier
  -  name
  -  qualifier-patterns
  -  predicate
  -  description
  -  order-form
  -  required)
   
   (defun parse-method-group-specifier (specifier)
     (let ((name (first specifier))
  
positive.code:                             (make-method ,form)))
             form))))
  
  ;; To be reinstated when CLOS is usable in the cross-compilation environment.
  #+(or)
  (defclass method-group-specifier ()
    ((%name :initarg :name :reader method-group-specifier-name)
     (%qualifier-patterns :initarg :qualifier-patterns :reader method-group-specifier-qualifier-patterns)
  
negative.code:              (assert (or (eql pattern '*) (listp pattern))))))
      (destructuring-bind (&key description order required)
          remaining-specifier
        (make-instance 'method-group-specifier
         :name name
         :qualifier-patterns qualifier-patterns
         :predicate predicate
  