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: 	     :initform nil
  	     :accessor advanced
  	     :documentation "t when this is an advanced option")
     (documentation :initarg :documentation
  		  :initform nil
  		  :accessor documentation*
  		  :documentation "The option documentation string"))
    (:documentation "A configuration-schema option"))
  
  (defvar *option-types* (make-hash-table :test #'equal))
  
  
negative.code: 		  :accessor documentation*))
    (:documentation "A configuration-schema section"))
  
  (defmethod print-object ((section configuration-schema-section) stream)
    (print-unreadable-object (section stream :type t :identity t)
      (format stream "~A ~S"
  	    (name section)
  	    (title section))))
  
  (defclass configuration-schema-option ()
    ((name :initarg :name
  	 :accessor name
  