anchor.diff:  				     :command-table lisp-commands
                                        :menu t
   				     :provide-output-destination-keyword nil)
  -  ((symbol 'symbol :prompt "function-name"))
  -  (clim-sys:make-process (lambda () (ed symbol))))
  -
  -(defun editable-definition-p (symbol)
  -  (fboundp symbol))
  +  ((function-name 'function-name :prompt "function name"))
  +  (clim-sys:make-process (lambda () (ed function-name))))
   
   (define-presentation-to-command-translator edit-definition
  -  (symbol com-edit-definition lisp-commands :gesture :select
  +  (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"))
  -	  :tester ((object)
  -		   (editable-definition-p object)))
  +	  :documentation ((stream) (format stream "Edit Definition")))
     (object)
     (list object))
   		   
  
positive.code: 
  ;;; Presentation types
  
  (define-presentation-type class () :inherit-from 'expression)
  (define-presentation-type class-name () :inherit-from 'symbol)
  (define-presentation-type slot-definition () :inherit-from 'expression)
  (define-presentation-type function-name () :inherit-from 'symbol)
  (define-presentation-type process () :inherit-from 'expression)
  (define-presentation-type generic-function () :inherit-from 't)
  
  
negative.code: 
  (define-presentation-type package-name () :inherit-from 'string)
  (define-presentation-method presentation-typep (object (type package-name))
    (find-package object))
  
  ;;; Presentation methods
  
  