anchor.diff:     (title :initarg :title
   	  :accessor title
   	  :initform (error "Provide a title for the section"))
  -   (options :initarg :options
  -	    :accessor options
  +   (direct-options :initarg :direct-options
  +	    :accessor direct-options
   	    :initform (make-hash-table :test #'equalp))
      (documentation :initarg :documentation
   		  :accessor documentation*))
  
positive.code: 		    :documentation ,(if documentation
  					documentation
  					"")
  		    :sections (mapcar (lambda (section)
  					(destructuring-bind (_ name title &rest body)
  					    section
  					  (declare (ignore _))
  					  (make-configuration-schema-section name title body)))
  				      ',sections)))))
  
  (defun make-configuration-schema-section (name title args)
    (let ((documentation (find :documentation args :key #'first))
  	(options (filter (lambda (elem)
  			   (not (equalp (first elem) :documentation)))
  			 args)))
      (make-instance 'configuration-schema-section
  		   :name name
  		   :title title
  		   :documentation documentation
  		   :options
  		   (mapcar
  		    (lambda (option)
  		      (destructuring-bind (name title type-spec &rest rest)
  
negative.code: 	  :accessor title
  	  :initform (error "Provide a title for the configuration-schema")
  	  :documentation "Configuration-Schema title")
     (direct-sections :initarg :direct-sections
  	     :accessor direct-sections
  	     :initform (make-hash-table :test #'equalp)
  	     :documentation "Configuration-Schema direct-sections")
     (documentation :initarg :documentation
  		  :accessor documentation*
  		  :documentation "Configuration-Schema documentation"))
  