anchor.diff:    ()
     (: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
  
positive.code: 	    (class-name (class-of method))
  	    (generic-function-name (method-generic-function method))
  	    (method-qualifiers method)
  	    (mapcar #'class-name (method-specializers method))))
    method)
  
  ;;;
  
negative.code:           ;;
            compute-discriminating-function
            compute-applicable-methods-using-classes method-more-specific-p
            compute-applicable-methods
            compute-effective-method-function compute-method-function
            apply-methods apply-method
            find-generic-function  ; Necessary artifact of this implementation
  
            metaobject specializer class
            structure-class structure-object
            intern-eql-specializer eql-specializer eql-specializer-object
            ))
  
  (export exports)
  