anchor.diff:  (defvar *configuration-schemas* (make-hash-table :test #'equal))
   
   (defclass configuration-schema ()
  -  ((parents :initarg :parents
  +  ((name :initarg :name
  +	 :accessor name
  +	 :initform (error "Provide a name for the configuration-schema")
  +	 :documentation "The configuration-schema name")
  +   (parents :initarg :parents
   	    :accessor parents
   	    :initform '(standard-configuration-schema)
   	    :documentation "Configuration-Schema mixins")
  -   (name :initarg :name
  -	 :accessor name
  -	 :initform (error "Provide a name for the configuration-schema")
  -	 :documentation "The configuration-schema name")
      (title :initarg :title
   	  :accessor title
   	  :initform (error "Provide a title for the configuration-schema")
   	  :documentation "Configuration-Schema title")
      (sections :initarg :sections
   	     :accessor sections
  +	     :initform (make-hash-table :test #'equalp)
   	     :documentation "Configuration-Schema sections")
      (documentation :initarg :documentation
   		  :accessor documentation*
  
positive.code:     (format stream "~A ~S"
  	    (name section)
  	    (title section))))
  
  (defclass configuration-schema-option ()
    ((name :initarg :name
  
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
  