anchor.diff:    ((name :initarg :name
   	 :accessor name
   	 :initform (error "Provide the type-item name"))
  -   (title :initarg title
  +   (title :initarg :title
   	  :accessor title
   	  :initform (error "Provide the type-item title"))
      (configuration :initarg :configuration
  
positive.code: 
  (defmacro one-of (options &rest args)
    `(make-instance 'one-of-configuration-option-type
  		  :options (list (mapcar #'make-configuration-type-item ',options))
  		  ,@args))
  
  (defmacro some-of (options &rest args)
  
negative.code:   )  
  
  (defclass one-of-configuration-option-type (configuration-option-type)
    ((options :initarg :options
  	    :accessor options))
    (:documentation "Choose one of the options"))
  
  (defclass text-configuration-option-type (configuration-option-type)
  