anchor.diff:    (let* ((func (if (consp name-and-options) (first name-and-options) name-and-options))
            (options (if (consp name-and-options) (rest name-and-options) nil))
   	 (command-table (getf options :command-table nil))
  -	 (name (getf options :name (generate-name func)))
  +	 (name (getf options :name (command-name-from-symbol func)))
   	 (menu (getf options :menu nil))
   	 (keystroke (getf options :keystroke nil))
   	 )
  
positive.code:     (let ((command-line-name (gethash command-name (slot-value table 'commands))))
        (when (stringp command-line-name)
  	(return-from command-line-name-for-command command-line-name))))
    (cond ((eq errorp :create) (generate-name command-name))
  	(errorp (error 'command-not-accessible))
  	(t nil)))
  
  
negative.code: 		   (let ((menu-item-name
  			  (cond ((stringp menu) menu)
  				((and (eq menu t) (stringp name)) name)
  				((eq menu t) (command-name-from-symbol command-name))
  				((consp menu) (car menu)))))
  		     (apply #'add-menu-item-to-command-table
  			    command-table
  