anchor.diff:  		 :tester ((object)
   			  (and (not (wild-pathname-p object))
                                  (probe-file object)
  -                               (pathname-name object))))
  +                               (pathname-name object)
  +                               (let ((mime-type (pathname-mime-type object)))
  +                                 (and mime-type (subtypep mime-type 'text))))))
     (object)
     (list object))
   
  
positive.code: 			       :provide-output-destination-keyword t)
    ((object 'pathname :prompt "pathname"))
    (show-file object))
  
  (define-command (com-display-image :name t :command-table filesystem-commands
                                             :menu t)
  
negative.code:              (mv-or
                (when mime-type (mime-type-to-command mime-type pathname))
                (when command
                  (values command doc pointer-doc))))))))
  
  (define-presentation-translator automagic-pathname-translator
    (clim:pathname clim:command filesystem-commands
  