anchor.diff:          (unless (typep (first spec) '(or standard-class funcallable-standard-class class))
             (setf (generic-function-has-unusual-specializers gf) t))
           (unless (eql (first spec) class-t)
  -          (setf (aref relevant-args i) 1))))
  +          (setf (bit relevant-args i) 1))))
       (setf (generic-function-relevant-arguments gf) relevant-args))
     (setf (classes-to-emf-table gf) (make-hash-table :test (if (generic-function-single-dispatch-p gf)
                                                                #'eq
  
positive.code: ;;; programs without this feature of full CLOS.
  
  (defun add-method (gf method)
    (let ((old-method
             (find-method gf (method-qualifiers method)
                             (method-specializers method) nil)))
  
negative.code:           compute-applicable-methods
            compute-effective-method-function compute-method-function
            apply-methods apply-method
  
            metaobject specializer class
            structure-class structure-object
  