anchor.diff:  	     (setf dir (make-instance 'fs-directory
   				      :path directory
   				      :create-p create-p))
  -	     (setf (getf options :close-dir-p) T))
  +	     (setf (get-index-option options :close-directory-p) T))
   	    ((typep directory 'directory)
   	     (setf dir directory)))
         (add-indexes (writer self) (vector old-dir)))))
  
positive.code: 		   ((typep new-val 'document)
  		    (setf document new-val))
  		   (T
  		    (setf (aref document (getf options :default-field))
  			  (string new-val))))
  	     (delete reader id)
  	     (let ((writer (writer self)))
  
negative.code: 		  ((typep new-val 'document)
  		   (setf document new-val))
  		  (T
  		   (setf (get-field document (get-index-option (slot-value self 'options) :default-field))
  			 (string new-val))))
  	    (push document docs-to-add)
  	    (delete reader id)))))
  