anchor.diff:  				     &key &allow-other-keys)
     (let ((name (c2mop:generic-function-name
   	       (c2mop:method-generic-function object)))
  -	(qualifiers (c2mop:method-qualifiers object))
  +	(qualifiers (method-qualifiers object))
   	(specializers (c2mop:method-specializers object))
   	(lambda-list (c2mop:method-lambda-list object))
   	(class-of-t (find-class t)))
  
positive.code: 	(primary nil))
      (loop
         for meth in methods
         for (qualifier) = (c2mop:method-qualifiers meth)
         do (case qualifier
  	    (:before
  	     (push meth before))
  
negative.code: 	   for class in class-list
  	   do (progn
  		(with-output-as-presentation (*standard-output*
  					      (class-name class)
  					      'class-name
                                                :single-box t)
  		  (format *standard-output*
  			  "~S~%" (class-name class)))))))
      (when methods
        (let ((args nil)
  	    (arg-types nil))
  