anchor.diff:  	  (pane method (presentation-type-of method))
   	(formatting-row (pane)
   	  (formatting-cell (pane)
  -	    (print (method-qualifiers method)))
  +	    (with-text-family (pane :fix)
  +	      (print (clim-mop:method-qualifiers method) pane)))
   	  (loop for specializer in (clim-mop:method-specializers method)
   		do (formatting-cell (pane)
   		     (if (typep specializer 'clim-mop:eql-specializer)
  
positive.code: 	  (formatting-cell (pane)
  	    (inspect-object (cdr object) pane))))))
  
  (defun inspect-cons-as-list (object pane)
    "Inspect a cons cell in a traditional, plain-text format. The only
  difference between this and simply using the Lisp printer is that this
  code takes advantage of CLIM's tables and presentations to make the
  list as interactive as you would expect."
    (with-output-as-presentation
      (pane object 'cons)
      (formatting-table (pane)
        (formatting-row (pane)
          (formatting-cell (pane)
  
negative.code:      (when (clim-mop:class-direct-superclasses class)
         (inspector-table-row
  	(princ "Superclasses" pane)
  	(inspect-vertical-list (clim-mop:class-direct-superclasses class)
  			       pane)))
       (when (clim-mop:class-direct-subclasses class)
         (inspector-table-row
  	(princ "Subclasses" pane)
  	(inspect-vertical-list (clim-mop:class-direct-subclasses class)
  			       pane)))
       (loop for slot in (reverse (clim-mop:class-slots class))
  	   do (let ((slot-name (clim-mop:slot-definition-name slot)))
  		(inspector-table-row
  