anchor.diff:      (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
  
positive.code:     (format stream "~A ~S"
  	    (name section)
  	    (title section))))
  
  (defclass configuration-schema-option ()
    ((name :initarg :name
  
negative.code: 	  :accessor title
  	  :initform (error "Provide a title for the section"))
     (options :initarg :options
  	    :accessor options
  	    :initform (make-hash-table :test #'equalp))
     (documentation :initarg :documentation
  		  :accessor documentation*))
    (:documentation "A configuration-schema section"))
  