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: 	 :documentation "The configuration-schema name")
     (parents :initarg :parents
  	    :accessor parents
  	    :initform nil
  	    :documentation "Configuration-Schema mixins")
     (title :initarg :title
  	  :accessor title
  