anchor.diff:    (setf (slot-value pane 'name) name)
     pane)
   
  -(defun do-pane-creation-form (name form)
  +(defun generate-pane-creation-form (name form)
     (destructuring-bind (pane &rest options) form
       (cond ((and (null options) (listp pane)) ; Single form which is a function call
              `(coerce-pane-name ,pane ',name))
  
positive.code:           ,@user-default-initargs)
           ,@other-options)
  
         ,(make-panes-generate-panes-form
           name menu-bar panes layouts pointer-documentation)
  
         ,@(when command-table
  
negative.code:           (t ; Non-standard pane designator fed to the `make-pane'
             `(make-pane ',pane :name ',name ,@options)))))
  
  (defun generate-generate-panes-form (class-name menu-bar panes layouts
                                   pointer-documentation)
    (when pointer-documentation
      (setf panes (append panes
                          '((%pointer-documentation%
  