anchor.diff:  		  (apply #'call-next-method fm frame type
   			 :input-buffer (frame-event-queue frame)
   			 args))))
  -    (when namep
  -      (push pane (frame-named-panes frame)))
       pane))
   
   (defmethod adopt-frame ((fm frame-manager) (frame application-frame))
  
positive.code: 	nil)))
  
  (defmethod find-pane-named ((frame application-frame) pane-name)
    (find pane-name (frame-named-panes frame) :key #'pane-name))
  
  
  
negative.code:    (command-table :initarg :command-table
  		  :initform nil
  		  :accessor frame-command-table)
     (panes :initform nil :accessor frame-panes
  	  :documentation "The tree of panes in the current layout.")
     (current-panes :initform nil :accessor frame-current-panes)
  