anchor.diff:    (inspector-table
         (format pane "Generic Function: ~s"
   	      (clim-mop:generic-function-name object))
  -    (loop for method in (clim-mop:generic-function-methods object)
  -          do (with-output-as-presentation
  -                 (pane method (presentation-type-of method))
  -               (formatting-row (pane)
  -                 (formatting-cell (pane)
  -                   (print (method-qualifiers method)))
  -                 (loop for specializer in (clim-mop:method-specializers method)
  -                    do (formatting-cell (pane)
  -			 (if (typep specializer 'clim-mop:eql-specializer)
  -			     (progn
  -			       (princ "(EQL " pane)
  -			       (inspect-object
  -				(clim-mop:eql-specializer-object
  -				 specializer)
  -				pane)
  -			       (princ ")" pane))
  -			     (inspect-object (class-name specializer)
  -					     pane)))))))))
  +    (dolist (method (clim-mop:generic-function-methods object))
  +      (with-output-as-presentation
  +	  (pane method (presentation-type-of method))
  +	(formatting-row (pane)
  +	  (formatting-cell (pane)
  +	    (print (method-qualifiers method)))
  +	  (loop for specializer in (clim-mop:method-specializers method)
  +		do (formatting-cell (pane)
  +		     (if (typep specializer 'clim-mop:eql-specializer)
  +			 (progn
  +			   (princ "(EQL " pane)
  +			   (inspect-object
  +			    (clim-mop:eql-specializer-object
  +			     specializer)
  +			    pane)
  +			   (princ ")" pane))
  +			 (inspect-object (class-name specializer)
  +					 pane)))))))))
   
   (defun pretty-print-function (fun)
     "Print a function in a readable way, returning a string. On most
  
positive.code:         (inspect-object nick pane)))
      (inspector-table-row
        (princ "Used by:")
        (dolist (used-by (package-used-by-list object))
            (inspect-object used-by pane)))
      (inspector-table-row
        (princ "Uses:")
        (dolist (uses (package-use-list object))
  
negative.code:        (formatting-column (pane)
           (formatting-cell (pane)
             (surrounding-output-with-border (pane)
  	     (with-heading-style (pane)
  	       ,header)))
           (formatting-cell (pane)
             (formatting-table (pane)
               ,@body))))
  