anchor.diff:  		    :documentation ,(if documentation
   					documentation
   					"")
  -		    :sections (mapcar (lambda (section)
  +		    :direct-sections (mapcar (lambda (section)
   					(destructuring-bind (_ name title &rest body)
   					    section
   					  (declare (ignore _))
   					  (make-configuration-schema-section name title body)))
  -				      ',sections)))))
  +				      ',direct-sections)))))
   
   (defun make-configuration-schema-section (name title args)
     (let ((documentation (find :documentation args :key #'first))
  -	(options (filter (lambda (elem)
  +	(direct-options (filter (lambda (elem)
   			   (not (equalp (first elem) :documentation)))
   			 args)))
       (make-instance 'configuration-schema-section
   		   :name name
   		   :title title
   		   :documentation documentation
  -		   :options
  +		   :direct-options
   		   (mapcar
   		    (lambda (option)
   		      (destructuring-bind (name title type-spec &rest rest)
  
positive.code: 	  list :initial-value nil))
  
  (defmacro define-configuration-schema (name parents &rest args)
    (let ((sections (filter (lambda (elem)
  			    (equalp (first elem) :section))
  			  args))
  	(title (first (filter (lambda (elem)
  
negative.code: 	  :accessor title
  	  :initform (error "Provide a title for the configuration-schema")
  	  :documentation "Configuration-Schema title")
     (direct-sections :initarg :direct-sections
  	     :accessor direct-sections
  	     :initform (make-hash-table :test #'equalp)
  	     :documentation "Configuration-Schema direct-sections")
     (documentation :initarg :documentation
  		  :accessor documentation*
  		  :documentation "Configuration-Schema documentation"))
  