anchor.diff:    (let ((direct-sections (filter (lambda (elem)
   			    (equalp (first elem) :section))
   			  args))
  -	(title (first (filter (lambda (elem)
  -				(equalp (first elem) :title))
  -			      args)))
  -	(documentation (first (find :documentation args :key #'first))))
  +	(title (second (find :title args :key #'first)))
  +	(documentation (second (find :documentation args :key #'first))))
       `(setf (gethash ',name *configuration-schemas*)
   	   (make-instance 'configuration-schema
   		    :name ',name
   		    :parents  ',parents
  -		    :title ,(second title)
  +		    :title ,title
   		    :documentation ,(if documentation
   					documentation
   					"")
  
positive.code: 	  :initform (error "Provide the type-item title"))
     (configuration :initarg :configuration
  		  :accessor configuration
  		  :documentation "How to configure this item-type")))
  
  (define-configuration-schema-option-type :one-of (&rest options)
  
negative.code: 				      ',direct-sections)))))
  
  (defun make-configuration-schema-section (name title args)
    (let ((documentation (second (find :documentation args :key #'first)))
  	(direct-options (filter (lambda (elem)
  			   (not (equalp (first elem) :documentation)))
  			 args)))
  