anchor.diff:  2 > 
   
   |#
  +
   (let ((index (make-instance 'index
                  :path "user-home:temporary;montezuma-test")))
     (add-document-to-index index '(("title" . "Programming Ruby")
  
positive.code: (defpackage #:montezuma-lift
    (:use #:common-lisp #:montezuma #:lift))
  (in-package montezuma-lift)
  
  #|
  > Error: Unbound-slot POSITION in #<SEGMENT-TERM-ENUM #x3FFF4A6>.
  
negative.code:              document (make-unstored-field "contents" unstored))
              (montezuma::add-field 
               document (make-text-field "city" text))
              (montezuma::add-document-to-index-writer writer document)))
      (montezuma::optimize writer)
      (montezuma::close writer))) 
  
  