anchor.diff:      `(setf (gethash ',name *configuration-schemas*)
   	   (make-instance 'configuration-schema
   		    :name ',name
  -		    :parents (list ,@parents)
  +		    :parents  ',parents
   		    :title ,(second title)
   		    :documentation ,(if documentation
   					documentation
  
positive.code:     (loop for section in (getf initargs :direct-sections)
  	  do
  	 (setf (gethash (name section) direct-sections) section))
      (setf (direct-sections configuration-schema) direct-sections)))
  
  (defclass configuration-schema-section ()
    ((name :initarg :name
  
negative.code: 
  (defvar *configuration-schemas* (make-hash-table :test #'equal))
  
  (defun find-configuration-schema (name)
    (multiple-value-bind (configuration-schema found-p)
        (gethash name *configuration-schemas*)
      (if found-p
  	configuration-schema
  	(error "Configuration schema ~A not defined" name))))
  
  (defclass configuration-schema ()
    ((name :initarg :name
  	 :accessor name
  