anchor.diff:  		   (let ((command-line-name
   			  (if (stringp name)
   			      name
  -			      (generate-name command-name))))
  +			      (command-name-from-symbol command-name))))
   		     (setf (gethash command-name commands) command-line-name)
   		     (setf (gethash command-line-name command-line-names)
   			   command-name)))
  
positive.code: 			     :menu ',menu
  			     :errorp nil)))))
  
  (defun generate-name (symbol)
    (let ((name (symbol-name symbol)))
      (string-capitalize
       (substitute
  
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
  