anchor.diff:  		   :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)")
  +		     :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
  
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: (defmethod find-pane-named ((frame application-frame) pane-name)
    (find pane-name (frame-named-panes frame) :key #'pane-name))
  
  
  #+nil
  