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:    (command-table :initarg :command-table
  		  :initform nil
  		  :accessor frame-command-table)
     (named-panes :accessor frame-named-panes :initform nil)
     (panes :initform nil :accessor frame-panes
  	  :documentation "The tree of panes in the current layout.")
     (current-panes :initform nil :accessor frame-current-panes)
  
negative.code: ; FIXME
  
  (defun coerce-pane-name (pane name)
    (setf (slot-value pane 'name) name)
    pane)
  
  (defun do-pane-creation-form (name form)  
  