anchor.diff:  ; FIXME
   
   (defun coerce-pane-name (pane name)
  -  (when pane
  -    (setf (slot-value pane 'name) name)    
  -    (push pane (frame-named-panes (pane-frame pane))))
  +  (setf (slot-value pane 'name) name)
     pane)
   
   (defun do-pane-creation-form (name form)  
  
positive.code: 		  (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))
  
negative.code: 	nil)))
  
  (defmethod find-pane-named ((frame application-frame) pane-name)
    (map-over-sheets #'(lambda (p)
                         (when (eql pane-name (pane-name p))
                           (return-from find-pane-named p)))
                     (frame-panes frame)))
  
  
  