anchor.diff:                                          (format pane "~A" (cfg::title parent)))
                                         (loop for parent-name in (cdr parents)
                                            do
  -                                           (let ((parent (cfg::find-configuration-schema parent-name)))
  -                                             (with-output-as-presentation (pane parent 'configuration-schema)
  -                                               (format pane ", ~A" (cfg::title parent)))))))
  +                                         (let ((parent (cfg::find-configuration-schema parent-name)))
  +                                           (with-output-as-presentation (pane parent 'configuration-schema)
  +                                             (format pane ", ~A" (cfg::title parent)))))))
                                     (format pane "~A" "No parents"))))))
                (make-pane 'vrack-pane :contents
                           (loop for section being the hash-values of
  
positive.code:     ((configuration-schema 'configuration-schema))
    (sb-thread:make-thread (lambda ()
                             (run-frame-top-level
                              (make-application-frame 'configuration-schema-viewer :configuration-schema configuration-schema)))))
    
  (defun run-configuration-editor (configuration)
    (run-frame-top-level
  
negative.code:   (run-configuration-schema-viewer
     (cl-config::find-configuration-schema 'cfg::standard-configuration)))
  
  (define-application-frame list-configuration-editor ()
    ((configuration :initarg :configuration
                    :accessor configuration
                    :initform (error "Provide the configuration")))
    (:panes
     (sections-pane
      (with-slots (configuration) *application-frame*
        (let ((sections (loop for section being the hash-values of
                             (cfg::sections (cfg::configuration-schema configuration))
                             collect section)))
          (make-pane 'climi::extended-list-pane
                     :items sections
                     :name-key #'cfg::title
                     :value-changed-callback
                     (lambda (pane section)
                       (declare (ignore pane))
                       (let ((section-configuration-pane
                              (find-pane-named *application-frame* 'section-configuration-pane)))
                         (sheet-disown-child section-configuration-pane
                                             (first (sheet-children section-configuration-pane)))
                         (clim:with-look-and-feel-realization ((clim:frame-manager clim:*application-frame*)
                                                               clim:*application-frame*)
                           (sheet-adopt-child section-configuration-pane
                                              (make-configuration-section-pane configuration section)))))
                     :item-padding (climi::make-padding 10 5 10 5)))))
     (section-configuration-pane
      (scrolling (:height 500)
        (with-slots (configuration) *application-frame*
          (let ((sections (loop for section being the hash-values of
                               (cfg::sections (cfg::configuration-schema configuration))
                             collect section)))
            (make-configuration-section-pane configuration (first sections))))))
     (apply-button (make-pane 'push-button :label "Apply"))
     (cancel-button (make-pane 'push-button :label "Cancel")))
    (:layouts
     (default
         (vertically ()
           (horizontally ()
             (1/3 (scrolling(:height 500)
                    sections-pane))
             (2/3 section-configuration-pane))
           (horizontally ()
             apply-button cancel-button)))))
  
  (defun run-list-configuration-editor (configuration)
    (run-frame-top-level
     (make-application-frame 'list-configuration-editor :configuration configuration)))