anchor.diff:                                            :contents
                                             (loop for option-schema being the hash-values of (cfg::direct-options section)
                                                collect
  -                                             (mapcar #'label
  -                                                     (list
  -                                                      (prin1-to-string (cfg::name option-schema))
  -                                                      (title option-schema)
  -                                                      (if (cfg::optional option-schema)
  -                                                          "Yes" "No")
  -                                                      (if (slot-boundp option-schema 'cfg::default)
  -                                                          (prin1-to-string (cfg::default option-schema))
  -                                                          "--")
  -                                                      (if (cfg::advanced option-schema)
  -                                                          "Yes" "No")
  -                                                      (or (cfg::documentation* option-schema) "")))))))))))))))
  +                                               (append
  +                                                (mapcar #'label
  +                                                        (list
  +                                                         (prin1-to-string (cfg::name option-schema))
  +                                                         (title option-schema)
  +                                                         (if (cfg::optional option-schema)
  +                                                             "Yes" "No")
  +                                                         (if (slot-boundp option-schema 'cfg::default)
  +                                                             (prin1-to-string (cfg::default option-schema))
  +                                                             "--")
  +                                                         (if (cfg::advanced option-schema)
  +                                                             "Yes" "No")))
  +                                                (list
  +                                                 (let ((pane
  +                                                        (make-pane 'application-pane
  +                                                                   :width 50
  +                                                                   :height 50
  +                                                                   :display-function
  +                                                                   (let ((option-schema option-schema))
  +                                                                     (lambda (frame pane)
  +                                                                       (format pane "~A" (or (cfg::documentation* option-schema) ""))
  +                                                                       )))))                                                   
  +                                                   pane)))))))))))))))
   
   (define-application-frame configuration-editor ()
     ((configuration :initarg :configuration
  
positive.code:   (run-configuration-schema-viewer
     (cl-config::find-configuration-schema 'cfg::standard-configuration)))
  
  
  
  
negative.code:          (labelling (:label (title configuration-schema))
             (vertically ()
               (labelling (:label "Overview")
                 (make-pane 'application-pane
                            :height 100
                            :display-function
                            (lambda (frame pane)
                              (declare (ignore frame))
                            
                              (format pane "~A" (cfg::documentation* configuration-schema))
                              (let ((parents (slot-value configuration-schema 'cfg::parents)))
  