anchor.diff:    )  
   
   (defclass one-of-configuration-option-type (configuration-option-type)
  -  ((options :accessor options))
  +  ((options :initarg :options
  +	    :accessor options))
     (:documentation "Choose one of the options"))
   
   (defclass text-configuration-option-type (configuration-option-type)
  
positive.code:   ((name :initarg :name
  	 :accessor name
  	 :initform (error "Provide the type-item name"))
     (title :initarg title
  	  :accessor title
  	  :initform (error "Provide the type-item title"))
     (configuration :initarg :configuration
  
negative.code: 
  (defclass configuration-option-type ()
    ((default :initarg :default
       :initform nil
       :accessor default
       :documentation "The default value if there is one")))
  
  