anchor.diff:    (let ((command-table (find-command-table command-table)))
       (%add-keystroke-item command-table
                            gesture
  -			 (make-instance 'menu-item
  +			 (make-instance '%menu-item
   					:type type :value value
   					:keystroke gesture
   					:documentation documentation)
  
positive.code: 	(when errorp
  	  (error 'command-not-present))
  	(progn 
  	  (when (typep item 'menu-item)
  	    (remove-menu-item-from-command-table table
  						 (command-menu-item-name item)
                                                   :errorp nil))
  
negative.code:    (text-style :initarg :text-style :initform nil)
     (keystroke :initarg :keystroke)))
  
  (defmethod print-object ((item %menu-item) stream)
    (print-unreadable-object (item stream :identity t :type t)
      (when (slot-boundp item 'menu-name)
        (format stream "~S" (command-menu-item-name item)))
  