anchor.diff:  
   (defmacro one-of (options &rest args)
     `(make-instance 'one-of-configuration-option-type
  -		  :options (list (mapcar #'make-configuration-type-item ',options))
  +		  :options (list ,@(mapcar (lambda (option)
  +					     (destructuring-bind (name title &rest args)
  +						 option
  +					       `(apply #'make-configuration-type-item ',name (cons ',title ',args))))
  +					   options))
   		  ,@args))
   
   (defmacro some-of (options &rest args)
  
positive.code: 
  (defclass configuration-option-type ()
    ((default :initarg :default
       :accessor default
       :documentation "The default value if there is one")))
  
  
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)
  