anchor.diff:  
   (defun print-result (doc score)
     (let ((paste (get-document *paste-index* doc)))
  -    (format T "~&~5,2F ~A ~A ~15A ~A"
  +    (format T "~&~5,2F ~A ~A ~15A~&~vt~A"
   	    score
  -	    (multiple-value-bind (second minute hour date month year)
  -		(decode-universal-time (parse-integer (document-values paste "date")))
  -	      (format nil "~4D-~2,'0D-~2,'0D" year month date))
  -	    (field-data (document-field paste "number"))
  +	    (field-data (document-field paste "date"))
  +	    (field-data (document-field paste "id"))
   	    (field-data (document-field paste "user"))
  +	    10
   	    (field-data (document-field paste "title")))))
   
   (defun find-pastes (field words)
  
positive.code:     (search-each *paste-index* query
  		 #'(lambda (doc score)
  		     (when (= num-results 0)
  		       (format T "~&~5A ~10A ~5A ~15A ~A" "Score" "Date" "#" "User" "Title")
  		       (format T "~&---------------------------------------------------------------------------"))
  		     (incf num-results)
  		     (print-result doc score))
  		 options)
  
negative.code: 	  (push token tokens)
  	  (setf token (next-token ts)))
  	(reverse tokens)))))
  
  
  (require :json)
  
  (use-package :json)
  
  (defmethod encode-json ((p paste) stream)
    (let ((props `((:number . ,(paste-number p))
  		 (:user . ,(paste-user p))
  		 (:date . ,(paste-date p))
  		 (:channel . ,(paste-channel p))
  		 (:title . ,( paste-title p))
  		 (:contents . ,(paste-contents p)))))
      (encode-json-alist props stream)))
  
  (defun write-json-pastes ()
    (with-open-file (f (make-pathname :name "pastes" :type "json" :defaults *corpus-path*)
  		     :direction :output
  		     :if-exists :supersede)
      (encode-json *pastes* f)))
  
  