anchor.diff:  		 (dotimes (i file-count)
   		   (push (read-string input) filenames)))
   	    (close input))
  -	  filenames))))
  +	  (reverse filenames)))))
   
   (defmethod write-deletable-files ((self index-writer) filenames)
     (with-slots (directory) self
  -    (let ((output (create-output directory "deletable.new")))
  +    (let ((output (create-output directory "deleteable.new")))
         (unwind-protect
   	   (progn
   	     (write-int output (length filenames))
   	     (dolist (filename filenames)
   	       (write-string output filename)))
   	(close output)))
  -    (rename-file directory "deletable.new" "deletable")))
  +    (rename-file directory "deleteable.new" "deletable")))
  
positive.code:       (dolist (filename filenames)
  	(handler-case (delete-file directory filename)
  	  (error (e) (push filename deletions-to-retry))))
        deletions-to-retry)))
      
  (defmethod read-deletable-files ((self index-writer))
    (with-slots (directory) self
  
negative.code: 				   :term-index-interval term-index-interval)))
        (when (= (size segment-infos) 1)
  	(let ((s-reader (get-segment-reader (segment-info segment-infos 0))))
  	  (add-reader merger s-reader)
  	  (push segments-to-delete s-reader)))
        (dolist (reader readers)
  	(add-segment merger reader))
  