anchor.diff:  		   ((typep new-val 'document)
   		    (setf document new-val))
   		   (T
  -		    (setf (aref document (getf options :default-field))
  +		    (setf (aref document (get-index-option options :default-field))
   			  (string new-val))))
   	     (delete reader id)
   	     (let ((writer (writer self)))
  
positive.code: 
  (defmethod initialize-instance :after ((self index) &rest args &key &allow-other-keys)
    (with-slots (options) self
      (setf options (copy-list args))
      (setf (getf options :default-search-field) (getf options :default-search-field)
  	  (getf options :default-field) (getf options :default-field))
      (when (null (getf options :create-if-missing-p))
        (setf (getf options :create-if-missing-p) T))
      ;; FIXME: I don't flatten the :key option, I'm not sure why Ferret does.
      (with-slots (key dir options close-dir-p auto-flush-p create-p analyzer writer
  		     default-search-field default-field) self
        (setf key (getf options :key))
        (cond ((getf options :path)
  	     (setf dir (make-fs-directory (getf options :path)
  					  :create-p (or (getf options :create-p)
  							(getf options :create-if-missing-p))))
  	     (setf (getf options :close-dir-p) T))
  	    ((getf options :dir)
  	     (setf dir (getf options :dir)))
  	    (T
  	     (setf (getf options :create-p) T)
  	     (setf dir (make-instance 'ram-directory))))
        ;; Create the index if need be
        (setf writer (apply #'make-instance 'index-writer
  			  :directory dir
  			  options))
        (setf (getf options :analyzer) (setf analyzer (analyzer writer)))
        (close writer)
        (setf writer nil)
        ;; Only want to create the first time, if at all.
        (setf (getf options :create-p) NIL)
        (setf close-dir-p (getf options :close-dir-p))
        (setf (getf options :close-dir-p) NIL)
        (setf auto-flush-p (getf options :auto-flush))
        (setf default-search-field (or (getf options :default-search-field)
  				     (getf options :default-field)
  				     "*"))
        (setf default-field (or (getf options :default-field) ""))
        (when (not (getf options :handle-parse-errors-p))
  	(setf (getf options :handle-parse-errors-p) T)))))
      
  
  (defmethod close ((self index))
  
negative.code: 	     (setf dir (make-instance 'fs-directory
  				      :path directory
  				      :create-p create-p))
  	     (setf (get-index-option options :close-directory-p) T))
  	    ((typep directory 'directory)
  	     (setf dir directory)))
        (add-indexes (writer self) (vector old-dir)))))
  