anchor.diff:      (setf (token query) (the fixnum token))
       ;; save the query with the token so it can be looked up later
       (save-cursor token cursor)
  -    ;; serialize/send the query
  +    (future-handler-case
  +      ;; serialize/send/parse the query
  +      (alet* ((response-bytes (do-send sock (serialize-protobuf query)))
  +              (response (make-instance 'rdp:response))
  +              (size (length response-bytes)))
  +        (pb:merge-from-array response response-bytes 0 size)
  +        (handler-case
  +          (parse-response response)
  +          (error (e)
  +            (signal-error future e))))
  +      ;; forward all errors while sending to our `run` future
  +      (error (e)
  +        (signal-error future e)))
  +    (setf (cursor-state cursor) :sent)
  +    (values future token)))
  +
  +(defun more (sock token)
  +  "Continue a query."
  +  (let ((future (make-future))
  +        (query (make-instance 'rdp:query))
  +        (cursor (get-cursor token)))
  +    (setf (token query) (the fixnum token)
  +          (type query) +query-query-type-continue+
  +          (cursor-future cursor) future)
       (future-handler-case
         (alet* ((response-bytes (do-send sock (serialize-protobuf query)))
                 (response (make-instance 'rdp:response))
  
positive.code:           (parse-response response)
            (error (e)
              (signal-error future e))))
        ;; forward all errors while sending yo our run future
        (error (e)
          (signal-error future e)))
      (setf (cursor-state cursor) :sent)
      (values future token)))
  
  (defun next (sock cursor)
    "Grab the next result from a cursor. Returns a future since it may have to
     get more results from the server."
    (let ((future (make-future))
          (num-results (length (cursor-results cursor)))
          (cur-result (cursor-current-result cursor))
  
negative.code:                             :object-type *object-type*)
                     token)))
      (incf (cursor-current-result cursor))
      future))
  
  (defun test (query-form)
  