anchor.diff:                     (print (method-qualifiers method)))
                    (loop for specializer in (clim-mop:method-specializers method)
                       do (formatting-cell (pane)
  -                         (format pane "~a "
  -				 (if (typep specializer
  -					    'clim-mop:eql-specializer)
  -				     (format nil "(EQL ~S)"
  -					     (clim-mop:eql-specializer-object
  -					      specializer))
  -				     (class-name specializer))))))))))
  +			 (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:       (when documentation
  	(format stream "~&Documentation: ~A~%" documentation))
        (format stream "~&Type: ~S~%"
  	      (clim-mop:slot-definition-type slot-object)))))
negative.code: (defmethod inspect-object-briefly ((object symbol) pane)
    (with-output-as-presentation
        (pane object (presentation-type-of object))
      (prin1 object)))
  
  (defmethod inspect-object ((object symbol) pane)
    (inspector-table
  