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:                                     ((eq response-type rdp:+response-response-type-runtime-error+)
                                       'query-runtime-error))
                                :msg fail-msg
                                :token token))
               ;; because i'm paranoid
               (setf value-set-p nil))))
  
negative.code:               (size (length response-bytes)))
          (pb:merge-from-array response response-bytes 0 size)
          (handler-case
            (parse-response response :query-form query-form)
            (error (e)
              (signal-error future e)))))
      (setf (cursor-state cursor) :sent)
  