anchor.diff:  (defun raw-response-transaction-response-message-text (raw-response)
     (cdr (assoc :text (raw-response-transaction-response-message raw-response))))
   
  -(defgeneric make-transaction-response-for-transaction-request
  +(defgeneric transaction-request-transaction-response
       (transaction-request raw-response-transaction-response))
   
  -(defmethod make-transaction-response-for-transaction-request
  +(defmethod transaction-request-transaction-response
       ((transaction-request auth-capture-transaction-request)
        raw-response-transaction-response)
  -  (let ((message (cadr (assoc :messages raw-response-transaction-response))))
  -    (make-instance 'auth-capture-transaction-response
  -                   :response-code (cdr (assoc :response-code raw-response-transaction-response))
  -                   :auth-code (cdr (assoc :auth-code raw-response-transaction-response))
  -                   :avs-result-code (cdr (assoc :avs-result-code raw-response-transaction-response))
  -                   :cvv-result-code (cdr (assoc :cvv-result-code raw-response-transaction-response))
  -                   :cavv-result-code (cdr (assoc :cavv-result-code raw-response-transaction-response))
  -                   :trans-id (cdr (assoc :trans-id raw-response-transaction-response))
  -                   :ref-trans-id (cdr (assoc :ref-trans-id raw-response-transaction-response))
  -                   :trans-hash (cdr (assoc :trans-hash raw-response-transaction-response))
  -                   :account-number (cdr (assoc :account-number raw-response-transaction-response))
  -                   :account-type (cdr (assoc :account-type raw-response-transaction-response))
  -                   :message-code (cdr (assoc :code message))
  -                   :message-description (cdr (assoc :description message)))))
  +  (flet ((value (key)
  +           (cdr (assoc key raw-response-transaction-response))))
  +    (let ((message (cadr (assoc :messages raw-response-transaction-response)))
  +          (err (cadr (assoc :errors raw-response-transaction-response))))
  +      (make-instance 'auth-capture-transaction-response
  +                     :response-code (value :response-code)
  +                     :auth-code (value :auth-code)
  +                     :avs-result-code (value :avs-result-code)
  +                     :cvv-result-code (value :cvv-result-code)
  +                     :cavv-result-code (value :cavv-result-code)
  +                     :trans-id (value :trans-id)
  +                     :ref-trans-id (value :ref-trans-+id+) ; Parsed from "refTransID"!
  +                     :trans-hash (value :trans-hash)
  +                     :account-number (value :account-number)
  +                     :account-type (value :account-type)
  +                     :message-code (cdr (assoc :code message))
  +                     :message-description (cdr (assoc :description message))
  +                     :error-code (cdr (assoc :error-code err))
  +                     :error-text (cdr (assoc :error-text err))))))
   
   (defun execute (request endpoint)
     (check-type request request)
  
positive.code: (defclass transaction-response () ())
  
  (defgeneric transaction-response-response-code (transaction-response))
  
  (defclass auth-capture-transaction-response (transaction-response)
    ((response-code :initarg :response-code :reader transaction-response-response-code)
  
negative.code:           (error 'transaction-failed :request request :raw-response raw-response))
          (when (null (raw-response-transaction-response raw-response))
            (error 'transaction-failed :request request :raw-response raw-response))
          (make-instance 'response
                         :ref-id (raw-response-ref-id raw-response)
                         :result-code (raw-response-result-code raw-response)
                         :message-code (raw-response-message-code raw-response)
                         :message-text (raw-response-message-text raw-response)
                         :transaction-response (transaction-request-transaction-response
                                                (request-transaction-request request)
                                                (raw-response-transaction-response raw-response)))))))
  