anchor.diff:  	  :accessor title
   	  :initform (error "Provide a title for the section"))
      (options :initarg :options
  -	    :accessor options)
  +	    :accessor options
  +	    :initform (make-hash-table :test #'equalp))
      (documentation :initarg :documentation
   		  :accessor documentation*))
     (:documentation "A configuration-schema section"))
  
positive.code: 	(gethash key *option-types*)
        (if (not found)
  	  (error "Found no definition for type ~A" key)
  	  (apply builder params)))))
  		 
negative.code:     (format stream "~A ~S"
  	    (name configuration-schema)
  	    (title configuration-schema))))
  
  (defmethod initialize-instance :after ((configuration-schema configuration-schema) &rest initargs)
    (let ((sections (make-hash-table :test #'equalp)))
      (loop for section in (getf initargs :sections)
  	  do
  	 (setf (gethash (name section) sections) section))
      (setf (sections configuration-schema) sections)))
  
  (defclass configuration-schema-section ()
    ((name :initarg :name
  