anchor.diff:  
   (define-condition query-error (simple-error)
     ((token :reader query-error-token :initarg :token :initform nil)
  +   (query :reader query-error-query :initarg :query :initform nil)
      (msg :reader query-error-msg :initarg :msg :initform ""))
     (:report (lambda (c s) (format s "Query failed (~a): ~a" (query-error-token c) (query-error-msg c))))
     (:documentation "A general query failure condition."))
  
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:                                     ((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))))
  