anchor.diff:  	 :accessor option-type
   	 :initform (error "Provide the option type")
   	 :documentation "The option type")
  +   (optional :initarg :optional
  +	     :initform nil
  +	     :accessor optional
  +	     :documentation "t when the parameter is optional")
      (default :initarg :default
        :initform nil
        :accessor default
  
positive.code: 		  :accessor documentation*))
    (:documentation "A configuration-schema section"))
  
  (defclass configuration-schema-option ()
    ((name :initarg :name
  	 :accessor name
  
negative.code: 		  :documentation "Configuration-Schema documentation"))
    (:documentation "A configuration-schema"))
  
  (defmethod print-object ((configuration-schema configuration-schema) stream)
    (print-unreadable-object (configuration-schema stream :type t :identity t)
      (format stream "~A ~S"
  	    (name configuration-schema)
  	    (title configuration-schema))))
  
  (defclass configuration-schema-section ()
    ((name :initarg :name
  	 :accessor name
  