anchor.diff:      ;; commands to work ] works really badly if (frame-command-table
       ;; *application-frame*) is set/bound to the dispatching
       ;; command-table itself.
  -    ;; 
  +    ;;
       ;; Instead we now use the knowledge of how disabled commands are
       ;; implemented to satisfy the constraint that only enabeled
       ;; commands are acceptable (with the "accessible" constraint being
  
positive.code: 				     &key name menu keystroke (errorp t)
  				     (menu-command (and menu
  							`(,command-name))))
    
    (let ((table (find-command-table command-table))
  	(name (cond ((stringp name)
  		     name)
  
negative.code:                           (declare (ignore foo))
                            *unsupplied-argument-marker*)
                        (required-args parser))))))
  
  ;;; XXX The spec says that GESTURE may be a gesture name, but also that the
  ;;; default test is event-matches-gesture-name-p.  Uh...
  
  