anchor.diff:  (define-command (com-about-mcclide :name "About"
                                      :command-table help-commands
                                      :menu t)
  -    ())
  +    ()
  +  (run-frame-top-level
  +   (make-application-frame 'about-dialog)))
  +
  +(define-command (com-room :name "Room"
  +                          :command-table help-commands
  +                          :menu t)
  +    ()
  +  (run-frame-top-level
  +   (make-application-frame 'room-dialog)))
   
   (define-command-table tools-commands
       :inherit-from nil
  
positive.code:                                        :menu t)
      ())
  
  (defun mcclide ()
    (run-frame-top-level
     (make-application-frame 'mcclide)))
negative.code: (define-command (com-open-file :name "Open file"
                                 :command-table file-commands
                                 :menu t)
      ()
    (file-selector:select-file :own-window t :pathname-type "lisp" :style 'list))
  
  (define-command-table edit-commands :inherit-from nil)
  
  