anchor.diff:    (object)
     (clim-mop:class-name object))
   
  +(define-presentation-translator expression-to-function-name
  +  (expression function-name lisp-dev-commands
  +     :documentation ((object stream) (format stream "~A" object))
  +     :gesture t
  +     :tester ((object) (legal-and-fboundp object))
  +     :tester-definitive t)
  +  (object)
  +  object)
   (define-presentation-translator symbol-to-function-name
     (symbol function-name lisp-dev-commands
  -     :documentation ((object stream) (format stream "Function ~A" object))
  +     :documentation ((object stream) (format stream "~A" object))
        :gesture t
  -     :tester ((object) (fboundp object))
  +     :tester ((object) (legal-and-fboundp object))
        :tester-definitive t)
  -  (object) object)
  +  (object)
  +  object)
  +#+nil ; doesn't work for some reason
  +(define-presentation-translator sequence-to-function-name
  +  ((sequence t) function-name lisp-dev-commands
  +     :documentation ((object stream) (format stream "~A" object))
  +     :gesture t
  +     :tester ((object) (legal-and-fboundp object))
  +     :tester-definitive t)
  +  (object)
  +  object)
   
   ;;; Application commands
   
  
positive.code: 		 (write-char #\( stream)
  		 (present arg 'symbol :stream stream)
  		 (write-char #\space  stream)
  		 (with-output-as-presentation (stream spec 'class)
  		   (format stream "~S" (clim-mop:class-name spec)))
                   (write-char #\) stream))))
        (when optional
  	(format stream " &optional ~{~A ~^ ~}" optional))
  
negative.code: 			     :command-table lisp-commands
                               :menu t
  			     :provide-output-destination-keyword nil)
      ((fsym 'function-name :prompt "function name"))
    (if (fboundp fsym)
        (progn
  	(eval `(untrace ,fsym))
  