anchor.diff:  	    (title section))))
   
   (defmethod initialize-instance :after ((configuration-schema-section configuration-schema-section) &rest initargs)
  -  (let ((options (make-hash-table :test #'equalp)))
  -    (loop for option in (getf initargs :options)
  +  (let ((direct-options (make-hash-table :test #'equalp)))
  +    (loop for option in (getf initargs :direct-options)
   	  do
  -	 (setf (gethash (name option) options) option))
  -    (setf (options configuration-schema-section) options)))
  +	 (setf (gethash (name option) direct-options) option))
  +    (setf (direct-options configuration-schema-section) direct-options)))
   
   (defclass configuration-schema-option ()
     ((name :initarg :name
  
positive.code: 	    (title configuration-schema))))
  
  (defmethod initialize-instance :after ((configuration-schema configuration-schema) &rest initargs)
    (let ((sections (make-hash-table :test #'equalp)))
      (loop for section in (getf initargs :sections)
  	  do
  	 (setf (gethash (name section) sections) section))
      (setf (sections configuration-schema) sections)))
  
  (defclass configuration-schema-section ()
    ((name :initarg :name
  
negative.code: 	  list :initial-value nil))
  
  (defmacro define-configuration-schema (name parents &rest args)
    (let ((direct-sections (filter (lambda (elem)
  			    (equalp (first elem) :section))
  			  args))
  	(title (first (filter (lambda (elem)
  