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