anchor.diff:  (defmethod find-pane-named ((frame application-frame) pane-name)
     (find pane-name (frame-named-panes frame) :key #'pane-name))
   
  -;;; XXX: these functions may be precomputed during the layout change
  -;;; in `generate-panes' method.
  -(defmethod frame-standard-output ((frame application-frame))
  -  (or (find-pane-of-type (frame-current-panes frame) 'application-pane)
  -      (find-pane-of-type (frame-current-panes frame) 'interactor-pane)))
  -
  -(defmethod frame-standard-input ((frame application-frame))
  -  (or (find-pane-of-type (frame-current-panes frame) 'interactor-pane)
  -      (frame-standard-output frame)))
  -
  -(defmethod frame-query-io ((frame application-frame))
  -  (or (frame-standard-input frame)
  -      (frame-standard-output frame)))
  -
  -(defmethod frame-error-output ((frame application-frame))
  -  (frame-standard-output frame))
  -
  -(defmethod frame-pointer-documentation-output ((frame application-frame))
  -  (find-pane-of-type (frame-panes frame) 'pointer-documentation-pane))
  -
    
   #+nil
  
positive.code:                              (sorted-panes pane)
                               ;; reduce search time
                               (setf panes (delete pane panes))))
                         named-panes)))))))
  
  (defmacro define-application-frame (name superclasses slots &rest options)
    (when (null superclasses)
  
negative.code: 		   :initarg :current-layout
  		   :accessor frame-current-layout)
     (panes-for-layout :initform nil :accessor frame-panes-for-layout
  		     :documentation "alist of names and panes ~
                                       (as returned by make-pane)")
  
     (output-pane :initform nil
                  :accessor frame-standard-output
                  :accessor frame-error-output)
     (input-pane :initform nil
                 :accessor frame-standard-input
                 :accessor frame-query-io)
     (documentation-pane :initform nil
                         :accessor frame-pointer-documentation-output)
  
     (top-level-sheet :initform nil
  		    :reader frame-top-level-sheet)
     (menu-bar :initarg :menu-bar
  