anchor.diff:                           ,@layouts)))))
   
          ;; XXX: this computation may be cached for each layout!
  -       (let ((named-panes (frame-named-panes frame))
  +       (let ((named-panes (mapcar #'cdr (frame-panes-for-layout frame)))
                (panes nil))
   
            ;; Find intersection of named panes and current layout panes
  
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: ; FIXME
  
  (defun coerce-pane-name (pane name)
    (setf (slot-value pane 'name) name)
    pane)
  
  (defun do-pane-creation-form (name form)  
  