anchor.diff:  			   :command-table lisp-commands
                              :menu t
   			   :provide-output-destination-keyword nil)
  -    ((fsym 'function-name :prompt "function-name"))
  +    ((fsym 'function-name :prompt "function name"))
     (if (fboundp fsym)
         (progn 
   	(eval `(trace ,fsym))
  
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)
    ((function-name 'function-name :prompt "function name"))
    (clim-sys:make-process (lambda () (ed function-name))))
  
  (define-presentation-to-command-translator edit-definition
    (function-name com-edit-definition lisp-commands :gesture :select
  	  :pointer-documentation ((object stream)
  				  (format stream "Edit Definition of ~A" object))
  	  :documentation ((stream) (format stream "Edit Definition")))
    (object)
    (list object))
  		   
  