anchor.diff:  (defun finalize-built-in-inheritance (class)
     (setf (c-precedence-list class) (compute-class-precedence-list class))
     (setf (c-slots class) (compute-built-in-slots class))
  -  (setf (c-default-initargs class) (compute-default-initargs-aux class))
  +  (setf (c-default-initargs class) (compute-default-initargs-default class))
     (setf (c-finalized-p class) t))
  
positive.code: 	 (names (mapcar #'slot-definition-name reverse-concatenated))
  	 (unique (remove-duplicates names :from-end t))
  	 (slots (loop for name in unique
  		      collect (compute-effective-slot-definition-aux
  			       name
  			       (remove name concatenated
  				       :key #'slot-definition-name
  
negative.code: 	 (next-location 0))
      (loop for slot in slots
  	  do (when (eq (slot-definition-allocation slot) :instance)
  	       (setf (s-location slot)
  		     next-location)
  	       (incf next-location)))
      slots))
  