anchor.diff:               ;; because i'm paranoid
                (setf value-set-p nil))))
       (when value-set-p
  -      (finish future value token))
  +      (finish future value))
       ;; if the query is finished, remove it from state tracking.
       (when (eq (cursor-state cursor) :finished)
         (remove-cursor cursor)))
  
positive.code:            (finish future (cl-rethinkdb-reql::datum-to-lisp
                              (aref (cursor-results cursor) cur-result)
                              :array-type *sequence-type*
                              :object-type *object-type*)
                     token)))
      ;; keep the pointer up to date
      (incf (cursor-current-result cursor))
      future))
  
negative.code:           (error (e)
              (signal-error future e)))))
      (setf (cursor-state cursor) :sent)
      future))
  
  (defun more (sock token)
    "Continue a query."
  