anchor.diff:  
   (defun (setf class-direct-superclasses) (new-value object)
     (when (not (standard-instance-p object))
  -    (error "no method for ~s on class-direct-superclasses" object))
  +    (error "no method for ~s on (setf class-direct-superclasses)" object))
     (let ((class (standard-instance-class object)))
       (cond ((or (eq class (find-class 'standard-class))
   	       (eq class (find-class 'funcallable-standard-class)))
   	   (setf (slot-value object '%direct-superclasses) new-value))
  -	  (t (error "no method for ~s on class-direct-superclasses"
  +	  (t (error "no method for ~s on (setf class-direct-superclasses)"
   		    object)))))
   
   (defun class-finalized-p (object)
  
positive.code:     (cond ((or (eq class (find-class 'standard-class))
  	       (eq class (find-class 'funcallable-standard-class)))
  	   (setf (slot-value object '%finalized-p) new-value))
  	  (t (error "no method for ~s on class-finalized-p"
  		    object)))))
  
  (defun class-unique-number (object)
  
negative.code: 	       (eq class (find-class 'funcallable-standard-class))
  	       (eq class (find-class 'built-in-class)))
  	   (setf (slot-value object '%unique-number) new-value))
  	  (t (error "no method for ~s on (setf class-unique-number)"
  		    object)))))
  
  (defun class-name (object)
  