anchor.diff:  		  :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
  
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: 		  :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
  