anchor.diff:        ;; 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 unless we want to try the experimental similar-posts
  -      ;; function.
  -      (montezuma:add-field doc (montezuma:make-field "text" (strip-html 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))))
     
  
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:     (declare (ignore second minute hour))
      (format nil "~D-~2,'0D-~2,'0D" year month date)))
  
  
  (defun timestamp-string (universal-time)
    "Turns a universal time into a string like \"2006-06-06 23:59:59\"."
    (multiple-value-bind (second minute hour date month year)
        (decode-universal-time universal-time)
      (format nil "~D-~2,'0D-~2,'0D ~2,'0D:~2,'0D:~2,'0D"
  	    year month date hour minute second)))
  