anchor.diff:  							class writer (slot-definition-name shared-slot) index))
   					(incf index)))))
   	
  -	(if (eq (class-of class) the-class-standard-class)
  -		(std-finalize-inheritance class)
  -		(finalize-inheritance class))
  -	(values))
  +            (values))
   
   ;;; Slot definition metaobjects
   
  
positive.code:   (setf (method-generic-function method) gf)
    (push method (generic-function-methods gf))
    (dolist (specializer (method-specializers method))
      (pushnew method (class-direct-methods specializer)))
    (finalize-generic-function gf)
    method)
  
  (defun remove-method (gf method)
    (setf (generic-function-methods gf)
          (remove method (generic-function-methods gf)))
    (setf (method-generic-function method) nil)
    (dolist (class (method-specializers method))
      (setf (class-direct-methods class)
            (remove method (class-direct-methods class))))
    (finalize-generic-function gf)
    method)
  
  (defun find-method (gf qualifiers specializers
                      &optional (errorp t))
  
negative.code: 
  (defgeneric make-instance (class &key))
  (defmethod make-instance ((class standard-class) &rest initargs)
    (setq initargs (append initargs (mapappend #'(lambda (def-init)
                                                                                  (let ((key (car def-init)))
                                                                                      (unless (caddr (multiple-value-list (get-properties initargs (list key))))
                                                                                                   (list key (funcall (caddr def-init)))))) (class-default-initargs class))))
    (let ((instance (allocate-instance class)))
      (unless ; all subclasses of metaobject except strict subclasses of standard-class,
                   ; standard-generic-function and standard-method. Standard-class only for now.
              (and (subclassp class #.(find-class 'metaobject))
                      (or (eq class the-class-standard-class) (not (subclassp class the-class-standard-class))))
              (setf (std-instance-signature instance)
                      (list (class-effective-slots class) (class-shared-slot-definitions class) (class-shared-slots class))))
      (apply #'initialize-instance instance initargs)
      instance))
  (defmethod make-instance ((class symbol) &rest initargs)
  