anchor.diff:  
   (defparameter *result-code-ok* "Ok")
   
  +;; See http://developer.authorize.net/api/reference/
  +(defparameter *default-customer-ip* "255.255.255.255")
  +
   (defstruct (merchant-authentication (:constructor make-merchant-authentication (api-login-id
                                                                                   transaction-key)))
     (api-login-id nil :type string :read-only t)
  
positive.code:           (cl-json:encode-object-member :expiration-date credit-card-expiration-date stream)
            (cl-json:encode-object-member :card-code credit-card-security-code stream))))))
  
  (defmethod cl-json:encode-json ((object customer-address) &optional (stream cl-json:*json-output*))
    (with-accessors ((customer-address-first-name customer-address-first-name)
                     (customer-address-last-name customer-address-last-name)
  
negative.code:   (:import-from "DRAKMA")
    (:export "MAKE-MERCHANT-AUTHENTICATION"
             "MAKE-CREDIT-CARD"
             "MAKE-ORDER"
             "MAKE-LINE-ITEM"
             "MAX-TAX"
             "MAKE-CUSTOMER"
             "MAKE-CUSTOMER-ADDRESS"
             ;;
             "TRANSACTION-REQUEST"
  