anchor.diff:  (defun load-index ()
     (setf *index* (make-instance 'montezuma:index
   			       :path *index-path*
  -			       :default-field "*"
   			       :create-p NIL
   			       :create-if-missing-p NIL
  -			       :fields '("title" "date" "description" "text"))))
  +			       ;; Unless otherwise specified, queries will
  +			       ;; search all these fields simultaneously.
  +			       :default-field "*"
  +			       :fields '("title" "description" "text"))))
  +
  +;; Example searches:
  +;;
  +;; (search-posts "uav")
  +;; (search-posts "+title:robot embedded lisp")
  +;; (search-posts "prodigy" '(:num-docs 30))
  +;; (search-posts "bug*" '(:num-docs 10 :start-doc 10))
  +;; (search-posts "bug*" '(:num-docs 10000) T)
   
   (defun search-posts (query &optional options count-only-p)
     (unless *index*
  
positive.code: 		 ;; Close tag
  		 (setf in-tag-p NIL))))))))
  
  (defun date-string (universal-time)
    "Turns a universal time into a string like \"2006-06-06\"."
    (multiple-value-bind (second minute hour date month year)
  
negative.code:       ;; in a database, say, the cached version could be retrieved from there
        ;; instead of from the Montezuma index.
        (montezuma:add-field doc (montezuma:make-field "description" description :index :tokenized :stored T))
        ;; To avoid the problem of, e.g, a phrase query like "OS X sucks" not
        ;; matching HTML like "OS X <b>sucks</b>", we index a text-only version of
        ;; the post.  We don't need to store a copy of this field.
        (montezuma:add-field doc (montezuma:make-field "text" (strip-html description) :index :tokenized :stored NIL))
        ;; Finally, add the document to the index.
        (montezuma:add-document-to-index index doc))))
    
  