anchor.diff:                                      ((eq response-type rdp:+response-response-type-runtime-error+)
                                        'query-runtime-error))
                                 :msg fail-msg
  +                              :query query-form
                                 :token token))
                ;; because i'm paranoid
                (setf value-set-p nil))))
  
positive.code:       (when (<= response-size (length response-bytes))
          response-bytes))))
  
  (defun parse-response (response)
    "Parses a RethinkDB response (deserialized into protobuf classes) into a
     lispy/readable format.
     
     Also throws any errors encountered in the response (client error, compile
     error, runtime error)."
    (let* ((response-type (rdp:type response))
           (token (rdp:token response))
           (cursor (get-cursor token))
  
negative.code:   (:documentation "A client error condition."))
  
  (define-condition query-compile-error (query-error) ()
    (:report (lambda (c s) (format s "Query failed to compile (~a): ~a~%---~%~a~%" (query-error-token c) (query-error-msg c) (query-error-query c))))
    (:documentation "A query compile error condition."))
    
  (define-condition query-runtime-error (query-error) ()
  