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