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:          ;; Can't override special operators.
           (error "~S names a special operator" function-name))
          ((or (and (fboundp function-name)
                    (not (find-generic-function function-name nil)))
               (and (symbolp function-name)
                    (macro-function function-name)))
           (cerror "Clobber it" 'simple-error
  
negative.code: ;;; programs without this feature of full CLOS.
  
  (defun add-method (gf method)
    ;; If the GF has no methods and an empty lambda-list, then it may have
    ;; been implicitly created via defmethod. Fill in the lambda-list.
    (when (and (endp (generic-function-methods gf))
               (endp (generic-function-lambda-list gf)))
      (setf (generic-function-lambda-list gf) (method-lambda-list method)))
    (let ((old-method
             (find-method gf (method-qualifiers method)
                             (method-specializers method) nil)))
  