anchor.diff:    (setf (method-generic-function method) gf)
     (push method (generic-function-methods gf))
     (dolist (specializer (method-specializers method))
  -    (pushnew method (class-direct-methods specializer)))
  +    (when (typep specializer '(or standard-class funcallable-standard-class class))
  +      (pushnew method (class-direct-methods specializer))))
     (finalize-generic-function gf)
     method)
   
  
positive.code:           ;;
            compute-discriminating-function
            compute-applicable-methods-using-classes method-more-specific-p
            compute-effective-method-function compute-method-function
            apply-methods apply-method
            find-generic-function  ; Necessary artifact of this implementation
            ))
  
  (export exports)
  
negative.code:   ()
    (:metaclass structure-class))
  
  ;;; eql specializers.
  
  (defvar *interned-eql-specializers* (make-hash-table))
  
  (defclass eql-specializer (specializer)
    ((object :initarg :object :reader eql-specializer-object)))
  
  (defun intern-eql-specializer (object)
    (or (gethash object *interned-eql-specializers*)
        (setf (gethash object *interned-eql-specializers*)
              (make-instance 'eql-specializer
                             :object object))))
  
  (values)) ;end progn
  