anchor.diff:  			(apply #'make-configuration-schema-option
   			       (append (list name title type-spec)
   				       rest))))
  -		    options))))
  +		    direct-options))))
   
   (defun make-configuration-schema-option (name title type-spec &rest args)
     (apply #'make-instance 'configuration-schema-option
  
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: 	    (title section))))
  
  (defmethod initialize-instance :after ((configuration-schema-section configuration-schema-section) &rest initargs)
    (let ((direct-options (make-hash-table :test #'equalp)))
      (loop for option in (getf initargs :direct-options)
  	  do
  	 (setf (gethash (name option) direct-options) option))
      (setf (direct-options configuration-schema-section) direct-options)))
  
  (defclass configuration-schema-option ()
    ((name :initarg :name
  