anchor.diff:                         (wait (funcall function result)
                            (get-next)))
                        (resolve))
  -                 (t (e) (reject e)))))
  +                 (error (e) (reject e)))))
         (get-next))))
   
   (defun test_ (query-form)
  
positive.code:                     (jprint res))
                    (jprint res))
                (format t "~%")))
            (t (e) (format t "(err) ~a~%" e)))
          (disconnect main-sock)))))
  
  
negative.code:                    (reject (make-instance 'cursor-no-more-results
                                            :token token
                                            :cursor cursor)))
                 (error (e) (reject e))))
              (t
               ;; have a local result, send it directly into the future
               (resolve (aref (cursor-results cursor) cur-result))))
  